(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
(7)在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。
Option Base 1
Dim a(3,2)As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 2
【13】 = i + j
Next j
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
For i = 1 To 2
s = s + 【14】
Next i
Next j
Text1.Text = 【15】
End Sub2004年9月全国计算机等级考试二级VB语言笔试试题答案
一、选择题 ((1)—(20)每小题2分,(21)—(30)每小题2分,共70分)
(1) B (2) C (3) A (4) A (5) C
(6) D (7) D (8) B (9) A (10) B
(11) D (12) A (13) C (14) C (15) D
(16) A (17) B (18) B (19) D (20) D
(21) B (22) D (23) C (24) B (25) C
(26) A (27) A (28) B (29) D (30) C
二、填空题 (每空2分,共30分)
【1】"Shanghai"
【2】 3
【3】list1.additem i
【4】 list1.listcount-1
【5】 list1.list(i)
【6】 n
【7】 1
【8】 t
【9】 a(3)
【10】 a(1)
【11】 label1(i).caption
【12】label2.caption
【13】a(i,j)
【14】a(j,i)
【15】s
[ 结 束 ]
责任编辑:小草