下载文档原格式
常用标准控件作业一、选择题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。
第一章数组一、选择题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所示。
电子教室学生注册时文本框部分请输入：如：1411111111四学号+，中间不加空格）
实验准备：
请同学们删除d:\ex21 文件夹里面的容
如果没有ex21文件夹，请在d:\ 下新建 ex21 文件夹
1、打开D:\下的工程文件PROJECTA4.vbp和窗体文件FORMA4.frm，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。
List1用于显示可选课程、List2用于显示已选课程。
单击“选课”按钮，将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2
中的所有课程。
程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图A-4
2、打开D:\下的工程文件PROJECTB4.vbp和窗体文件FORMB4.frm，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。
List1用于显示可选课程、Picture1用于显示已选课程。
单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。
程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图B-4
3、打开D:\下的工程文件PROJECTA41.vbp和窗体文件FORMA41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图A-41
4、打开D:下的工程文件PROJECTB41.vbp和窗体文件FORMB41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最小数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图B-41所示。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图B-41
5、打开D:\下的工程文件PROJECTA411.vbp和窗体文件FORMA411.frm，按以下要求完成程序：输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。
本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果，运行参考界面如下图所示。
最后将工程文件、窗体文件分别按原文件名保存在D:\EX21文件夹下。
（要求用数组来实现，不用数组不能得分）
6、打开D:\下的工程文件PROJECTB411.vbp和窗体文件FORMB411.frm，按以下要求完成程序：编写程序，单击窗体，实现将随机产生的两位整数的一维数组A(10 )中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。
最后将工程文件、窗体文件分别按原文件名保存在D:\EX21文件夹下。
7、打开D:\下的工程文件PROJECTB511.vbp和窗体文件FORMB511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，其中一组(共3个)单选按钮(Option1(0)、Option1(1)和Option1(2))构成控件数组，要求当单击某个单选按钮时，能够改变文本框(Text1)中文字的大小。
最后将工程文件、窗体文件分别按原文件名保存在D:\EX21文件夹下。
8、打开D:\下的工程文件PROJECTA511.vbp和窗体文件FORMA511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，文本框Text1和Text2用于接收用户输入的操作数，文本框Text3用于存放两个操作数的运行结果。
标签Label1用于显示运算符，按钮数组Command1(0)~Command1(3)分别执行上述各种运算操作。
最后将工程文件、窗体文件分别按原文件名保存在
D:\EX21文件夹下。
9、打开D:\下的工程文件PROJECTB51.vbp和窗体文件FORMB51.frm，按以下要求完成程序：按如图B-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。
当单击某个单选按钮时，能够分别改变文本框中文本的字体及大小。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图B-51
10、打开D:\下的工程文件PROJECTA51.vbp和窗体文件FORMA51.frm，按以下要求完成程序：按如图A-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。
当单击某个单选按钮时，能够
分别改变标签标题的字体及大小。
最后将工程文件、窗体文件分别按原文件名保存在D:\EX21文件夹下。
图A-51
11、打开D:\下的工程文件PROJECTB5.vbp和窗体文件FORMB5.frm，按以下要求完成程序：按如图B-5设计窗体，其中有3组（每组 3个，共 9个）
命令按钮的控件数组，分别放入3个框架中。
当单击某个命令按钮时，能够改变文本框中文本的字符格式。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图B-5
12、打开D:\下的工程文件PROJECTA5.vbp和窗体文件FORMA5.frm，按以下要求完成程序：按如图A-5设计窗体，其中有3组（每组 3个，共 9个）单选按钮的控件数组，分别放入3个框架中。
当单击某个单选按钮时，能够改变标签标题的字符格式。
最后将工程文件、窗体文件分别按原文件名保存在D:\EX21文件夹下。
图A-5。
