答案：A 题号：8277
以下程序的输出结果是_________。 Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, 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 A、28 B、35 C、33 D、37 答案：C 题号：8269
下列程序的输出结果是____________。 Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer k = 5
For i = 0 To 9 a(i) = i Next i
For i = 0 To 2
p(i) = a(i * (i + 1)) Next i
For i = 0 To 2 k = k + p(i) * 2 Next I Print k A、23 B、21 C、22 D、17 答案：B 题号：8284
下列有关数组的说法中，不正确的是________。
A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型
C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 答案：C 题号：8272
以下程序段的输出结果是____________。 Dim B(2, 2) As Integer Dim i, j, t As Integer For i = 1 To 2 For j = 0 To 2 B(i, j) = j Next j Next i t = 1
For i = 0 To 2 For j = 0 To 2
t = t + B(i, B(j, j)) Next j Next I Print t A、7 B、1 C、3 D、4 答案：A 题号：8264
以下程序输出的结果是____________。 Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49
B、程序出错 C、不确定 D、0 答案：B 题号：8289
下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n)
D、Dim A(,) As Integer 答案：B 题号：8300
下面关于动态数组的叙述中，不正确的是__________。
A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组
B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值
C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中 答案：B 题号：8276
当Form1_Click事件发生时，程序的输出结果是__________。 Private Sub Form_Click()
Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、5 7 5 B、7 5 5 C、7 5 7 D、5 5 7 答案：B 题号：8273
当发生Command1_Click事件后，程序输出结果是________。 Option Base 1
Private Sub Command1_Click()
Dim a(4, 4) As Integer,i As Integer,s As Integer s=0
For i=1 To 4 For j=1 To 4
a(i, j) = (i-1)*4+j*2 Next j Next i
For i = 1 To 4 s=s+a(i, i) Next I Print s End Sub A、30 B、32 C、44 D、28 答案：C 题号：8280
在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click( ) Dim y As Integer y = 0
Do While y<7 y=y+2 Loop
MsgBox y End Sub
程序运行后，消息对话框中显示__________。 A、0 B、8 C、7 D、2 答案：B 题号：8295
在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1
Private Sub Command1_Click() Dim a As Variant 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、1234 B、12 C、4321 D、34 答案：A 题号：8282
下列语句中的语句可以用来正确地声明一个动态数组。 A、Dim A() As Integer
B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n) 答案：A
题号：8288
在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案：B 题号：8299
用\冒泡\法将数组a中的10个整数按升序排列。所谓\冒泡\法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。 For i= 1 to 9 For j= 1 to 10-i If ____________ Then ……'互换语句 End If Next j Next i
A、a(i)a(j+1) C、a(i)a(j) 答案：B 题号：8274
运行以下程序段，输出结果是____。 Dim a(1 To 10) Dim p(1 To 4) k = 5
For i = 1 To 4 p(i) = i * 2 Next I
For i = 1 To 4 k = k + p(i) * 2 Next I Print k A、30 B、45 C、32 D、48 答案：B 题号：8283
下面的语句或方法，错误的有个________（其中m和n都为Integer型变量）。 ①dim Arry(m,n) As Integer ②n = 32764 + 5
③Print A = A + B;A+B ④ChDrive \A、1 B、3 C、2 D、4 答案：C 题号：8262
如下二维数组声明语句，____________正确。 A、Dim a(n，n) As Integer B、Dim a(3，4) As Integer C、Dim a(34) As Integer
D、Dim a[3，4] As Integer 答案：B 题号：8265
以下有关控件数组的说法中错误的是________。
A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每个元素的下标由控件的Index属性指定 C、同一控件数组中的元素只能有相同的属性设置值 D、控件组中的每一个控件共享同样的事件过程 答案：C 题号：8275
阅读下列程序，其输出的结果是________。 Private Sub Command1_Click() Dim a(1 To 3) As Integer For i=1 To 3 a(i)=i
Next i
Call sub1(a) For i=2 To 3 Print a(i) Next i End Sub
Public Sub sub1(a() As Integer) For i=1 To 3 a(i)=i*I Next I End A、1 2 B、1 4 C、2 3 D、4 9 答案：D 题号：8298
用\冒泡\法将数组a中的10个整数按升序排列。所谓\冒泡\法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。 n=1O
For i= 1 to n-1 For j= 1 to n-i
If ____________ Then ……'互换语句 End If Next j Next i
A、a(i)a(j+1) C、a(i)>a(j) D、a(i)
在窗体上画一个命令按钮名为Command1，然后编写如下事件过程: Option Base 0
Private Sub Command1_Click() Dim city As Variant
city = Array(\Print city(4) End Sub
程序运行后，屏幕显示________ A、出错 B、空白 C、London