VB填空题.docVIP

1. 以下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。 Private Sub Form_Click() Dim s As Integer, i As Integer Dim k As Integer, max As Integer, min As Integer Randomize k = Int(Rnd * 100) + 1 max = k: min = k s=k___________ For i = 1 To 19 k = Int(Rnd * 100) + 1 s = s + k If kmax________Then max = k If k min Then min = k Next i s = _s-max-min_______ Print average=; s / 18 End Sub 2. 阅读下面程序，当单击窗体后，窗体上输出的是_12 7 4__________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j = 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next j If i 8 Then Exit For Next i Print i; j; k End Sub 3. 下列程序段的执行结果为_12 2 4 __________。 n = 0 For i = 1 To 3 For j = 5 To i Step -1 n = n + 1 Next j Next i Print n; j; i 4. 运行下面的程序，当单击窗体时，窗体上显示的内容为_31 63_________。 Private Sub Test(x As Integer) x = x * 2 + 1 If x 8 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub Private Sub Form_Click() Test 3 End Sub 5.以下程序的功能是：从键盘上输入两个正整数，比较其大小，并输出相应的信息。如：将两个数赋给两个变量x和y，如果x=y，提示两个数相等，xy，提示第一个数大于第二个数，xy，提示第一个数小于第二个数。按要求完善程序。 Private Sub Command1_Click() Dim x As Integer, y As Integer If Text1.Text And IsNumeric(Text1.Text) Then 如果文本框已输入数值数据 x = Val(Text1.Text) 将输入的数值赋给变量x Else MsgBox 请在文本框中输入数值 Text1.SetFocus Exit Sub End If If Text2.Text And IsNumeric(Text2.Text) Then y = Val(Text2.Text) Else MsgBox 请在文本框中输入数值 Text2.SetFocus Exit Sub End If If x = y Then MsgBox 两个数相等 ElseIf xx_____ Then MsgBox 第一个数小于第二个数 Else __ msgbox”第一个数大于第二个数”___________ End If End Sub 6. 以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。 Private Sub Command1_Click() Dim a(20) As Integer, i As Integer Dim j As Integer, temp As Integer Print 排序前： For i = 1 To 20