960
920
900
1056
第1题:
设有声明语句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数( )。
A.2310
B.1920
C.1500
D.1658
第2题:
在通用声明中给出Option Base 1语句,则数组a包含( )个元素。
Dim a(3, -2 To 1, 5)
A、 120
B、 75
C、 60
D、 13
第3题:
在窗体上添加一个命令按钮控件,名为Command1,事件过程如下,则执行结果是 Option Base 1 Private Sub Command1_Click() Dim a(5)As Integer Dim k As Integer Dim total As Integer a(1) = 2 a(2) = 5 a(3) = 4 a(4) = 10 a(5) = 6 For k = 1 To 5 Total = total + a(k) Next k Print total End SubA. 10 B.15 C. 27 D. 35
第4题:
以下有关数组定义的语句序列中,错误的是
A.Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45
B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入:”) ReDim arr2(size) ┄ End Sub
C.Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub
D.Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
第5题:
定义有5个整数型元素的数组,正确的语句是
A.Dim a(4) As Integer
B.Option Base 1:Dim a(5)
C.Dim a &(5)
D.Dime a(5) As Integer
第6题:
( 15 ) 1 个二维数组可以存放 1 个矩形 . 在程序开始有语句 Option Base 0, 则下面定义的数组中正好可以存放 1 个 4*3 矩阵(即只有 12 个元素)的是( )
A ) Dim a ( -2 To 0,2 ) AS Integer
B ) Dim a ( 3,2 ) AS Ingeger
C ) Dim a ( 4,3 ) AS Ingeger
D ) Dim a ( -1 To -4,-1 To -3 ) AS Ingeger
第7题:
(11)设有下列程序查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer Arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(1)<Min Then Next i Print"最小值:";Min End Sud
第8题:
—个二维数组可以存放—个矩阵。在程序开始有语句Option Base0,则下面定义的数组中正好可以存放—个4×3矩阵(即只有12个元素)的是______。
A.Dim a(-2 To 0,2)As Integer
B.Dima(3,2)As Integer
C.Dim a(4,3)As Integer
D.Dim a(-1 To -4,-1 To -3)As Integer
第9题:
设有声明语句 Dim b(-1 To 10,2 To 9,20)As Integer 则数组b中全部元素的个数
A.2310
B.2016
C.1500
D.1658
第10题:
以下有关数组定义的语句序列中,错误的是 ______。
A.Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45
B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End Sub
C.Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub
D.Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub