题目

小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔    并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。 （1） 如图所示，该VB程序的窗体中共有类对象（填数字）。 （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 Const n = 10 Dim d(n) As Integer, c As Integer Private Sub Form_Load()   Dim i As Integer, j As Integer, f As Boolean, s As String   Randomize   c = n   For i = 1 To n     f = False     d(i) =        ' 随机生成个位数为“9”的两位数     For j = 1 To i - 1       If Then f = True     Next j     If f Then c = c - 1   Next i  '原始数据在文本框Text1中显示。代码略 End Sub Private Sub Command1_Click()   Dim i As Integer, j As Integer, k As Integer, m As Integer   Dim cnt As Integer，t As String, s As String   d(0) = 100   cnt = Val(Text2.Text)   If cnt > c Then     Text3.Text = "输入筛选的个数太大，请重新输入！"     Exit Sub               'Exit Sub表示退出过程   End If   For i = 1 To cnt     k = i     For j = i + 1 To n       If d(j) < d(i - 1) And( )Then k = j     Next j     If k <> i Then       t = d(i): d(i) = d(k): d(k) = t     End If   Next i   For i = 1 To cnt     s = s + Str(d(i)) + "，"   Next i   Text3.Text = End Sub （3） 程序中加框处代码有错，请改正。 答案： 【1】3 【1】Int(Rnd * 9) * 10 + 19或者Int(Rnd * 9 + 1) * 10 + 9【2】d(i) = d(j)【3】Mid(s, 1, Len(s) - 1)或Mid(s, 1, Len(s) - 2) d(k) < d(j) Or d(k) >= d(i - 1)

查看本题答案和解析