[单项选择]设有数组声明语句：
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 Dim A(2,-"的相关试题:

[单项选择]设有数组定义语句：Dim a(5) As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是( )。
A. a(3)=3
B. a(3)=InputBox("input data")
C. a(3)=List1.ListIndex
D. a=Array(1,2,3,4,5,6)

查看答案

[单项选择]设有数组定义语句：Dim a(5)As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是( )。
A. a(3)=3
B. a(3)=InputBox("inputdata")
C. a(3)=List1.ListIndex
D. a=Array(1,2,3,4,5,6)

查看答案

[单项选择]运行下述语句后，输出的结果是( )。
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

查看答案

[单项选择]设有声明语句　　Dim b(-1 To 10，2 To 9，20)As Integer　　则数组b中全部元素的个数A) 2310
B) 2016
C) 1500
D) 1658

查看答案

[单项选择]在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5，5)，则该数组的元素个数为( )。
A. 20
B. 24
C. 25
D. 36

查看答案

[单项选择]

设有如下程序
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

查看答案

[单项选择]设有如下数组定义语句：
Dim a(-1 To 4, 3)As Integer
以下叙述中正确的是( )。
A. a数组有18个数组元素
B. a数组有20个数组元素
C. a数组有24个数组元素 D) 语法有错

查看答案

[单项选择]下列数组声明语句中，正确的是
A. Dim A[3,4] As Integer
B. Dim A(3,4) As Integer
C. Dim A[3;4] As Integer
D. Dim A(3;4) As Integer

查看答案

[单项选择]阅读程序： 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 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

查看答案

[单项选择]阅读程序：
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 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
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

查看答案

我来回答:

提交