单项选择题

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(3,3) As Integer
For i=1 To 3
For i=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是

A．20
B．7
C．16
D．17
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序： 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 程序运行后，单击窗体，输出结果为
A．8 13
B．0 13
C．7 12
D．0 0
单项选择题
在窗体上画一个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As integer) Print Chr(KeyCode+2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为
A．A
A
B．A
B
C．A
C
D．A
D
相关试题