VB的一道程序阅读及程序填空题,
VB的一道程序阅读及程序填空题,
1.窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮.程序运行后,将把1~100之间能够被7整除的数添加到列表框.如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示.以下是实现上述功能的程序,请填空.
Private Sub Form_Load()
For i=1 To 100
If i Mod 7 =0 Then
_____________________
End If
Next
End Sub
Private Sub Command1_Click()
Sum =0
For i=0 To _____________________
Sum =Sum+_____________________
Next
Text1.Text=Sum
End Sub
2.Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)3 Then
Sum =Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输入结果为_____________________
图左面是 7
14
21
28 右面SUM:735