更多"在模块的声明部分使用“Option Base 1”语句，然后定义二维数"的相关试题:
[单项选择]在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5，5)，则该数组的元素个数为( )。
A. 20
B. 24
C. 25
D. 36
[单项选择]假设没有使用Option Base语句，用下面语句定义的数组元素个数是( )。
Dim Arr3(6，5)As Integer
A. 42
B. 30
C. 37
D. 36
[单项选择]设有数组声明语句：
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
[单项选择]在模块的声明部分使用“OptionBase1”语句，然后定义二维数组A（2to5，5），则该数组的元素个数为（）。
A. 20
B. 24
C. 25
D. 36
[单项选择]执行以下语句过程，在窗体上显示的内容是( )。
Option Base 0
Private Sub Command3_Click（ ）
Dim d
d=Array(“a”,“b”,“c”,“d”)
Print d(1)：d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]运行下列语句后，输出的结果是( )。
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 Arr5(0 to 6，0 to 5)As Integer
A. 42
B. 30
C. 37
D. 36
[单项选择]用下面的语句定义数组元素的个数为 ______。
Option Base 1
Dim Arr6(-2 to 6， -1 to 5)As Integer
A. 30
B. 48
C. 63
D. 72
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是 【15】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是______。
A. 4321
B. 12
C. 34
D. 1234
[填空题]在窗体上画一个名称为command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Colilinand1 Click（ ）
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
call Swap(a)
For i = 1 To 10
Print a(i);
Next
End Sub
Sub Swap(b（ ） As Integer)
n = 【6】
For i = 1 To n/2
t = b(i)
b(i) = b(n)
b(n) = t
【7】
Next
End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
[单项选择]在窗体上一个命令按钮，名称为Command1，然后编写代码：
Option Base 0
Private Sub Command1_Click（ ）
Dim A(4)As Integer,B(4)As Integer
For k=0 To 2
A. )。 0
B. 2
C. 3
D. 4
[单项选择]在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click（ ）
Dim c As Integer,d As Integer
d=0
c=6
x=Array(2，4，6，8，10，12)
Fori=1 To 6
1fx(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Nexti
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。
A. 10
B. 16
C. 12
D. 20
[单项选择]在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click（ ） Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A. ABCD
B. abcd
C. 出错信息
D. 1 2 3 4
[填空题]在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：
Option Base 1
Private Sub Command1_click（ ）
Dim a(10)As Integer
For i=1 To 10
a(i)=1
Next
call swap( [11] )
For i=1 To 10
Print a(i)；
Next
End sub
Sub swap(b（ ） As Integer)
n=UBound(b)
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
[12]
Next
End sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click( )
Dim city As Variant
city=Array(“北京”，“上海”，“天津”，“重庆”)
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
