VB习题集

吴年志湖北汽车工业学院计算机实验教学示范中心2010年4月6日目 录习题一1一、判断题1二、选择题1三、程序设计题2习题二3一、 判断题3二、单选题3三、程序设计题4习题三5一、选择题5二、程序阅读题（写出下列程序的运行结果）5三、程序填空题7四、程序设计题8习题四9一、选择题9二、程序阅读题（写出下列程序的运行结果）9三、程序填空题10四、程序设计题11习题五14一、选择题14二、程序阅读题（写出下列程序的运行结果）14三、程序填空题15四、程序设计题16习题六17一、选择题17二、程序填空题18三、程序设计题19习题七21一、选择题21二、程序填空题22三、程序设计题22习题八23一、判断题23二、选择题23二、填空题25三、程序填空题25四、程序设计题26习题九27一、选择题27二、填空题28三、程序阅读题（写出下列程序的运行结果）28四、程序设计题29习题十30一、选择题30二、程序设计题31参考答案33习题一33习题二33习题三34习题四36习题五39习题六40习题七43习题八44习题九45习题十47Visual Basic习题集47习题一一、判断题1. Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。2. 面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。3. 事件是由Visual Basic预先定义的对象能够识别的动作。4. 新建工程时系统会自动将窗体标题设置为Form1。5. 控件的属性值不可以在程序运行时动态地修改。6. 决定对象是否可见的属性为Visible属性，决定对象可用性的属性是Enabled属性。7. 保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存窗体或模块文件。8. 单击“启动”菜单项将窗体装入内存时，一定触发窗体的Load事件。9. “事件过程”是用来完成事件发生后所要执行的程序代码。10. 在打开某窗体时，初始化该窗体中的各控件，应选用Load事件。二、选择题1. 工程文件的扩展名为 。A、.frx B、.bas C、.vbp D、.frm2. 下列不属于对象的基本特征是 。A、属性 B、方法 C、事件 D、函数3. 在设计模式双击窗体将显示的窗口是A、工程窗口 B、工具箱 C、代码窗口 D、属性窗口4. VB中运行程序的快捷键是 A、F2 B、F5 C、Alt+F3 D、F85. 改变控件在窗体中的上下位置应修改该控件的 属性。A、Top B、Left C、Width D、Right6. 窗体模块的文件扩展名是A、.exe B、.bas C、.frx D、frm7. 设置窗体的字体用 属性。A、FontName B、FontSize C、FontBold D、FontItalic8. 设置窗体的字号用 属性。A、FontName B、FontSize C、FontBold D、FontItalic9. 下列选项中不属于事件的是 。A、Dblclick B、Load C、Show D、KeyUp10. VB编制的程序保存在磁盘上，至少会产生何种文件 。A、.doc与.txt B、.com与.exe. C、.bat与.frm D、.vbp与.frm三、程序设计题1 新建一个工程，单击窗体时，在窗体上显示“欢迎使用Visual Basic程序”。生成可执行文件，保存到D盘根目录下。2 建立一个工程，界面如图1-28所示。它由一个窗体、两个文本框和两个命令按钮组成。单击“拷贝”按钮，可以将第一个文本框中显示的内容复制到第二个文本框中；单击“退出”按钮退出应用程序。3 在窗体上添加一个标签和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏标签”和“显示标签”。当单击第一个命令按钮时，标签消失；而当单击第二个命令按钮时，标签重新出现，并且标签中显示“VB程序设计”。界面如图1-29所示。习题二一、判断题1. 用DIM定义数值变量时，该数值变量自动赋初值为0。2. 整型数值常量有整数，长整数两种。3. 在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。4. 关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。5. 一个表达式中若有多种运算，同一层括号内，计算机按逻辑运算关系运算算术运算的顺序对表达式求值。6. 赋值语句的功能是计算机表达式并转换为相同类型数据后为变量或控件属性赋值。二、单选题1. 以下合法的Visual Basic标识符是_。A、ForLoop B、Const C、9abc D、A#x2. 下列可作为Visual Basic变量名的是_。A、a#a B、4a C、?xy D、Consta3. 表达式6*7/8 Mod 9的值是_。A、4 B、5 C、6 D、74 将数学表达式cos2(a+b)+5e2写成Visual Basic表达式，其正确的形式是_。A、cos(a+b)2+5*Exp(2) B、cos2(a+b)+5*Exp(2)C、cos(a+b)2+5*Ln(2) D、cos2(a+b)+5*Ln(2)5 数学关系3x10表示成正确的VB表达式为_。A、3=x10 B、3=x and x3 or x10 D、3=x and 107. 设x=4，y=8，z=7，表达式xz or z=b and b=c and c0 B、a+cb and b+ca and c0C、(a+b=c or a-b0 D、a+bc and a-b09. 下面进行算术运算符号的是_。A、Imp B、Mod C、Not D、Like9 可以同时删除字符串前导和尾部空白的函数是_。A、Ltrim B、Rtrim C、Trim D、Mid10. Rnd函数不可能为下列_值。A、0 B、1 C、0.1234 D、0.000511. Int(198.555*100+0.5)/100的值是_。A、198 B、199.6 C、198.56 D、20012. 如果x是一个正实数，对x的第3位小数四舍五入的表达式是_。A、0.01*Int(x+0.005) B、0.01*Int(100*(x+0.005)C.、0.01*Int(100*(x+0.005) D.、0.01*Int(x+0.05)13. 执行语句s=len(Mid(“Visual Basic”,1,6)后，s的值为_。A、Visual B、Basic C、6 D、1114. 描述x、y中有一个小于z的逻辑表达式是_。A.x B.x C.x D.x 15. Int(Rnd*100)表示的是_范围内的数。A、0,100 B、1,99 C、0,99 D、1,10016. 输入对话框inputbox的返回值的类型是_。A、字符串 B、整数 C、浮点数 D、长整数17. 在一行内写多个语句时，每个语句之间要用_ 符号分隔。A、， B、； C、： D、18. 一个语句要在下一行中继续书写，可以用_符号作为续行符。A、+ B、 - C、_ D、19. 下列声明语句中错误的是_。A、Const var1=123 B、Dim var2=abcC、dim a,b as string D、dim var3 as integer20. Print Not 1015 And 80)。（2）圆周率定义为符号常量。（3）利用赋值语句将求出的周长和面积赋给变量L和S。（4）用Print方法输出详细结果。习题三一、选择题1. 执行以下语句后的结果为 。Dim x As IntegerIf x Then Print x Else Print x-1A、1 B、0 C、-1 D、不确定2. 下列关于Select Case测试表达式的叙述中，错误的是 。A、只能是变量名 B、可以是整型 C、可以是字符型 D、可以是浮点类型3. 下列关于Select Case的叙述中，错误的是 。A、Case 10 To 100 表示判断Is是否介于10与100之间B、Case abc,ABC 表示判断Is是否和abc、ABC两个字符串中的一个相同C、Case X 表示判断Is是否为大写字母XD、Case -7,0,100 表示判断Is是否等于字符串-7，0，1004. 由“For i=1 To 16 Step 3”决定的循环结构被执行 次。A、4 B、5 C、6 D、75. 若i的初值为8，则下列循环语句的循环次数为 次。 Do While i 0 Then x = y - 3 Else y = x + 3 Print x - y; y - xEnd Sub程序2. 请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click() Dim a As String, b As String a = abcd b = cdef e = Right(a, 3) f = Mid(b, 2, 3) If e f Then Print e + f Else Print f + eEnd Sub程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim n As Integer n = 0 For i = 1 To 3 For j = 5 To 1 Step -1 n = n + 1 Next j, i Print n; j; iEnd Sub程序4. 请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click( )Dim i As IntegerStatic Sum As IntegerFor i=1 To 10 Sum= Sum+iNext iPrint SumEnd Sub程序5. 请写出单击命令按钮后，窗体上的显示结果。Private Sub Command1_Click()Dim s As Integer, i As Integers = 1i = 1Do While i = 3Print Tab(4 * i + 1); Ai = i + 1LoopEnd Sub三、程序填空题1. 【程序说明】下面是一段计算数学表达式 的程序。Private Sub Form_Click() Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox(请输入N的值:) s = 0：p = -1：q = 1 For i = 1 To n p = -p: q = （1） s = （2） （3） Print sEnd Sub2. 【程序说明】下列程序用于计算1+（1+3）+（1+3+5）+（1+3+5+39）。Private Sub Form_Click() Dim t As Integer, m As Integer Dim sum As Integer t = 0 m = 1 sum = 0 Do t = （1） sum = sum + t （2） Loop While （3） Print sum=; sumEnd Sub3. 【程序说明】下列程序在文本框Text1中输入任一字符串，并按相反的顺序显示在文本框Text2中。Private Sub Command1_Click() Dim n As String, c As String, d As String n = Text1.Text m = （1） For i = m To 1 Step -1 c = Mid(n, i, 1) d = （2） Next i （3）End Sub四、程序设计题1. 用InputBox函数输入3个任意整数，按从大到小的顺序输出。2. 编程，输入x值，按下式计算并输出y值。3. 计算下式的和，变量x与n的数值用输入对话框输入。4. 用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。习题四一、选择题1. 窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为02. 用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。A、4 B、8 C、6 D、103. 以下 是VB合法的数组元素。A、x9 B、x9 C、x(9) D、x94. 设有数组声明语句：Dim a(2,3 to 4) As Integer以上语句所定义的数组a为 维数组，共有 个元素，第一维下标从 到 ，第二维下标从 到 。A、0 B、1 C、2 D、3 E、4 F、5 G、6 H、9二、程序阅读题（写出下列程序的运行结果）程序1. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5) As Integer,b(5) As IntegerFor j =1 to 4a(j)=3*jb(j)=a(j)*3Next jText1.text=b(j)End Sub程序运行后，单击命令按钮，写出程序的运行结果。程序2. 在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(10) As IntegerDim p(3) As Integerk = 1For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * 2)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，写出程序的运行结果。程序3. 请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click() Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i For i = 1 To 5 : Print a(i, i); : Next iEnd Sub程序4. 请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click() Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3 a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next iEnd Sub三、程序填空题1. 【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。Private Sub Form_Click() Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a(i) = : Next i For i = 1 To 29 For j = If a(i) a(j) Then m = a(i): :a(j) = m End If Next j,i For i = 1 To 30 If Then Print a(i); Next iEnd Sub2. 【程序说明】以下程序产生20个两位随机整数存于数组之中，打印数组中大于50的数，并求出这些数的和。Private Sub Command1_Click() Dim arr(1 To 20) As Integer Dim i As Integer, sum As Integer For i = 1 To 20 arr(i) = Next i sum = 0 For i = 1 To 20 If Then Print arr(i); sum = End If Next i Print Tab(2); sum=; sumEnd Sub3. 【程序说明】下列程序用来在窗体上输出如图4-2所示大小可变的正方形数据。Dim a() As IntegerPrivate Sub Form_Click() Dim n As Integer, i As Integer Dim j As Integer, k As Integer n = Val(InputBox(请输入数据：) For i = 1 To For j = i To n - i + 1 For k = i To n - i + 1 Next k, j, i For i = 1 To n For j = 1 To n Print Tab(j * 3); a(i, j); Next j Next iEnd Sub四、程序设计题1. 设有a，b两矩阵，编程完成两个矩阵的相乘，结果存入c矩阵中。2. 编程产生10个20，40之间的随机整数存于一维数组a中，将a数组中的元素依次向后移动一个位置，最后一个元素移动到第一个元素的位置上。3. 用二分法对已排好序（升序）的数据进行检索。4. 说明：二分查找法是对一批有序的数，取其中间元素，如果该元素是要找的数（key），输出该数的位置，否则，如果该元素大于key，则查找数列的范围缩小到该元素的前一个元素；如果该元素小于key，则查找数列的范围缩小为该元素的后一个元素到数列尾。重复上述方法，直到查找的数列范围缩小到0个元素。 习题五一、选择题1. 在过程调用中，参数的传递可以分为 和 两种方式。A、按值传递 B、按地址传递 C、按参数传递 D、按位置传递2. 在参数传递过程中，使用关键字 来修饰参数，可以使之按值传递。A、ByVal B、ByRef C、Value D、Reference3. 在窗体模块的通用声明段中声明变量时，不能使用 关键字。A、Dim B、Public C、Private D、Static4. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是 。A、Sub p(Byval n,Byval m) B、Sub p(n,byval m)C、Sub p(n,m) D、Sub p(Byval n,m)5. Sub过程与Function过程最根本的区别是 。A、Sub过程可以使用Call 语句或直接使用过程名调用，而Function过程不可以B、Function过程可以有参数，Sub过程不可以C、两种过程参数的传递方式不同D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值二、程序阅读题（写出下列程序的运行结果）程序1. 请写出三次单击命令按钮后，窗体上的显示结果。Private Sub p() Static s As Integer Dim i As Integer For i = 1 To 10 Step 2 s = s + i Next i Print s;End SubPrivate Sub Command1_Click() Call pEnd Sub程序2. 请写出单击命令按钮后，窗体上的显示结果。Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod yEnd SubPrivate Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, bEnd Sub三、程序填空题1. 【程序说明】如果两个质数的差为2，就称这两个质数为质数对。下列程序用于输出100以内的质数对。Private Function p(m As Integer) As Boolean Dim i As Integer (1) For i = 2 To Sqr(m) If (2) Then p = False: Exit For Next iEnd FunctionPrivate Sub Command1_Click() Dim i As Integer Dim p1 As Boolean, p2 As Boolean p1 = p(3) For i = 5 To 99 Step 2 p2 = p(i) If p1 And p2 Then Print (3) p1 = p2 Next iEnd Sub2. 【程序说明】下列过程用选择法对double类型数组按值从小到大排序。Private Sub Sort( (1) ) Dim i As Integer, j As Integer, k As Integer, t As Double For i = 1 To (2) k=i For j = i + 1 To n If (3) Then k = j Next j t=a(i): a(i)=a(k): a(k)=t Next iEnd Sub3. 【程序说明】下列程序用于将一维数组反序排放。Private Sub swap(b() As Integer, n As Integer) Dim m As Integer, i As Integer For i = 1 To (1) m = b(i) b(i) = (2) b(n - i + 1) = m Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i Print a(i); Next i Print Call swap( (3) ) For i = 1 To 10 Print a(i); Next iEnd Sub四、程序设计题1. 编制通用函数过程，计算Double类型一维数组所有元素的平均值。2. 编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号（提示：Sub过程的形参列表如x() As Single, m As byte, n As Byte, xmax As Single,ki As Byte,kj As Byte）。习题六一、选择题1. 要为按钮设计一个访问键A，应该在Caption中加入 。A&A BA C$A D#A2. 要把按钮设置为不可使用，应设置 属性为False。AEnable BDefault CCancel DCaption3. 要使按钮能够显示图片，应先设置 属性。AStyle BEnable CIndex DCaption4. 将命令按钮Command1设置为窗体的缺省按钮，可修改该控件的 属性。AEnabled BValue CDefault DCancel5. 将焦点主动设置到指定的控件或窗体上，应采用 方法。ASetDate BSetFocus CSetText DSelText6. 要使标签控件的大小能随Caption属性的大小自动调整，应该设置 属性为True。AEnabled BVisible CAutoSize DAlignment7. 要使文本框显示滚动条，需先设置 属性。AAutoSize BMultiLine CAlignment DScrollBars8. 下列 属性表示文本框中选定的内容。ASelLength BText CCaption DSelText9. 下列 控件没有Caption属性。A命令按钮 B标签 C框架 D文本框10. 下列不能接收焦点的控件是 。A命令按钮 B文本框 C标签 D列表框11. 改变文本框中文字的颜色，应该修改 属性。ABackColor BForeColor CFont DFontBold12. 选中单选按钮控件时，Value属性的值为 。ATrue BFalse C0 D113. 选中复选框控件时，Value属性的值为 。ATrue BFalse C0 D114. 若要在同一窗体中安排两组单选按钮（OptionButton）可用 控件予以分隔。A文本框 B框架 C列表框 D组合框15. 下列 对象具有编辑功能，即运行时可以进行输入或修改。A下拉式列表框 B下拉式组合框 C复选框 D标签16. 不能通过 来删除列表框中的表项。ARemoveItem方法 BClear方法 CText属性17. 若要把XXX成为List1清单中的第三项，则可执行语句 。AList1.AddItem XXX,3 BList1.AddItem XXX,2CList1.AddItem 3,XXX DList1.AddItem 2,XXX18. 设置列表框各表项中的文本，用 属性。ASelected BList CText DCaption19. 下面 表示列表框控件List1的最后一个项目。AList1.List(List1.ListIndex) BList1.List(List1.ListIndex-1)CList1.List(List1.ListCount) DList1.List(List1.ListCount-1)20. 执行List.RemoveItem List1.ListCount语句的结果为 。A删除最后一项 B删除所有项 C出错 D显示所有项21. 下列关于组合框的说法中，正确的是 。A 组合框有Click事件，没有Change事件。B组合框有Change事件，没有Click事件。C组合框既有Change事件，也有Click事件。D组合框没有Change事件和Click事件。22. 滚动条的 属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增减量。ALargeChange BSmallChange CValue DChange23. 单击滚动条两端的任意一个滚动箭头，都将触发该滚动条的 事件。AKeyDown BChange CScroll DClick24. 下列事件中， 能够触发滚动条的Scroll事件。A单击滚动条两端的滚动箭头 B单击滚动条上滑块两侧的空白处C单击滚动条上的滑块 D拖动滚动条上的滑块25. 在任何情况下， 控件在运行时都不可见。A标签 B按钮 C复选框 D定时器26. 下列 控件没有Value属性。A滚动条 B复选框 C定时器 D单选按钮27. 下列设置中，可以使定时器Timer1停止计时的是 。ATimer1.Locked=True BTimer1.Locked=FalseCTimer1. Enabled =True DTimer1. Enabled = False28. 定时器控件的 属性决定Timer事件发生的时间间隔。AInterval BTop CVisible DEnabled29. 要将一个控件设置成为一个控件数组，应该设置 属性。AIndex BTabIndex CCaption DEnabled30. 下面有关控件数组的说法，错误的是： 。A控件数组由一组具有共同名称和相同类型的控件组成。B控件数组中的每一个控件共享同样的事件过程。C控件数组中的每个元素的下标由控件的Index属性指定。D同一控件数组中的元素只能有相同的属性设置。二、程序填空题1. 程序说明：密码验证程序。在窗体上已建立一个标签Label1、文本框Text1和命令按钮Command1。请将以下事件过程填完整。Private Sub Form_Load() Text1. = *End SubPrivate Sub Command1_Click() If = ABC Then 密码不区分大小写 MsgBox 密码正确 Else MsgBox 密码错误 End IfEnd Sub2. 以下程序用于实现字符串的反转。在Text1中输入字符串并按回车确认后，在Text2中显示反转字符串，请将程序补充完整。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer, x As String, y As String If Then x = Text1.Text （2） For i = n To 1 Step -1 （3） Next i （4） End IfEnd Sub3. 以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。Private Sub Command1_Click() i = 0 Do While i If List1.Selected(i) = True Then Else End IfLoopEnd Sub4. 程序说明：在窗体上有一个标签Label1和一个水平滚动条Hs