vb控件数组的习题及标准答案

常用标准控件作业一、选择题1．下列关于属性设置的叙述错误的是_______B__。

A．一个控件具有什么属性是Visual Basic预先设计好的，用户不能改变它B．一个控件具有什么属性值是Visual Basic预先设计好的，用户不能改变它C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值2．以下过程是标签Label1的___A______事件。

Prviate Sub Label1_Click( )End SubA.单击B.双击C.拖拽D.移动3．下列控件中可设置滚动条是____C_____。

A.检查框（复选框）B.框架C.文本框D.标签框4．标签所显示的内容，由___C______属性值决定。

A. TextB. NameC. CaptionD. Alignment5．定时器的定时间隔单位是__C_______。

A. 秒B. 微秒C. 毫秒D. 分6．检查框（复选框）的控件名称为______B___。

A. OptionBottonB. CheckBoxC. PictureBoxD. Image7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置______D___。

A. Text属性值为&B. Caption属性值为&C. PasswordChar属性值为空D. PasswordChar属性值为&8．若要设置定时器的定时间隔，可通过__A_______属性来设置。

A. IntervalB. ValueC. EnabledD. Text9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为_D________。

A. 5B. 50C. 500D. 500010．若要使不可见命令按钮显示出来，可通过设置_____A____属性的值为True来实现。

一、单选题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共有元素个。

实验9---数组21、习题7-6 矩阵最大元素查找Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.ClickDim i, j, m, n, a, b, x As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)m = V al(TextBox2.Text)Dim k(n - 1, m - 1) As IntegerFor i = 0 To n - 1For j = 0 To m - 1k(i, j) = Int(Rnd() * 100)str1 = str1 + k(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextx = k(0, 0)For i = 0 To n - 1For j = 0 To m - 1If k(i, j) < x Thenx = k(i, j)a = i + 1b = j + 1End IfNextNextTextBox3.Text = str1MsgBox("矩阵中最小元素为" + a.ToString + "行" + b.ToString + "列的" + x.ToString) End Sub2、习题7-7 矩阵转置Private Sub Button2_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button2.ClickDim i, j, m, n As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)m = V al(TextBox2.Text)Dim a(n - 1, m - 1), b(m - 1, n - 1) As IntegerFor i = 0 To n - 1For j = 0 To m - 1a(i, j) = Int(Rnd() * 100)str1 = str1 + a(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextstr1 = str1 + vbCrLf + "转置后为" + vbCrLfFor i = 0 To m - 1For j = 0 To n - 1b(i, j) = a(j, i)str1 = str1 + b(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextTextBox3.Text = str1End Sub3、习题7-8 矩阵输入/输出，行/列求和(分别求第一行和第一列各元素之和)，元素对换Private Sub Button3_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button3.ClickDim i, j, s As IntegerDim a(,) As Integer = {{25, 36, 78, 13}, {12, 26, 88, 93}, {75, 18, 22, 32}, {56, 44, 36, 58}}Dim b(3, 3), c(3, 3) As IntegerDim str1, str2 As Stringstr1 = "主对角线上的数为："str2 = "原矩阵第1行和第3行交换矩阵变为" + vbCrLfFor i = 0 To 3For j = 0 To 3If i = j Thenstr1 = str1 + a(i, j).ToString + " "End IfNextNextstr1 = str1 + vbCrLf + "副对角线上的数为："For i = 0 To 3For j = 0 To 3If j = 3 - i Thenstr1 = str1 + a(i, j).ToString + " "End IfNextNextstr1 = str1 + vbCrLf + "各行列的和" + vbCrLfFor i = 0 To 3s = 0For j = 0 To 3s = s + a(i, j)Nextstr1 = str1 + "第" + (i + 1).ToString + "行的和=" + s.ToString + vbCrLf Nextstr1 = str1 + vbCrLfFor j = 0 To 3s = 0For i = 0 To 3s = s + a(i, j)Nextstr1 = str1 + "第" + (j + 1).ToString + "列的和=" + s.ToString + vbCrLf NextFor i = 0 To 3For j = 0 To 3If i = 0 Thenb(i, j) = a(2, j)ElseIf i = 2 Thenb(i, j) = a(0, j)Elseb(i, j) = a(i, j)End Ifstr2 = str2 + b(i, j).ToString + " "Nextstr2 = str2 + vbCrLfNextstr2 = str2 + "原矩阵第2列和第4列交换后矩阵变为" + vbCrLfFor i = 0 To 3For j = 0 To 3If j = 1 Thenc(i, j) = a(i, 3)ElseIf j = 3 Thenc(i, j) = a(i, 1)Elsec(i, j) = a(i, j)End Ifstr2 = str2 + c(i, j).ToString + " "Nextstr2 = str2 + vbCrLfNextTextBox3.Text = str1 + str2End Sub4、习题7-12 输出“杨辉三角形”Private Sub Button4_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button4.ClickDim i, j, n As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)Dim a(n - 1, n - 1) As IntegerFor i = 0 To n - 1For j = 0 To n - 1If j <= i ThenIf i = 0 Or j = 0 Or j = i Thena(i, j) = 1Elsea(i, j) = a(i - 1, j - 1) + a(i - 1, j)End Ifstr1 = str1 + a(i, j).ToString + " "End IfNextstr1 = str1 + vbCrLfNextTextBox3.Text = str1End Sub。

vb考试题及答案解析1. 问题：在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A解析：在Visual Basic中，关键字Dim用于声明变量。

Sub用于定义一个子程序，Function用于定义一个函数，而End用于标记程序或过程的结束。

2. 问题：下列哪个选项是Visual Basic中合法的数组声明？A. Dim myArray(10)B. Dim myArray(10) As IntegerC. Dim myArray As IntegerD. Dim myArray(10, 10) As Integer答案：D解析：选项A和B声明了一个一维数组，但是没有指定数组的类型，这是不合法的。

选项C声明了一个单一的整数变量，而不是数组。

选项D正确地声明了一个二维整数数组。

3. 问题：在Visual Basic中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim答案：B解析：UCase函数用于将字符串中的所有字符转换为大写字母。

LCase函数用于将字符串转换为小写，StrComp用于比较两个字符串，而Trim用于移除字符串两端的空格。

4. 问题：在Visual Basic中，如何使用If语句来检查一个变量是否大于10？A. If x > 10 ThenB. If x = 10 ThenC. If x <= 10 ThenD. If x < 10 Then答案：A解析：If语句用于条件判断，选项A正确地使用了比较运算符">"来检查变量x是否大于10。

选项B检查是否等于10，选项C检查是否小于等于10，选项D检查是否小于10。

5. 问题：在Visual Basic中，下列哪个循环结构用于在满足特定条件时重复执行代码块？A. Do...LoopB. For...NextC. While...WendD. With...End With答案：C解析：While...Wend循环结构用于在条件为真时重复执行代码块。

第一章数组一、选择题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.下列控件中没有Caption属性的是。

A)框架B)列表框C)复选框D)单选按钮2.复选框的Value属性为1时，表示。

A)复选框未被选中B)复选框被选中C)复选框内有灰色的勾D)复选框操作有误3．用来设置斜体字的属性是。

A)FontItalicB)FontBoldC)FontNameD)FontSize4.将数据项“China”添加到列表框Listl中成为第二项应使用语句。

A)List1.AddItem“China”,1B)List1.AddItem“China”,2C)List1.AddItem1,“China”D)List1.AddItem2,“China”5.引用列表框Listl最后一个数据项，应使用语句。

A)List1.List(List1.ListCount)B)List1.List(ListCount)C)List1.List(List1.ListCount-1)D)List1.List(ListCount-1)6.假如列表框Listl有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句。

A)List1.AddItem3,“China”B)List1.AddItem“China”,List1.ListCount-1C)List1.AddItem“China”,3D)List1.AddItem“China”，List1.ListCount7．执行了下面的程序后，列表框中的数据项有。

PrivateSubForm_Click()Fori=1to6List1.AddItemiNextiFori=1to3List1.RemoveItemiNextiEndSubA)1，5，6B)2，4，6C)4，5，6D)1，3，58.如果列表框List1中没有选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是。

A)移去第一项B)移去最后一项C)移去最后加入列表中的一项D)以上都不对9.如果列表框List1中只有一个项目被用户选定，则执行Debug.PrintList1.Selected(List1.ListIndex)语句的结果是。

第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。

答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。

答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。

答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。

答案:可调数组、可变类型数组5.数组刷新语句用于(。

若被刷新的数组是数值数组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。

答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。

答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。

答案:Index12.建立控件数组有两种方法:(和(。

答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。

a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To –20 AS Integerd Dim b(5 To 5 AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。

a 5b 8c 11d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。

a c(i-1b c(5+0.5c c(0d c(10答案:c4.下列数组说明语句中正确的是(。

a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To –1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2To2,则数组b中元素的个数是(。

数组测试题（一）：选择题（8小题）1．下列数组声明语句，是正确的。

(a) Dim a[3,4] As Integer (b) Dim a(3,4) As Integer(c) Dim a(n,n) As Integer (d) Dim a(3 4) As Integer 2．以下程序输出的结果是。

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 IPrint a(i)(a) 49 (b) 0 (c) 不确定 (d) 程序出错3．下面程序段的运行结果是。

（ Option Base 1）Private Sub Form_Click()Dim a： b$ = "": c$ = ""a = Array("effort", "run", "lucky")For i = 1 To UBound(a)b$ = b$ + Left$(a(i), 1)： c$ = c$ + Right$(a(i), 1)Next IPrint c$ + b$End Sub（A）effort （B）tnyerl （C）erltny （D）c$+b$4．以下程序输出的结果是。

（Option Base 1）Private Sub Command1_Click( )Dim a%(3,3)For I=1 to 3For j=1 to 3If j>1 And I>1 ThenA(I,j)=a(a(I-1,j-1),a(I,j-1))+1 ElseA(I,j)=I*jEnd IfPrint a(I,j);””;Next jPrintNext IEnd Sub（a） 1 2 3 (b) 1 2 32 3 1 1 2 33 2 3 1 2 3(c ) 1 2 3 (d) 1 1 12 4 6 2 2 23 6 9 3 3 35．如下数组声明语句中，数组a包含元素的个数为Dim a(3,-2 to 2,5)(a) 120 (b)75 (c) 60 (d) 13 6．下面程序输出的结果是。

电子教室学生注册时姓名文本框部分请输入：如：11李四学号+姓名，中间不加空格）实验准备：请同学们删除d:\ex21 文件夹里面的内容如果没有ex21文件夹，请在d:\ 下新建ex21 文件夹1、打开D:\下的工程文件和窗体文件，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。

List1用于显示可选课程、List2用于显示已选课程。

单击“选课”按钮，将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2中的所有课程。

程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门。

最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。

图A-42、打开D:\下的工程文件和窗体文件，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。

List1用于显示可选课程、Picture1用于显示已选课程。

单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。

程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。

最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。

图B-43、打开D:\下的工程文件和窗体文件，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。

最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。

图A-414、打开D:下的工程文件和窗体文件，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最小数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图B-41所示。

常用控件习题参考答案一、选择题题1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 号答D B D B A B A B D C C B B C A 案题16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 号答B D D B B D D A A D B B DCD 案题31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 号答D C B D A C D C C A C C C C B 案题46 47 48 49 50 51 52 53 54号答C C BD C D B B B案二、填空题1. 标准控件、ActiveX控件、可插入对象2. Interval3. Enabled4. 下拉式组合框、简单组合框、下拉式列表框，Style、0、1、25. 下拉式列表框6. V alue7. AlignMent8. Style9. Enabled10. 011. ListCount-112. Clear13. List，Selected14. 下拉式列表框15. Scroll，Change16. LargeChange17. V alue18. 1500019. TabsPerRow20. 221. 322. MousePointer，MouseIcon23. 024. KeyPreview25. DragMode26. DragOver、DragDrop27. DragIcon28. RemoveItem29. AddItem30. Clear31. AscII码、下档键、AscII码32. MousePointer，99，MouseIcon33. DragMode，1，034. 1、2、3，Shift、Ctrl、Alt35. 1、2、3，左键、右键、中键36. 右37. MouseDown、MouseUp三、简答题1. VB中的控件有三种：标准控件、ActiveX控件和可插入对象。

vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。

答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。

答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。

答案：InputBox4. VB中，用于打开文件的语句是________。

答案：Open5. VB中，用于关闭文件的语句是________。

答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。

在VB中，用户可以通过编写事件处理程序来响应这些事件。

2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。

四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。

答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。

vb试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案：B2. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 以下哪个是VB的事件？A. ClickB. PrintC. DrawD. Open答案：A4. 在VB中，以下哪个语句用于结束程序？A. EndB. ExitC. StopD. Quit答案：A5. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、多选题（每题3分，共15分）1. VB中，以下哪些是合法的变量名称？A. 2variableB. variable2C. _variableD. variable$答案：B, C2. VB中，以下哪些是合法的常量声明方式？A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案：A, D3. 在VB中，以下哪些是控件的属性？A. NameB. CaptionC. TextD. Value答案：A, B, C4. VB中，以下哪些是控制流程语句？A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案：A, B, C, D5. VB中，以下哪些是数组的声明方式？A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案：A, B, D三、判断题（每题1分，共5分）1. VB是一种面向对象的编程语言。

vb考试题及答案详解一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个关键字用于声明一个过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C3. 如果变量x的值是5，那么表达式x > 3 And x < 10的结果是？A. TrueB. FalseC. 5D. 3答案：A4. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给变量str？A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案：A5. 下列哪个控件用于在窗体上显示图像？A. PictureBoxB. ImageBoxC. LabelD. Button答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 如何在Visual Basic中声明一个整型变量？A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案：A8. 在Visual Basic中，哪个事件用于响应鼠标单击？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A9. 下列哪个不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D10. 在Visual Basic中，如何使用If语句进行条件判断？A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案：C11. Visual Basic中哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C12. 如何在Visual Basic中声明一个数组？A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案：A13. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案：A14. 如何在Visual Basic中声明一个类？A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案：A15. 在Visual Basic中，哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。

1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。

程序刚运行时，会生成一个有10个元素的整型数组。

若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。

请去掉程序中的注释符，把程序中的？改为正确的容。

注意：考生不得修改窗体文件中已经存在的程序。

最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10If Option1.Value = True ThenIf a(i)> x Thenx = a(i)End IfElseIf a(i) < y Theny = a(i)End IfNextIf Option1.Value = True ThenLabel2.Caption = xElseLabel2.Caption = yEnd IfEnd Sub2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。

画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。

将窗体的标题设为"图形控件"。

单击列表框中的某一项，则将所选的值作为形状控件的填充参数。

例如，选择3，则形状控件中被竖线填充。

如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。

在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。

List控件的Click事件过程为：Private Sub List1_Click()Shape1.FillStyle = List1.TextEnd Sub3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。

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

A。

数组 B.变量 C。

同类数据 D。

同类变量2。

一维数组的大小为______________。

A。

上界+下界+1 B。

上界+下界-1 C.上界-下界+1 D.上界—下界—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～100 B.1~100 C.0～99 D.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。

Dim B.ReDim C。

Dim Preserve D.ReDim Preserve9。

对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。

A。

空 B.0 C。

1 D。

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

A。

B数组的上界 B。

B数组的上界+1 C.B数组的上界— 1 D。

不确定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。

VB程序设计--第章数组含答案 (一)VB程序设计是计算机科学中重要的编程语言之一，可用于创建各种类型的应用程序。

其中，数组是一种重要的数据结构，在VB程序设计中得到广泛的应用。

本文主要介绍VB程序设计中数组的基本含义、使用方法以及涉及到的一些常见问题和解决方法。

一、数组的含义和定义数组是一种用于存储相同类型元素的数据结构，其在程序设计中具有重要的作用。

在VB程序设计中，数组的定义格式如下:Dim 数组名(元素个数) As 数据类型其中，Dim表示定义变量的关键字，数组名为指定的数组名称，元素的个数可以是任意正整数，数据类型可为整数、浮点数、布尔值或字符串等类型。

例如，定义一个包含5个整数的数组可以写成如下形式:Dim intArray(4) As Integer二、数组的使用方法在VB程序设计中，数组的具体使用方法主要包括以下几个方面：1. 填充数组。

使用下标（Index）可以在数组中指定元素的位置，然后将其赋值为指定的数值。

例如：intArray(0) = 1intArray(1) = 2intArray(2) = 3intArray(3) = 4intArray(4) = 52. 访问数组。

可以使用下标来访问数组中的元素值。

例如：MsgBox(intArray(2))3. 循环遍历数组。

可以使用For循环语句遍历整个数组。

例如：For i = 0 to 4MsgBox(intArray(i))Next i4. 多维数组。

可以定义二维或三维等多维数组来存储多个数据。

例如：Dim arr(3,5) As Integer其中，arr为定义的数组名称，3表示第一维的元素数，5表示第二维的元素数。

三、数组常见问题和解决方法在VB程序设计中，数组的使用可能会涉及到以下一些常见问题和解决方法：1. 数组越界问题。

数组越界指访问超出数组有效下标范围的元素。

解决方法是在访问数组前判断下标是否合法。

2. 数组的数据类型不匹配问题。