单项选择题

有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub

A．0 1 2 1 2 3 2 3 4
B．3 4 5 4 5 6 5 6 7
C．1 3 5 3 5 7 5 7 9
D．2 4 6 4 6 8 6 8 10
<上一题 目录 下一题>
热门 试题

单项选择题
以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)
A．14
B．0
C．6
D．值不确定
单项选择题
有如下程序； Private SubForm_Click() Dim check As Boolean，n As Integer check=False n=0 Do Do While n＜10 n=n+1 If n=5 Then check=True Exit Do End if Print n； Loop Loop Until check = True End Sub 程序运行后，输出的结果是 ______ 。
A．1 2 3
B．1 2 3 4
C．1 2 3 4 5
D．1 2 3 4 5 6
相关试题