For j=5 To 1 Step -1 Print i*j Next j Next i
则语句Print i*j 的执行次数是 A)15 B)16 C)17 D)18
(19)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为 Command1），然后编写如下事件过程： Private Sub Command1_Click() x=0
Do While x<50 x=(x+2)*(x+3) n=n+1 Loop
Text1.Text=Str(n) Text2.Text=Str(x) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 A)1和0 B)2和72 C)3和50 D)4和168 (20)阅读程序：
Private Sub Command1_Click()
a=0
For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
程序运行后，单击窗体，输出结果是
A)105 B)1 C)120 D)15
(21)以下说法中正确的是
A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程 B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
C)若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中 的KeyCode参数的值也相同
D)在KeyPress事件过程中，KeyAscii参数可以省略
(22)语句Dim a(-3 To 4,3 To 6) As Integer 定义的数组的元素个数是 A)18 B)28 C)21 D)32
(23)在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
程序运行后，单击命令按钮，其输出结果是 A)4321 B)1234 C)34 D)12
(24)假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是
A)数组中每个命令按钮的名称(Name属性)均为Command1 B)若未做修改,数组中每个命令按钮的大小都一样 C)数组中各个命令按钮使用同一个Click事件过程 D)数组中每个命令按钮的Index属性值都相同
(25)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码： Option Base 0
Private Sub Command1_Click()
Dim A1(4) As Integer, A2(4) As Integer For k = 0 To 2
A1(k + 1) = InputBox(\请输入一个整数\ A2(3 - k) = A1(k + 1)
Next k Print A2(k) End Sub
程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为 A)0 B)1 C)2 D)3
(26)以下关于函数过程的叙述中，正确的是 A)函数过程形参的类型与函数返回值的类型没有关系 B)在函数过程中，过程的返回值可以有多个
C)当数组作为函数过程的参数是，既能以传值方式传递，也能以传址方式传递 D)如果不指明函数过程参数的类型，则该参数没有数据类型
(27)在窗体上画两个标签按钮和一个命令按钮，其名称分别为Label1、Label2和Command1，
然后编写如下程序：
Private Sub func(L As Label) L.Caption = \End Sub
Private Sub Form_Load() Label1.Caption = \ Label2.Caption = 10 End Sub
Private Sub Command1_Click() a = Val(Label2.Caption)
Call func(Label1) Label2.Caption = a End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 (28)在窗体上画一个命令按钮(名称为Command1)，并编写如下代码: Function fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a fun1 = t + b End Function
Private Sub Command1_Click() Dim x As Integer x = 10
Print fun1(fun1(x, (fun1(x, x - 1))), x - 1) End Sub
程序运行后，单击命令按钮，输出结果是 A)10 B)0 C)11 D)21 (29)以下关于过程及过程参数的描述中，错误的是 A)过程的参数可以是控件名称