本单元共有8道选择题。
1. 下列程序的输出结果是( )。 Dim a(5), b(5) For j = 1 To 4 a(j) = 3 * j b(j) = a(j) * 3 Next j Print b(j - 2) A. 24 B. 18 C. 27 D. 36
| 2. 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=arrayl(2,3)+arrayl(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。 A. 12 B. 13 C. 14 D. 15
| 3. 有如下程序: 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 程序运行后,单击窗体,输出结果为( )。 A. 25 B. 26 C. 27 D. 28
| 4. 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5 For i =1 To 5 If a(i)>x Then Print a(i); Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )。 A. 1 2 B. 1 2 3 C. 3 4 5 D. 4 5
| 5. 下列程序的运行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a() a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 1234 B. 1111 C. 4444 D. 4321
| 6. 在窗体画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是( )。 A. ABCDE B. 1 2 3 4 5 C. abcde D. 出错信息
| 7. 在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1 Click() Dim A(4) As Integer, B(4)As Integer For k=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Next k Print B(k) End sub 程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为( )。 A. 0 B. 2 C. 3 D. 4
| 8. 下列程序的运行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print End Sub A. 28 B. 37 C. 33 D. 35
|
|