单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_ Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then Arr(i, j) = 1 Else Arr(i, j) = 0 End If Next j Next i Print Arr(1, 1) + Arr (2, 2) + Arr (3, 3) End Sub程序运行后，单击命令按钮，输出结果为______ 。

A．0
B．1
C．2
D．3

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______ 。

A．40
B．10
C．12
D．16

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。

A．3 4 6 7
B．7 8 10 11
C．1 2 4 5
D．8 9 12 13

相关试题