2004年9月二级VB技术笔试试卷及答案

    

　　 Private Sub Command1_Click()

　　 Randomize

　　 n = CInt(Text1.Text)

　　 n1 = 0

　　 n2 = 0

　　 For I = 1 To 【6】

　　 r = Int(Rnd*2)

　　 If r = 【7】 Then

　　 n1 = n1 + 1

　　 Else

　　 n2 = n2 + 1

　　 End If

　　 Next

　　 Text2.Text = n1

　　 Text3.Text = n2

　　 End Sub

　　 (5) 阅读程序：

　　 Option Base 1

　　 Private Sub Form_Click()

　　 Dim a(3) As Integer

　　 Print "输入的数据是：";

　　 For i = 1 To 3

　　 a(i)=InputBox("输入数据")

　　 Print a(i);

　　 Next

　　 Print

　　 If a(1)

　　 t = a(1)

　　 a(1) = a(2)

　　 a(2) = 【8】

　　 End If

　　 If a(2)>a(3) Then

　　 m = a(2)

　　 ElseIf a(1)>a(3) Then

　　 m = 【9】

　　 Else

　　 m = 【10】

　　 End If

　　 Print "中间数是：";m

　　 End Sub

　　 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

　　 (6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

　　 Private Sub Command1_Click()

　　 Sum = 0

　　 For i = 0 To 4

　　 Sum = Sum + 【11】

　　 Next

　　 【12】 = Sum

　　 End Sub