vb第四章数组习题

合集下载

VB第四章测试题(附答案)

VB第四章测试题一、选择题1.下列可作为VB的变量名的是BA.3*DletaB.PrintCharC.AbsD.ABπ2.下列可作为VB的变量名的是AA.FilenameB.A（A+B）C. A%DD.Print3.下列可作为VB中所允许的形式的数是CA.±25.74B.3.457E-100C. .368D. 1.87E+504.下列可作为VB中所允许的形式的数是DA.10^(1.256)B. D32C. 2.5ED.12E35. 下面的数写成普通的十进制数是B2.65358979335278D-006A.0.0000265358979335278653B. 0.00000265358979335278C.0.000265358979335278653D. 0.0000002653589793352786.下面的数写成普通的十进制数是D1.21576654590569D+019A.12157665459056900B. 121576654590569000C.1215766545905690000D. 121576654590569000007.下面的数写成普通的十进制数是B8.6787E+8A. 86787000B. 867870000C. 8678700D. 86787000008.下面的数写成普通的十进制数是A2.56E-12A.0.000000000002567B. 0.0000000002567C.0.000000002567D. 0.000000000025679.下列符号中不能作为VB中变量名的是___C_____。

A.ABCDB. E0065700C. 123TWDFFD. zxy10．如果将布尔常量值True赋值给一个整型变量，则整型变量的值为B_。

A. 0B. –1C. TrueD.False11．下列符号常量的声明中，__C______是不合法的。

A. Const a As Single = 1.1B. Const a As Integer = “12”C. Const a As Double =sin(1)D.Const a = “OK”12.下列___A_____是字符型常量。

VB项目4数组习题答案范文

一、单选题1.在中，一组具有相同名字、不同下标的变量称为____________。

A.数组B.变量C.同类数据D.同类变量2.一维数组的大小为______________。

A.上界+下界+1B.上界+下界-1C.上界-下界+1D.上界-下界-13.数组的存放是按____________存放的。

A.数据大小B.数据类型C.列D.行4.数组具有相同的_____________。

A.下标B.类型C.数值D.存放地址5.重定义数组大小的语句是______________。

A.Dim语句B.ReDim语句C.Static 语句D.Public 语句6.使用Dim A(100) As Integer 语句声明了数组A，其下标的取值范围为____________。

A.0~100B.1~100C.0~99D.1~997.若使用Dim A(100) As Integer 语句声明了数组A，下列引用错误的是___________。

A.A(0)=2B.A(1)= -28C.A(56)= A(-56)D.A(100)=A(0)+A(55)8.如果要对已经声明的数组重新定义大小，并保留原有数据，可使用语句___________。

A.DimB.ReDimC.Dim PreserveD.ReDim Preserve9.对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。

A.空B.0C.1D.最大数10.执行重定义数组大小语句ReDim A(UBound(B))后，A数组的上界为______________。

A.B数组的上界B.B数组的上界+1C.B数组的上界- 1D.不确定11.下列数组声明语句中正确的是______________。

A.Dim A(9) As Single ={1,2,3,4,5,6,7,8,9,10}B.Dim A() As Single ={1,2,3,4,5,6,7,8,9,10}C.Dim A() As Single ={1,”abc”,”ccc”,4,5,6,7,8,9,10}D.Dim A( , ) As Single ={1,2,3,4,5,6,7,8,9,10}12. 若有声明Dim a(2 ,3) as Integer，则数组a共有元素个。

vb数组题

一．判断题：、1．Visual basic中的数组是指由一批互相联系的、有一定顺序的数据组成的集合。

（）。

108E0091972．一个数组中的所有数据，成为该数组的数组元素。

（）108E009198 3．根据数组占用内存的方式的不同，可以将数组分为常规数组和动态数组两种类型。

（）108E0091994．常规数组，是大小固定的数组。

常规数组中包含的数组元素的个数和大小都不变，所以它占有的存储空间将保持不变。

（）108E0092005．声明数组时，其下界可以省略。

当省略下界时，其默认下界为1。

（ f ）108E0092016．此语句必须在模块顶部的声明中使用，必须位于所有数组声明语句之前，且只影响该语句所在模块中数组的下界。

（）108E0092027．一个模块只能出现一次Option Base语句。

（）108E0092038．Option Base语句对Array函数不起作用，使用Array函数所创建数组的下标的下界始终为0。

（）108E0092049．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为动态数组。

（）108E00920510．用户自定义数据类型，又叫做记录数据类型，简称记录类型。

( ) 108E00920611．Dim A (2,3) as double声明一个二维双精度实型数组A，共有6个元素。

（）108E009207二、填空题1．具有两个或两个以上序号的数组称为_____________数组。

多维2．一个数组中的所有数据，成为该数组的___________。

数组元素3．根据数组占用内存的方式的不同，可以将数组分为__________和_____________两种类型。

4．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为____________数组。

5．用户自定义数据类型，又叫做记录数据类型，简称____________。

6．数据元素下标的下界默认为_______，如要想改变其默认值，应使用________________语句。

计算机VB第4章课后参考答案

第4章参考答案(P102)一、单选题1、A2、D3、B4、D二、填空题1、frame(框架)2、x1^2+y1^2 <=93、value4、该框架三、程序阅读题s=4s=5.2s=8实验：1．Private Sub Command1_Click()Dim x As Singlex = V al(InputBox("请输入X"))If x < -2 ThenY = (3 * x * x - x - 1) / xElseIf x < 1 ThenY = Sin(x) + 2 ^ xElseY = (Sqr(x - 1) + Log(x) / Log(10)) / 2End IfLabel1.Caption = "你输入的X是" + Str(x) + ",得到的Y值是" + Str(Y) End Sub2．Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = V al(InputBox("请输入第一个数a"))b = V al(InputBox("请输入第一个数b"))c = V al(InputBox("请输入第一个数c"))Max = aIf b > Max Then Max = bIf c > Max Then Max = cPrint MaxEnd Sub3.Option ExplicitPrivate Sub Form_Load()Form1.Caption = "个人所得税"Label1.Caption = "薪金总额"Text1.Text = ""Label2.Caption = ""Command1.Caption = "计算"End SubPrivate Sub Command1_Click()Dim x As Single, y As Singlex = V al(Text1.Text)x = x - 1600If x > 40000 Or x < -1600 ThenY=0MsgBox "输入的薪金有错", , "出错"ElseIf x >= 0 And x <= 500 Theny = x * 0.05ElseIf x >= 500 And x <= 2000 Theny = 500 * 0.05 + (x - 500) * 0.1ElseIf x >= 2000 And x <= 5000 Theny = 500 * 0.05 + 1500 * 0.1 + (x - 2000) * 0.15ElseIf x >= 5000 And x <= 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + (x - 5000) * 0.2 ElseIf x > 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + 15000 * 0.2 + (x - 20000) * 0.25 End IfLabel2.Caption = "个人所得税为:" & Str(y)End Sub4.Private Sub Form_click()s = V al(InputBox("请输入计算机文化成绩"))Select Case sCase 180 To 200Print s, "优"Case 160 To 179Print s, "良"Case 140 To 159Print s, "中"Case 120 To 139Print s, "及格"Case 0 To 120Print s, "不及格"Case ElsePrint s, "输入成绩错误"End SelectEnd Sub。

VB循环结构及数组练习

VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（B）For i = 1 To 10 Step 2y = y + iNext iA）10 B）11 C）12 D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（B）A）11 B）12 C）16 D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（B）A）For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB）For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC）n = 1For j = 1 To 4n = n * jPrint nNext jD）n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（A）A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后，在2个文本框中显示的值分别是（B）A）20和1 B）27和3 C）195和3 D）600和47. 编写如下的事件过程：Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（B）A）2 B）3 C）4 D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后，窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是（B）A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（C）A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是（A）A）15 B）16 C）17 D）1811.以下程序段输出结果为（B）x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA）1 B）4 C）8 D）2012.执行下面的程序段后，x的值为（A）x = 5For i = 1 To 20 Step 2x = x + i\5Next iA）21 B）22 C）23 D）2413. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，输出结果是（B）A）7 B）15 C）157 D）538 14.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（C）A）3 B）9 C）6 D）2115.有如下的程序段：n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后，n的值为：（B）A）3 B）14 C）9 D）2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100 B）50 C）120 D）701.如有以下程序代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，在窗体上输出的内容为（C）A）89 B）99 C）23 D）772.下面语句定义的数组元素个数中（C）Dim arr(3 To 5, -2 To 2)A）20 B）12 C）15 D）243. 下面语句定义的数组元素个数中（D）Dim a(-3 To 4, 3 To 6)A）18 B）28 C）21 D）324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后，在文本框显示的是（B）A）36 B）45 C）54 D）635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234 B）12 C）34 D）43216. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12 B）13 C）14 D）157.假设通过复制、粘贴建立了一个命令按扭数组Command1，则以下说法错误的是（D）A）数组中每个命令按扭的名称（Name属性）均为Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D）用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后，在窗体上输出的内容为（A）A）11 3 B）3 11 C）13 3 D）3 139.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（D）A）0 B）1 C）2 D）310.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（B）A）0 0 B）6 9 C）7 12 D）8 1311.在窗体上话3个单选按扭，组成1个名为chkOption的控件数组。

VB程序设计课后习题答案

VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6.0后，误把Windows子目录删除。

当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。

因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。

3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。

4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。

5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。

VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。

数组练习题

数组练习题1．下面数组声明语句，_________正确。

A）Dim a[2,4] As Integer B）Dim a(2,4）As IntegerC）Dim a(n,n）As Integer D）Dim a(2 4）As Integer2．假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是________。

A)数组中每个命令按钮的名称(名称属性)均为Command1B)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Command1(下标)可以访问数组中的每个命令按钮3．数组声明语句Dim a(-2 to2,5）中，数组包含元素个数为________。

A）120 B）30 C ）60 D）204．下面程序的输出结果是________。

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)A）36 B）程序出错C）49 D）不确定5．下面程序的输出结果是________。

Option Base 1Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3For j = 1To 3If j > 1 And i > 1 Thena(i, j）= a(a(i - 1, j - 1), a(i, j - 1)）+ 1Elsea(i, j）= i * jEnd IfPrint a(i, j); "";Next jPrintNext iEnd SubA）1 2 3 B）1 2 3 C ）1 2 3 D）1 2 32 3 1 1 2 3 2 4 6 2 2 23 2 3 1 2 3 3 6 9 3 3 36．在设定Option Base 0后，经Dim arr(3,4）As Integer 定义的数组arr含有的元素个数为________。

VB 第四章数组习题

第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer)Dim Arr1(12) As Integer, Arr2(3) As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3Arr2(i) = Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24 C．32 D．36 2．在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integerarr = Array(12, 4, 8, 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / FinishText1.Text = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A．40 B．10C．12 D．16 3．阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是A．5 7 B．6 8 C．7 9D．8 106 87 98 108 11 4．用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA．6 B．7 C．8 D．9 5．用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A．20 B．12 C．15D．246．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integern = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n); Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是A．11 3B．3 11 C．13 3 D．3 13 7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A．35 B．28 C．33D．378．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A．4321 B．12 C．34 D．12349．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A．7 B．6 C．5D．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer)Dim Arr1(12) As Integer, Arr2(3) As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3Arr2(i) = Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24 C．32 D．36 2．在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integerarr = Array(12, 4, 8, 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / Finish= cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A．40 B．10C．12 D．16 3．阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是A．5 7 B．6 8 C．7 9D．8 106 87 98 108 11 4．用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA．6 B．7 C．8 D．9 5．用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A．20 B．12 C．15D．246．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integern = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n); Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是A．11 3B．3 11 C．13 3 D．3 13 7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A．35 B．28 C．33D．378．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A．4321 B．12 C．34 D．1234 9．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A．7 B．6 C．5D．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。

列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是A．Private Sub List1_Click() B．Private Sub List1_Click()= =End Sub End SubC．Private Sub List1_Click() D．Private Sub List1_Click()= =End Sub End Sub11．为了使列表框中的项目分为多列显示，需要设置的属性为A．Columns B．Style C．List D．MultiSelect12．要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A．0 B．1 C．2 D．其他13．删除列表框中指定的项目所使用的方法为A．Move B．Remove C．Clear D．RemoveItem14．用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A．List B．ListIndex C．Text D．ListCount二、填空题1．在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click()Dim Arr(10) As IntegerFor i = 6 To 10Arr(i) = i - 3Next i= Str(Arr(6) + Arr(Arr(6) + Arr(10)))End Sub程序运行后，单击窗体，在文本框中显示的内容是10。

2．以下程序的功能是产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。

请填空。

Option Base 1Private Sub Form_Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor i = 1 To 10Arr(i) = Int(Rnd * 1000)Next iMax = Arr(1)For i = 2 To 10If Max < Arr(i)ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub3．以下程序的功能是，程序运行后，单击命令按钮，输出结果为：1 4 72 5 83 6 9请填空。

Private Sub Command1_Click()Dim Arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(i, j) = ______Print Arr(i, j);Next jPrintNext iEnd Sub4．控件数组的名字由属性指定，而数组中的每个元素由属性指定。

5．由Array函数建立的数组必须是变体类型。

6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim n() As IntegerDim a, b As Integera = InputBox("Enter the first number")b = InputBox("Enter the second number")ReDim n(a To b)For k = LBound(n, 1) To UBound(n, 1)n(k) = kPrint "n("; k; ")="; n(k)Next kEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为。

7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(5)For i = 0 To 4a(i) = i + 1t = i + 1If t = 3 ThenPrint a(i);a(t - 1) = a(i - 2)Elsea(t) = a(i)End IfIf i = 3 Then a(i + 1) = a(t - 4)a(4) = 1Print a(i);Next iEnd Sub程序运行后，单击命令按钮，输出结果是。

8．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim M(10) As IntegerFor k = 1 To 10M(k) = 12 - kNext kx = 6Print M(2 + M(x))End Sub程序运行后，单击命令按钮，输出结果为。

9．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(5, 5)For i = 1 To 3For j = 1 To 4a(i, j) = i * jNext jNext iFor n = 1 To 2For M = 1 To 3Print a(M, n);Next MNext nEnd Sub程序运行后，单击命令按钮，输出结果是。

10．组合框有三种不同的类型，这三种类型是、、，分别通过把属性设置为、、来实现。

11．在三种不同类型的组合框中，只能选择而不能输入数据的组合框式。

12．在窗体上画一个列表框，然后编写如下两个事件过程：Private Sub Form_Click()132End SubPrivate Sub Form_Load()"ItemA""ItemB""ItemC""ItemD""ItemE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的项目为。