158、有如下程序：
Private Sub Form_Load()
Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4
arr1(i, j) = i + j Next j Next i
Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub
程序运行后，单击窗体，在文本框显示的值是______。
答案： 1：12
等级：3 难度：3 知识点：VB知识点/应用案例
159、以下程序段的运行结果是______。 Private Sub command1_Click() Const n = 4
Dim xx(n) As Integer For i = 1 To n xx(i) = i * 2 Print xx(i); Next i End Sub
答案： 1：2 4 6 8#2468 等级：3 难度：3
知识点：VB知识点/综合应用程序举例
160、阅读程序：
Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub
Private Sub Command1_Click() Dim a(1 To 4) As Integer
a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a
For i = 1 To 4 Print a(i); Next i End Sub
程序运行时，单击命令按钮得到的结果是______。
答案： 1：2 4 6 8#2468 等级：3 难度：3
知识点：VB知识点/应用案例
161、下列语句Dim a(3 ，-2 to 2，5)声明的数组a包含的元素个数有______个。
答案： 1：120#一百二十#一二零 等级：2 难度：2
知识点：VB知识点/数组的定义和引用
162、以下程序段的运行结果是____。 Private Sub Form_Click()
Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1
For i = 1 To 4 ary(i) = i
sum = sum + ary(i) Next i Print sum End Sub
答案： 1：11
等级：3 难度：3
知识点：VB知识点/数组应用举例
163、在窗体上添加一个命令按钮Command1，然后编写如下代码： Option Base 1
Private Sub Command1_Click() d = 0: c = 10
x = Array(10, 12, 21, 32, 24) For i = 1 To 5
If x(i) > c Then d = d + x(i) c = x(i) Else
d = d - c End If Next i Print d End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：23
等级：3 难度：3
知识点：VB知识点/综合应用程序举例
164、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click()
Dim n(2 to 4) As Integer
For k = LBound(n) To UBound(n) n(k) = k Print n(k); Next k End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：2 3 4#234 等级：2 难度：2
知识点：VB知识点/综合应用程序举例
165、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a,s
a = Array(1, 2, 3, 4) For i = 3 To 0 Step -1
s = s + Trim(Str(a(i))) Next i Print s End Sub
程序运行后，单击命令按钮，输出结果是______。
答案： 1：4321
等级：3 难度：3
知识点：VB知识点/综合应用程序举例
166、以下程序运行的结果是______。 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 i End Sub
答案： 1：6 5 4 3#6543 等级：3 难度：3
知识点：VB知识点/应用程序举例
167、用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是______。
答案： 1：9#九#9个#九个 等级：1 难度：1
知识点：VB知识点/数组的定义和引用
168、为窗体添加按钮Command1，编写如下代码： Option Base 1
Private Sub Command1_Click() Dim Arr
Arr = Array(43, 68, -25, 65,-78,12,-79,43,-94,72)
pos=0 neg=0
For k = 1 To 10 If Arr(k)>0 Then ______ Else ______ End If
Next k
Print pos,neg End Sub
以上程序计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
答案： 1：pos=pos+Arr(k) 2：neg=neg+Arr(k) 等级：3 难度：3
知识点：VB知识点/数组应用举例
169、用语句 Dim A (3) as Integer，定义的数组元素个数是______。
答案： 1：4#4个#四#四个 等级：1 难度：1
知识点：VB知识点/数组的定义和引用
170、控件数组用下标索引值(Index)来标识各个控件，第一个下标索引号为______。
答案： 1：0
等级：1 难度：1 知识点：VB知识点/控件数组
171、下列程序段的执行结果为______。 Dim x(3,5) For i=1 to 3 For j=1 to 5 x(i,j)=i+j Next j Next i
Print x(3,4)
答案： 1：7
等级：2 难度：2
知识点：VB知识点/数组应用举例
172、如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有______个元素。
答案： 1：18#十八#一十八#一八 等级：1 难度：1
知识点：VB知识点/静态数组与动态数组
173、如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6, 3 To 5)声明的数组有______个元素。
答案： 1：21#二十一#二一 等级：1 难度：1
知识点：VB知识点/静态数组与动态数组
174、在执行Redim语句时为了保留原有数据须指定______保留字。
答案： 1：Preserve#preserve#PRESERVE 等级：2 难度：2
知识点：VB知识点/静态数组与动态数组
175、利用Array给数组赋初值时，所声明的数组可说明成Variant类型或者______类型。
答案： 1：不说明#不指定#不声明#缺省 等级：2 难度：2
知识点：VB知识点/数组的定义和引用
176、表达式Str(Len(\的值是______。
答案： 1：6
等级：1 难度：1
知识点：VB知识点/程序书写规则及格式约定
177、如果要把自定义数据类型定义为Public就必须在______模块中定义。
答案： 1：标准
等级：1 难度：1
知识点：VB知识点/基本数据类型
178、有赋值语句a=Array(1,2,3,4,5)，则Ubound(a)的值为______。