一、填空题
1．在窗体上添加一个命令按钮（Command1），然后编写如下代码
Option Base 1
Private Sub Command1_Click()
Dim a(4) As Integer
s = 0
For i=1 To 4
a(i)=Val(InputBox(“请输入一个整数：”))
Next i
j = 1
For i = 4 To 1 Step –1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，输入1，2，3，4，其输出结果是______________。
2．以下程序的功能是：用Array函数建立一个含有8个元素的数组, 然后查找并输出该数组中各元素的最小值。请填空。
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min =
For i = 2 To 8
If arr1(i) < Min Then
Next i
Print “最小值是:”; Min
End Sub
3．用下面语句定义的数组中各有_____________个元素。
(1) Dim a(9) (2) Dim a(3 to 10)
(3) Dim a(2 to 4,-2 to 2) (4) Dim a(2,3,4)
(5) Option Base 1 (6) Option Base 1
Dim a(4,4) Dim a(10)
4．控件数组的名字由控件的Name属性指定，而数组中的每个元素由____________属性指定。
- 阅读下面程序，程序运行后，单击窗体，输出结果为______________。
Option Base 1
Dim arr() As Integer
Private Sub form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
三、编写程序： 统计两个硬币的投币结果。利用随机函数产生0和1两个整数，其中0代表硬币正面，1代表硬币反面，模拟投币结果，设投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次?
评论0