更多"有以下程序： Option Base 1 Dim arr（ ） A"的相关试题:
[单项选择]
有以下程序：
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. 813
B. 013
C. 712
D. 00
[单项选择]有以下程序：
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 i
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next i
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 arr（ ）As Integer
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
ReDim arr(3,21
For i=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For i=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. 21
B. 13
C. 8
D. 25
[填空题]阅读程序：
Option Base 1
Dim arr2（ ） As Integer
Prtvate Function FindMax(a（ ）As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound 【10】
Finish：UBound 【11】
Max＝ 【12】
For i=Start To Pinlsh
If a (i)＞Max Then Max= 【13】
Next i
FindMax=Max
End Function
Private Sub Commandl_Click（ ）
Dim arr1
arrl=Atray(12，435，76，24，78，54，866，43)
b=UBound(arrl)
Renm arr2( 【14】 )As Integer
For i=1 TO b
arr2(i)＝CInt( 【15】 )
Next i
M=FindMax(arr2（ ）)
Print"最大值是："：M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。
[单项选择]有以下程序：
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
[单项选择]阅读程序：
Private Sub Command1_Click（ ）
Dim arr
Dim i As Integer
arr=Array(0,1,2,3,4,5,6,7,8,9,10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是______。
A. 8 7 6
B. 7 6 5
C. 6 5 4
D. 5 4 3
[单项选择]下面程序运行后，输出的结果是( )。
Dim arr(3,3)
For i=1 To 3
For k=1 To 3
A. Next j 25
B. 58
C. 47
D. 59
[单项选择]设有如下数组声明语句：
Dim arr（-2 to 2,0 to 3）AS Integer
该数组所包含的数组元素个数是（ ）。
A. 20
B. 16
C. 15
D. 12
[单项选择]语句Dim Arr(-2 To 4)As Integer所定义的数组的元素个数为( )。
A. 7个
B. 6个
C. 5个
D. 4个
[单项选择]语句Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是( )。
A. 20
B. 12
C. 15
D. 24
[单项选择]运行下述语句后，输出的结果是( )。
Option Base 1
Dim a
i=1
a = Array(1,-2,9,0,-1,9)
Do
k = a(i)
For m = 10 To k Step -2
n=k+m
Next m
Print n + m
i=i+1
Loop While Abs(m + n)＜＞27
A. 3 27-8
B. 3-8 27
C. -8 27 3
D. -8 3 27
[单项选择]运行下列语句后，输出的结果是( )。
Option Base 1
Dim a
i=1
a=Array(1,-2,9,0,-1,9)
Do
k=a(i)
For m=10 To k Srep -2
n=k+m
Next m
Print n+m
i=i+1
Loop While Abs(m+n)＜＞27
A. 3 27-8
B. 3-8 27
C. -8 27 3
D. -8 3 27
[单项选择]设有数组声明语句：
Option Base 1
Dim A(2,-1 To 1)
以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。下列选项正确的是( )。
A. 1，2，6，2，-1，1
B. 6，2，1，2，-1，1
C. 2，6，1，2，-1，1
D. 2，1，6，-1，1，2
[单项选择]
设有如下程序
Option Base 1
Private Sub Form_Click( )
Dim a(5) As String , i As Integer
For i=1 To 5
a(i)=Chr(Asc(“A”)+i)
Call f(a,i)
Next i
End Sub
Sub f(ta（ ） As String , n As Integer)
Dim i As Integer
For i=1 To
Print ta(i);
Next i
End Sub
对上述程序，以下叙述中正确的是（）。
A. 程序有错，因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行，输出内容的第一行是一个字母“A”
C. 程序可正常运行，输出内容的第一行是一个字母“B”
D. 程序可正常运行，输出内容的第一行是数字65
[单项选择]在窗体上画一个名称为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
[单项选择]以下程序段运行的结果是______。
Dim a(-1 To 5)As Boolean
Dim flag As Boolean
flag=False
Dim i As Integer
Dim j As Integer
Do Until flag=True
For i=-1 To 5
j=j+1
If a(i)=False Then
a(i)=True
Exit For
End If
If i=5 Then
flag=True
End If
Next
Loop
Print j
A. 20
B. 7
C. 35
D. 8
