DIM a（3, -3 to 0, 3 to 6)AS STRING语句定义的数组元素有【】个。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Dim I As Integer，j As Integer Dim a（10，10）As Integer For I=1 To 3 For j=1 To 3 a（I，j）=（I-1）*3+j Print a（I，j）； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（）。（其中CR表示回车和换行）

语句Dim arr（-3 To 5，2 To 6）As Integer定义的数组元素有（）个。

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

下面程序段是利用For语句给数组a赋值，使a(1)＝1，a(2)＝3，a(3)＝5，……，a(50)＝99，则划线处的语句应该是()。 Dim a(1 to 50) As Integer For i＝1 To 50 ______Next i

以下程序的输出结果是 _____ 。Dim aa=Array（1，2，3，4，5，6，7）For i=Lbound（a） To Ubound（a）a（i）=a（i）* a（i）Next iPrint a（i）

默认情况下,语句 Dim A(-3 to 5,1) As interger 定义的数组元素个数是9个

下列程序段的运行结果为（ ）。 Dim a Dim s%, i% a = Array(1, 2, 3, 4, 5) For i = 1 To 3 s = s + a(i) ^ 2 Next i Print s

用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().

下列程序的运行结果是________。Dim a%(3,3),i%,j%For i=1 to 3a(I,i)=1:a(I,4-i)=1next iFor i=1 to 3For j=1 to 3Print a(I,j);next jPrintnext i

有如下程序：Dim a(3，3)As IntegerFor m ＝ 1 To 3For n ＝ 1 To 3a(m，n)＝(m-1)*3＋nNext nNext mFor m ＝ 2 To 3For n ＝ 1 To 2Print a(n，m)；Next nNext m运行后，输出结果是( )。

用下面的语句所定义的数组的元素个数是： ______。Dim arr（3 To 5，-2 to 2)A．20B．12C．15D．24

Dima（3，-3 to 0，3 to 8)As Stritig语句定义的数组元素有A．1-2个B．96个C．120个D．80个

下列程序段的执行结果为______。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A（M，

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码。 Private Sub Commandl_Click（） Dim a（1 0，10）Form=2 to4Forn=4to5a（m，n=m*nNextnNextmMsgBox a（2，5）+a（3，4）+a（4，5）EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

下列程序段的执行结果为（)。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 Then A（M, N)=

以下程序的输出结果为______。 Dim a（10) As Integer, p（3), i, k As Integer For i = 1 To 10 a（i) = 2 * （i - 1) + 1 Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) 2 Next i MsgBox（k)

在“声明”段有语句Option Base 1，那么用如下语句声明的数组a包含的元素个数为（）。 Dim a（-1 To 3, 3, 4)

数组声明语句 Dim a（3,2 To 5),所声明的数组a中包含的元素有（）个

已知数组A（4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在______和______处填写所需的内容，使其产生一个转置矩阵（即行列互换)，仍放在数组A中，并打印出来。例如： 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click（) Dim s（4,4) For k=1 To 4 For j=1 To 4 a（k,j)

下面运行程序后，单击命令按钮，输出的结果是 【9】 。 Private Sub Command1_Click（) Dim a%（1 To 4)，b%（3 To 6)，i%，s1，s2For i=1 To 4 a（i)=iNextFor i=3 To 6 b（i)=iNext s1.= Fun（a) s2 =Fun（b) Print "s1 ="; s1; "s2 ="; s2 End Sub Fu

4、以下程序的运行结果为（）。 Option Base 1 Private Sub command1_click（) Dim a（10), p（3) As Integer k = 5 For i = 1 To 10 a（i) = i Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) * 2 Next i Print k End Sub

下列程序段的执行结果为 Dim A（3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A（M,N) =1 Else A（M,N) =0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A（M,N) Next N Print Next M Ａ) 1 0 0 0 1 00 0 0 Ｂ)

阅读程序： Option Base1 Private Sub Form_Click（) Dim a（3)As Integer Print“输入的数据是：”； For i＝1 To 3 a（i)=InputBox（“输人数据”) Print a（i)； Next Print If a（1) t=a（1) a（1)=a（2) a（2)=【8】 End If If a（2)>a（3) Then m=a

有如下 VB 程序段：Dim a（1 To 7） As Integera（1）＝14：a（2）＝15：a（3）＝0：a（4）＝11a（5）＝13：a（6）＝21：a（7）＝17i ＝ 6: flag ＝ TrueDo While i ＞ 1 And flagIf a（i） Mod 3 ＝ 0 And a（i） ＜＞ 0 Thent＝a（i）：a（i）＝a（i＋1）：a（i＋1）＝tElseIf a（i） ＝ 0 Thenflag ＝ flaseElseIf a（i ＋ 1） Mod 2 ＝ 1 Thena（i）＝Abs（a（i）－a（i＋1））End Ifi ＝ i － 1Loop执行程序后，a 数组各元素是（）