更多"阅读程序： Option Base 1 Dim arr（ ） As"的相关试题:
[单项选择]阅读程序： Option Base 1 Dim arr（ ） As Integer Private Sub Form Click（ ） Dim i As Integer，i 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 arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=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 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序：
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
an(i,j) =i*2+j
Next
Next
ReDim Preserve an(3,4)
For j=3 To 4
an(3,j) =j+9
Next
Print arr(3,2) +air(3,4)
End Sub
程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序：
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
Next
ReDim Preserve arr(3，4)
For j=3 To 4
arr(3，j)=j+9
Next
Print arr(3，2)+arr(3，4)
End Sub
程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]有如下程序：
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
[单项选择]阅读程序： Option Base 1 Dim art（ ）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 Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]有以下程序：
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
an"(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
[单项选择]下面程序运行后，输出的结果是
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For j=2 To 3
Print art(k,j)；
Next k
Print
Next j
A. 2 5
B. 5 8
C. 4 7
D. 5 9
[单项选择]下面程序运行后，输出的结果是
Dim arr(3，3)
For j=1 To 3
For k=1 To 3
Art(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j)；
Next k
Print
Next j
Ａ) 2 5 Ｂ) 5 8 Ｃ) 4 7 Ｄ) 5 9
3 6 6 9 5 8 6 8
[单项选择]下面程序运行后，输出的结果是
Dim arr(3，3)
For j=1 To 3
For k=1 To 3
[单项选择]有以下程序：
Option Base 1
Dimair（ ）As Integer
Private Sub Form_Click（ ）
Dimi As Integer,j As Integer
ReDimalt(3，2)
Fori=1 To 3
Forj=1 To 2
alt(i，j)=i*2+j
Nextj
Nexti
ReDimPreservearr(3，4)
Forj=3 To 4
alt(3，j)=j+9
Nextj
Print arr(3，2)；arr(3，4)
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 8 13
B. 0 13
C. 7 12
D. 0 0
[单项选择]阅读程序：
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+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[填空题]阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后，按回车键；输出结果是______。
