云南开放大学Visual BASIC 程序设计（高新）单元5作业

一、填空题

        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属性指定，而数组中的每个元素由____________属性指定。

5. 阅读下面程序，程序运行后，单击窗体，输出结果为______________。

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种情况各出现多少次?