15春西电《VB程序设计》在线作业答案

电子科技大学智慧树知到“计算机应用技术”《VB程序设计》网课测试题答案（图片大小可自由调整）第1卷一.综合考核(共15题)1.窗体上有一组合框Combol，窗体加载时的代码如下：Private Sub _Load() Combol. AddItem“电视机”Combol. AddItem“录像机”Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。

A.Textl.TextCombol.List3B.Textl.TextCombol.List2C.Textl.TextCombol.List1D.Textl.TextCombol.List02.下列哪些方法不属于通用对话框()。

A.ShowPrintB.ShowListC.ShowFontD.ShowColor3.窗体上有一组合框Combol,窗体加载时的代码如下：Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。

A.Textl.Text=Combol.List(3)B.Textl.Text=Combol.List(2)C.Textl.Text=Combol.List(1)D.Textl.Text=Combol.List(0)4.ADO数据控件的RecordSoure属性是表示()。

A.数据库类型B.与数据库的连接方式C.与ADO数据控件连接的数据库D.ADO数据控件可访问的数据来源5.当一个工程含有多个窗体时，其中的启动窗体是()。

A.第一个添加的窗体B.最后一个添加的窗体工程属性C.在“工程属性”对话框中指定的窗体D.启动Vosual Basic时建立的窗体6.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

客观题_0001试卷总分：100 测试时间：240单项选择题判断题一、单项选择题（共20 道试题，共80 分。

）1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。

A. ListB. ListindexC. TextD. Listcount2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。

A. 加号（+）B. 减号（-）C. 星号（*）D. 感叹号（!）3. 保存新建的工程时，默认的文件夹是（）。

A. My DocumentB. VB98C. "\ "D. Windows4. 要清除列表框的所有内容，可用（）方法来实现。

A. RemoveTtemB. ClsC. ClearD. 以上均不可以5. 用标准工具栏中的工具按钮不能执行的操作是（）。

A. 添加工程B. 打印源程序C. 运行程序D. 打开工程6. 改变驱动器列表框的Drive属性值，将激活（）事件。

A. ChangeB. ScollC. KeyDownD. KeyUp7. 下列语句语法正确的是（）。

A. a=1 b=2 c=3B. a=l：b=2：c=3C. a=1，b=2，c=3D. a=1；b=2；c=38. 要在窗体Form1内显示“myfrm”，使用的语句是（）。

A. Form. print "myfrm"B. Form.caption="myfrm"C. Form1.print "myfrm"D. Form1.caption="myfrm"9. 图象框Image没有的属性是（）。

A. PictureB. AppearanceC. AutoRedrawD. 以上属性都没有10. 可获得字符的ASCII码的函数是（）。

A. ValB. FixC. AscD. Chr11. 计时器没有的属性是（）。

V B程序设计在线考试答案精编Document number：WTT-LKK-GBB-08921-EIGG-22986《VB程序设计》课程综合复习资料一、单项选择1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。

A．BACKCOLOR B．BORDERSTYLE C．FORECOLORD．BACKSTYLE2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE3．下列关于属性设置的叙述错误的是：（ A）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值4．下列说法正确的是（C ）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码5．下列关于窗体上控件的基本操作错误的是：（A ）A．下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件6．下列关于设置控件属性的叙述正确的是（C ）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ）A．0 B．-1 C．TRUE D．FALSE8．下列关于控件画法的叙述错误的是（D ）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件10．VB应用程序的运行模式是（C ）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式11．可视化编程的最大优点是（ C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（ A）事件来完成图形的重画工作。

第 1 章概述一、叙述题1．简述VB具有哪些特点。

（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。

解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。

每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。

为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。

3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。

4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。

标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。

5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。

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

6．简述用VB开发应用程序的一般步骤。

（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。

答案+我名字在线考试——正在答题作业提交11.表达式2\2 * 2/2 * 2 mod 2的结果是(A)0(B)25(C)5(D)12.下列自定义标识符中非法的是：(A)Me(B)My(C)third(D)fIRst3.表达式“A”Like “[A-Z]”的结果为：(A)A(B)Z(C)TRUE(D)FALSE4.表达式x >= 20 and x<= 100，其中x=37时，结果为：(A)100(B)20(C)TRUE(D)flase5.逻辑表达式1>0 and Not 2<7 or 2>6的值为(A)0(B)FALSE(C)3(D)TRUE6.表达式x /=2 ,其中x = 24，运算后x的取值为：(A)12(B)6(C)48(D)247.下列可以作为VB变量的是：(A)a(x*y)(B)学生信息(C)1xyz(D)second8.表达式x *=2 ,其中x = 25，运算后x的取值为：(A)50(B)625(C)25(D)279.表达式100 mod 12 的结果为：(A)10(B)4(C)8(D)610.下列自定义标识符中合法的是：(A)1My(B)class(C)forth(D)@home11.表达式4<< 3 的结果为：(A)8(B)4(C)32(D)1612.表达式“张三”Like “张_*”的结果为：(A)张(B)TRUE(C)FALSE(D)张三13.后缀为.vbp的文件表示VB的(A)类模块文件(B)窗体文件(C)标准类模块文件(D)工程文件14.下列变量名合法的是(A)a_2(B)a-b(C)2xy(D)float15.后缀为.bas的文件表示VB的(A)工程文件(B)窗体文件(C)类模块文件(D)标准类模块文件16.下列语句是二维数组引用的是：(A)g(2)(3)(B)g(2,3)(C)g[2,3](D)g[2][3]17.同一行中书写多个语句的间隔符号为：(A)冒号( : )(B)箭头（->）(C)小数点( . )(D)减号( - )18.表达式1 + 25\ 6 * 2 / 3 mod 4 的值是(A)1(B)0(C)3(D)219.数据关系3<x≤10表示成正确的VB表达式为(A)3<x<=10(B)3<x and x<=10(C)3<x or x<=10(D)3<x and <=1020.表达式“Windows”Like “W_*_s”的结果为：(A)indow(B)FALSE(C)Windows(D)TRUE在线考试——正在答题作业提交21.下列语句正确的是(A)x=1; y=2; z=3(B)x=1 y=2 z=3(C)x=1, y=2, z=3(D)x=1 : b=2: z=32.下列语句哪个为二维数组的定义语句：(A)dim g [2,3](B)dim g[2][3](C)dim g(2 ,3)(D)dim g(2)(3)3.设a = “Visual Basic”，下面使b=”Basic”的语句是(A)b=left(a,8,12)(B)b=mid(a,8,5)(C)b=right(a,5,5)(D)b=left(a,8,5)4.求平方根的数学函数名为：(A)Math.Abs(B)Math.Sqr(C)Math.Exp(D)Math.PI5.获取字符串子串的函数为：(A)Mid(string)(B)Istr(string1,string2)(C)Trim(string)(D)LTrim(string)6.设置窗体有可见边框及标题栏，无最小化和最大化按钮，不能调整大小，BorderStyle属性应该设置为(A)2-Sizable(B)0-None(C)1-Fixed Single(D)3-Fixed Dialog7.窗体Caption属性的含义为(A)决定窗体标题栏显示的内容(B)设置窗体的大小(C)设置窗体的边框样式(D)决定是否显示窗体的控制菜单图标8.去掉字符串前后空格的函数为：(A)Mid(string)(B)LTrim(string)(C)Istr(string1,string2)(D)Trim(string)9.获取当前系统日期和时间的函数名为：(A)Now(B)Today(C)IsDate(D)TimeOfDate10.语句format(1234.5678 , ”####.00”)的结果为：(A)1234.56”(B)1234.55(C)1234.56(D)1234.5711.下列说法正确的是(A)静态局部变量是在过程中用static语句声明的(B)局部变量的作用域仅限于声明它的过程(C)局部变量在声明它的过程执行完毕后就被释放了(D)局部变量是指那些在过程中用Dim语句或Static语句声明的变量12.隐藏窗体所需要设置的属性是(A)ShowInTaskbar(B)Enable(C)Movable(D)Visible13.文本框控件的值是哪个属性(A)Caption(B)Value(C)Index(D)Name14.获取当前系统日期的函数名为：(A)Date(B)Now(C)TimeOfDate(D)IsDate15.引用对象的属性和方法使用的符号为：(A)小数点( . )(B)减号( - )(C)箭头（->）(D)冒号( : )16.VB提供控件的窗口是(A)文本框(B)工具箱(C)工具栏(D)属性窗口17.数学表达式sin30°写成VB的表达式为(A)sin30(B)sin(30)(C)sin(30°)(D)sin(30*3.14/180)18.窗体ControlBox属性的含义为(A)设置窗体的大小(B)决定是否显示窗体的控制菜单图标(C)决定窗体标题栏显示的内容(D)设置窗体的边框样式19.下列赋值语句正确的是(A)a=2×b(B)x=y+z(C)-b=a(D)y/z=a20.语句format(123.4567,”0000.00”)的结果为：(A)“0123.45”(B)“0123.46”(C)”123.45”(D)”123.46”在线考试——正在答题作业提交31.程序代码：text1.text = “UESTC”中，Text1,Text,“UESTC”分别代表( )(A)对象，方法，属性(B)对象，值，属性(C)对象，属性，值(D)属性，对象，值2.在窗体上按下鼠标左键时产生的事件是(A)KeyDown(B)MouseMove(C)MouseUp(D)MouseDown3.在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：(A)感叹号(B)减号(C)星号(D)加号4.修改控件属性，一般可以使用属性窗口，也可以通过什么形式赋值(A)代码(B)对象(C)方法(D)命令5.窗体的Load事件的触发时机是(A)窗体被加载时(B)用户单击窗体时(C)窗体显示之后(D)窗体被卸载时6.InputBox函数返回值的类型是(A)逻辑型(B)字符串(C)整数(D)日期型7.UBOUND函数的作用是(A)获取数组的下界(B)获取数组的长度(C)获取数组的上界(D)获取数组的维度8.按照变量的作用域可将变量划分为(A)动态、常熟、静态(B)公有、私有、系统(C)全局变量、模块级变量、过程级变量(D)Public、Private、Protected9.Dim arr(15)所定义的数组元素个数是(A)17(B)15(C)16(D)1410.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是(A)代码窗口(B)工程资源管理器窗口(C)窗体设计(D)属性窗口11.控件共有的属性是(A)Name(B)Caption(C)Text(D)Autosize12.能够改变标签显示标题的属性是(A)Caption(B)Name(C)Border(D)Text13.动态数组需要以下哪个关键字重新定义(A)Private(B)ReDim(C)DIM(D)Public14.如下数组声明语句，正确的是(A)Dim a[1,1] as interger(B)Dim a(2,2) as integer(C)Dim a(n,n) as integer(D)Dim a(4 4) as integer15.如果将文本框的什么属性设置为False，则运行时不能进行文本编辑(A)TabStop(B)MultiLine(C)Enabled(D)Visible16.键盘事件的执行顺序是(A)KeyPress,KeyDown,KeyUp(B)KeyDown,KeyPress,KeyUp(C)KeyUp,KeyDown,KeyPress(D)KeyUp,KeyPress,KeyDown17.下列语句不正确的是(A)使用ReDim语句可以改变数组的每一维的大小(B)使用ReDim语句可以改变数组的类型(C)使用ReDim语句可以对数组的所有元素进行初始化(D)使用ReDim语句可以改变数组的维数18.当运行程序时，系统自动执行启动窗体的(A)Load事件过程(B)Click事件过程(C)GotFocus事件过程(D)Unload事件过程19.如果想让文本框中的内容在运行时不能编辑，需设置文本框的属性是(A)MultiLine(B)Tabstop(C)Enabled(D)Visible20.msgbox函数的返回值类型是(A)日期型(B)字符串(C)逻辑型(D)MsgBoxResult。

答案+我名字作业1．当拖动滚动条中的滚动块时，将触发滚动条的事件是（）。

A.MoveB.SetFocusC.ScrollD.Change您的答案：题目分数：5此题得分：02．在Visual Basic中,以下选项中表示单击事件的是（）。

A.KeyUpB.ClickC.ActivateD.Load您的答案：题目分数：5此题得分：03．在Visual Basic6.0中规定工程文件的扩展名是（）。

A.vbpB.forC.frmD.bas题目分数：5此题得分：04．选出下列错误填充：VB是（）程序设计语言。

A.可视化B.面向对象C.面向过程D.事件驱动机制您的答案：题目分数：5此题得分：0作业总得分：0作业总批注：作业1．Sqr(81)+Fix(3.6)的值是（）。

A.12B.7C.8D.9您的答案：题目分数：5此题得分：02．4、在Select判断结构中，下面的表述中不正确的是（）。

A.Case 1B.Case a > 5C.Case 3 To 6您的答案：题目分数：5此题得分：03．在VB语言中，实现字符串拼接的运算符是（）。

A.＊B.&C.$D.\您的答案：题目分数：5此题得分：04．VB窗体设计器的主要功能是（）。

A.建立用户界面B.画图C.编辑文字D.编写程序代码您的答案：题目分数：5此题得分：0作业总得分：0作业总批注：作业1．为了隐藏一个窗体，所使用的方法为（）。

A.LoadC.HideD.UnLoad您的答案：题目分数：5此题得分：02．以下叙述中错误的是。

A.在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）B.在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视做不同的数字（具有不同的KeyCode）C.KeyPress事件中不能识别键盘上某个键的按下与释放D.KeyPress事件中可以识别键盘上某个键的按下与释放您的答案：题目分数：10此题得分：03．在VB中,用Boolean来表示的数据类型是（）。

答案+我名字在线考试——正在答题作业提交11.表达式2\2 * 2/2 * 2 mod 2的结果是(A) 0(B) 25(C) 5(D) 12.下列自定义标识符中非法的是：(A) Me(B) My(C) third(D) fIRst3.表达式“A”Like “[A-Z]”的结果为：(A) A(B) Z(C) TRUE(D) FALSE4.表达式x >= 20 and x<= 100，其中x=37时，结果为：(A) 100(B) 20(C) TRUE(D) flase5.逻辑表达式1>0 and Not 2<7 or 2>6的值为(A) 0(B) FALSE(C) 3(D) TRUE6.表达式x /=2 ,其中x = 24，运算后x的取值为：(A) 12(B) 6(C) 48(D) 247.下列可以作为VB变量的是：(A) a(x*y)(B) 学生信息(C) 1xyz(D) second8.表达式x *=2 ,其中x = 25，运算后x的取值为：(A) 50(B) 625(C) 25(D) 279.表达式100 mod 12 的结果为：(A) 10(B) 4(C) 8(D) 610.下列自定义标识符中合法的是：(A) 1My(B) class(C) forth(D) @home11.表达式4<< 3 的结果为：(A) 8(B) 4(C) 32(D) 1612.表达式“张三”Like “张_*”的结果为：(A) 张(B) TRUE(C) FALSE(D) 张三13.后缀为.vbp的文件表示VB的(A) 类模块文件(B) 窗体文件(C) 标准类模块文件(D) 工程文件14.下列变量名合法的是(A) a_2(B) a-b(C) 2xy(D) float15.后缀为.bas的文件表示VB的(A) 工程文件(B) 窗体文件(C) 类模块文件(D) 标准类模块文件16.下列语句是二维数组引用的是：(A) g(2)(3)(B) g(2,3)(C) g[2,3](D) g[2][3]17.同一行中书写多个语句的间隔符号为：(A) 冒号( : )(B) 箭头（->）(C) 小数点( . )(D) 减号( - )18.表达式1 + 25\ 6 * 2 / 3 mod 4 的值是(A) 1(B) 0(C) 3(D) 219.数据关系3<x≤10表示成正确的VB表达式为(A) 3<x<=10(B) 3<x and x<=10(C) 3<x or x<=10(D) 3<x and <=1020.表达式“Windows”Like “W_*_s”的结果为：(A) indow(B) FALSE(C) Windows(D) TRUE在线考试——正在答题作业提交21.下列语句正确的是(A) x=1; y=2; z=3(B) x=1 y=2 z=3(C) x=1, y=2, z=3(D) x=1 : b=2: z=32.下列语句哪个为二维数组的定义语句：(A) dim g [2,3](B) dim g[2][3](C) dim g(2 ,3)(D) dim g(2)(3)3.设a = “Visual Basic”，下面使b=”Basic”的语句是(A) b=left(a,8,12)(B) b=mid(a,8,5)(C) b=right(a,5,5)(D) b=left(a,8,5)4.求平方根的数学函数名为：(A) Math.Abs(B) Math.Sqr(C) Math.Exp(D) Math.PI5.获取字符串子串的函数为：(A) Mid(string)(B) Istr(string1,string2)(C) Trim(string)(D) LTrim(string)6.设置窗体有可见边框及标题栏，无最小化和最大化按钮，不能调整大小，BorderStyle属性应该设置为(A) 2-Sizable(B) 0-None(C) 1-Fixed Single(D) 3-Fixed Dialog7.窗体Caption属性的含义为(A) 决定窗体标题栏显示的内容(B) 设置窗体的大小(C) 设置窗体的边框样式(D) 决定是否显示窗体的控制菜单图标8.去掉字符串前后空格的函数为：(A) Mid(string)(B) LTrim(string)(C) Istr(string1,string2)(D) Trim(string)9.获取当前系统日期和时间的函数名为：(A) Now(B) Today(C) IsDate(D) TimeOfDate10.语句format(1234.5678 , ”####.00”)的结果为：(A) 1234.56”(B) 1234.55(C) 1234.56(D) 1234.5711.下列说法正确的是(A) 静态局部变量是在过程中用static语句声明的(B) 局部变量的作用域仅限于声明它的过程(C) 局部变量在声明它的过程执行完毕后就被释放了(D) 局部变量是指那些在过程中用Dim语句或Static语句声明的变量12.隐藏窗体所需要设置的属性是(A) ShowInT askbar(B) Enable(C) Movable(D) Visible13.文本框控件的值是哪个属性(A) Caption(B) Value(C) Index(D) Name14.获取当前系统日期的函数名为：(A) Date(B) Now(C) TimeOfDate(D) IsDate15.引用对象的属性和方法使用的符号为：(A) 小数点( . )(B) 减号( - )(C) 箭头（->）(D) 冒号( : )16.VB提供控件的窗口是(A) 文本框(B) 工具箱(C) 工具栏(D) 属性窗口17.数学表达式sin30°写成VB的表达式为(A) sin30(B) sin(30)(C) sin(30°)(D) sin(30*3.14/180)18.窗体ControlBox属性的含义为(A) 设置窗体的大小(B) 决定是否显示窗体的控制菜单图标(C) 决定窗体标题栏显示的内容(D) 设置窗体的边框样式19.下列赋值语句正确的是(A) a=2×b(B) x=y+z(C) -b=a(D) y/z=a20.语句format(123.4567,”0000.00”)的结果为：(A) “0123.45”(B) “0123.46”(C) ”123.45”(D) ”123.46”在线考试——正在答题作业提交31.程序代码：text1.text = “UESTC”中，Text1,Text,“UESTC”分别代表( )(A) 对象，方法，属性(B) 对象，值，属性(C) 对象，属性，值(D) 属性，对象，值2.在窗体上按下鼠标左键时产生的事件是(A) KeyDown(B) MouseMove(C) MouseUp(D) MouseDown3.在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：(A) 感叹号(B) 减号(C) 星号(D) 加号4.修改控件属性，一般可以使用属性窗口，也可以通过什么形式赋值(A) 代码(B) 对象(C) 方法(D) 命令5.窗体的Load事件的触发时机是(A) 窗体被加载时(B) 用户单击窗体时(C) 窗体显示之后(D) 窗体被卸载时6.InputBox函数返回值的类型是(A) 逻辑型(B) 字符串(C) 整数(D) 日期型7.UBOUND函数的作用是(A) 获取数组的下界(B) 获取数组的长度(C) 获取数组的上界(D) 获取数组的维度8.按照变量的作用域可将变量划分为(A) 动态、常熟、静态(B) 公有、私有、系统(C) 全局变量、模块级变量、过程级变量(D) Public、Private、Protected9.Dim arr(15)所定义的数组元素个数是(A) 17(B) 15(C) 16(D) 1410.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是(A) 代码窗口(B) 工程资源管理器窗口(C) 窗体设计(D) 属性窗口11.控件共有的属性是(A) Name(B) Caption(C) Text(D) Autosize12.能够改变标签显示标题的属性是(A) Caption(B) Name(C) Border(D) Text13.动态数组需要以下哪个关键字重新定义(A) Private(B) ReDim(C) DIM(D) Public14.如下数组声明语句，正确的是(A) Dim a[1,1] as interger(B) Dim a(2,2) as integer(C) Dim a(n,n) as integer(D) Dim a(4 4) as integer15.如果将文本框的什么属性设置为False，则运行时不能进行文本编辑(A) TabStop(B) MultiLine(C) Enabled(D) Visible16.键盘事件的执行顺序是(A) KeyPress,KeyDown,KeyUp(B) KeyDown,KeyPress,KeyUp(C) KeyUp,KeyDown,KeyPress(D) KeyUp,KeyPress,KeyDown17.下列语句不正确的是(A) 使用ReDim语句可以改变数组的每一维的大小(B) 使用ReDim语句可以改变数组的类型(C) 使用ReDim语句可以对数组的所有元素进行初始化(D) 使用ReDim语句可以改变数组的维数18.当运行程序时，系统自动执行启动窗体的(A) Load事件过程(B) Click事件过程(C) GotFocus事件过程(D) Unload事件过程19.如果想让文本框中的内容在运行时不能编辑，需设置文本框的属性是(A) MultiLine(B) Tabstop(C) Enabled(D) Visible20.msgbox函数的返回值类型是(A) 日期型(B) 字符串(C) 逻辑型(D) MsgBoxResult。

西电《V程序设计》在线作业一、单选题（共 25 道试题，共 100 分。

）1. 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为ommn1的命令按钮。

窗体Form1的程序代码如下： Privt Su ommn1_lik() im s Intgr =10 ll g(Form2,) n Su Privt Su g(f s Form,x s Intgr) y=IIf(x>10,100,-100) f,Show f.ption=y n Su 运行以上程序，正确的结果是. Form1的ption属性值为100. Form2的ption属性值为-100. Form1的ption属性值为-100. Form2的ption属性值为100正确答案：2. 在窗体上画一个名称为Fil1的文件列表框，并编写如下程序： Privt Su Fil1_llik() x=Shll(Fil1.FilNm,1) n Su 以下关于该程序的叙述中，错误的是(). 13. 14. 27. 16正确答案：3. Su过程与Funtion过程最根本的区别是()。

. Su过程可以使用ll语句或直接使用过程名调用，而Funtion过程不可以。

. Funtion过程可以有参数，Su过程不可以。

. 两种过程参数的传递方式不同。

. Su过程的过程名不能返回值，而Funtion过程能够通过过程名返回值。

正确答案：4. 以下叙述中错误的是(). 在KyPrss事件过程中不能识别键盘的按下与释放. 在KyPrss事件过程中不能识别回车键. 在Kyown和KyUp事件过程中，将键盘输入的""和""视作相同的字母. 在Kyown和KyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符正确答案：5. 若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是(). kolor. orrStyl. Forolor. kStyl正确答案：6. 以下能在窗体Form1的标题栏中显示“Visulsi窗体"的语句是(). Form1.Nm="Visulsi窗体". Form1.Titl="Visulsi窗体". Form1.ption="Visulsi窗体". Form1.Txt="Visulsi窗体”正确答案：7. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为() . T>=1.7 n W<=62.5. T<=1.7 Or W>=62.5. T>1.7 n W<62.5. T>=1.7 Or W<62.5正确答案：8. 以下关于多重窗体程序的叙述中，错误的是(). 用Hi方法不但可以隐藏窗体，而且能清除内存中的窗体. 在多重窗体程序中，各窗体的菜单是彼此独立的. 在多重窗体程序中，可以根据需要指定启动窗体. 对于多重窗体程序中，而且单独保存每个窗体正确答案：9. 以下关于Msgox的叙述中，错误的是(). Msgox函数返回一个整数. 通过Msgox函数可以设置信息框中图标和按钮的类型. Msgox语句没有返回值. Msgox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量正确答案：10. 当对被选择的控件进行对齐、调整大小等操作时，将以()为准。

第1章概述二．选择题：1.C2. B.3.C.4.C.5.A6.C7.D8.B9.B 10.B11.A12.C 13.D 14.C 15.D16.A17.C 18.A19.A20.D 21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．Sub Form_Click( )Label1.Caption = “你单击了窗体”End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体”End Sub第2章面向对象编程基础二．选择题：1.C2. C.3.B.4.B.5.D6.D7.B8.B9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B三．填空题：1.窗体，控件2.属性，事件，方法mand2_click4.picture5.中部，代码四．编程及上机调试：1．Private Sub Command1_Click()Form1.WindowState = 2End SubPrivate Sub Command2_Click()Form1.WindowState = 0Private Sub Command3_Click()Form1.WindowState = 1End Sub2．Private Sub Command1_Click()Form1.Picture = LoadPicture("d:\picture\flower.wmf")Command1.V isible = FalseCommand2.V isible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()Form1.Picture = LoadPicture("")Command1.V isible = TrueCommand2.V isible = TrueEnd Sub第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A13.C 14.B 15.D16.D 17.C 18.A19.D 20.A21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.V alue = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.V alue = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click()If Check1.V alue = 1 ThenText1.FontUnderline = True ElseText1.FontUnderline = False End IfEnd SubPrivate Sub Command1_Click() Text1.Text = " "End Sub2.Private Sub Command1_Click() Text2.Text = List1.ListCount End SubPrivate Sub Command2_Click() List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click() Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCount End SubPrivate Sub Form_Load()Command3.Enabled = False End SubPrivate Sub List1_Click()Command3.Enabled = True End Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A15.A16.C 17.D 18.A19.B 20.D21.C 22.A23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case Is >=10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoopPrint sEnd Sub第6章数组二．单选题：1.A2.A.3.A4.C5.D6.D7.A8.D9.B 10.B四.编程及上机调试:1.Option Base 1Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, t As IntegerPrint "数组的原始数据为：";For i = 1 To 10a(i) = Int(11 * Rnd) + 10Print a(i);Next iPrintPrint "变化后数组数据为：";For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer RandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(90 * Rnd + 10)Print a(i, j);Next jPrintNext iMax = a(1, 1): k = 1: p = 1For i = 1 To 3For j = 1 To 4If a(i, j) > Max ThenMax = a(i, j)k = ip = jEnd IfNext jNext iPrint "最大的数为第" & k & "行，第" & p & "列的数：" & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() '"生成数组"按钮RandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10) '一位的随机数Picture1.Print a(i, j); '输出元素Next jPicture1.PrintNext iEnd SubPrivate Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integertxtcol.Text = ""For j = 1 To 5 '列变量先循环colsum = 0For i = 1 To 4colsum = colsum + a(i, j)Next itxtcol.Text = txtcol.Text & Str(colsum)Next jEnd SubPrivate Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integertxtrow.Text = ""For i = 1 To 4 '行变量先循环rowsum = 0For j = 1 To 5rowsum = rowsum + a(i, j)Next jtxtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLf Next iEnd SubPrivate Sub cmdclear_Click() '"清除"按钮Picture1.Clstxtcol.Text = ""txtrow.Text = ""End SubPrivate Sub cmdexit_Click() '"结束"按钮EndEnd Sub4. Option Base 1Private Sub Form_Click()Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")Do While Not IsNumeric(x)x = Int(InputBox("第一维上界"))Loopy = InputBox("第二维上界")Do While Not IsNumeric(x)y = Int(InputBox("第二维上界"))LoopReDim a(x, y)Print "原数组元素为："For i = 1 To xFor j = 1 To ya(i, j) = Int(90 * Rnd) + 10Print a(i, j);Next jPrintNext iPrint "转置后数组元素为："For i = 1 To yFor j = 1 To xPrint a(j, i);Next jPrintNext iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Thena(i, j) = 0Elsea(i, j) = 1End IfPrint a(i, j);Next jPrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integerj = 1For i = 3 To 21 Step 2a(j) = iPrint a(j);j = j + 1Next iPrintn = InputBox("请输入一个数")For i = 1 To 10If n = a(i) ThenFor j = i To 10a(j) = a(j + 1)k = k + 1Next jEnd IfNext iFor i = 1 To 9Print a(i);Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As V ariant, k As Integer, i As Integer, j As IntegerDim b As V ariantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 '对数组a的元素排序k = iFor j = i + 1 To 10If a(k) > a(j) Then k = jNext jIf k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)a(i) = a(k)a(k) = tt = b(i)b(i) = b(k)b(k) = tEnd IfNext iPrint "按名字的排列顺序为："For i = 1 To 10If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为２的编号前的"0"Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)Next iEnd Sub第7章过程二、单选题1.C2. D3.C4.D5. B6.A7. B8.B9.C 10.D11.C 12.D 13.B 14.B 15.C16.A17.B 18.B三、填空题1．52 512．4 118 353．1 3 5四.编程及上机调试:1. Private Sub Command1_Click()Dim n As IntegerFor n = 100 To 1600 Step 500Print "n="; n; "时π的近似值是："; pi(n)Next nEnd SubPrivate Function pi(x As Integer) As SingleDim s As Single, k As Integer, m As Integers = 0k = 1m = 1Dos = s + m / km = -mk = k + 2Loop While k <= xpi = 4 * sEnd FunctionPrivate Sub Command2_Click()EndEnd Sub2. Private Sub Command1_Click()Dim x As Integer, i As Integerx = V al(Text1)For i = 1 To xIf prime(i) And prime(x - i) ThenLabel2 = Str(x) & "是" & Str(i) & "和" & Str(x - i) & "两个素数之和"Exit SubEnd IfNext iEnd SubPrivate Function prime(x As Integer) As BooleanFor i = 2 To Int(Sqr(x))If x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNext iprime = TrueEnd FunctionPrivate Sub Command2_Click()EndEnd Sub3. Option ExplicitOption Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()RandomizeDim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Text1 = Text1 + Str(a(i))Next iCall sort(a)For i = 1 To 10Text2 = Text2 + Str(a(i))Next iEnd SubPrivate Sub sort(a() As Integer)Dim k As Integer, i As Integer, j As Integer, t As Integer k = UBound(a)For i = 1 To k - 1For j = i + 1 To kIf a(i) < a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub4. Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, s As IntegerFor i = 2 To 1000S=0For j=1 To i - 1If I mod j=0 Then s=s+jNext jIf s=i Then Print I,Next iEnd Sub5. Public a(10) As IntegerPublic Sub sort(a() As Integer)Dim i As Integer, j As Integer, t As IntegerFor i = 1 To UBound(a) - 1For j = i + 1 To UBound(a)If a(i) > a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd SubPublic Function max(a() As Integer) As Integermax = a(1)For i = 2 To UBound(a)If max < a(i) Thenmax = a(i)End IfNext iEnd Function窗体Form1代码Private Sub Command1_Click()Dim i As IntegerRandomizeFor i = 1 To UBound(a)a(i) = Int(Rnd * 90) + 11Text1 = Text1 & Str(a(i))Next iEnd SubPrivate Sub Command2_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command3_Click()Text2 = max(a)End SubPrivate Sub Command4_Click()EndEnd Sub窗体Form2代码Private Sub Command1_Click()Call sort(a)For i = 1 To UBound(a)Text1 = Text1 & Str(a(i))Next iEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub第8章程序调试二．上机调试题1. Option ExplicitPrivate Sub Form_Click()Dim a() As Single, i As IntegerDim y As Singlei = 1DoReDim a(i) …改为ReDim Preserve A(I) a(i) = 1 / fib(i)If a(i) <= 0.0001 Then Exit Do …改为a(i) < 0.0001 y = y + a(i)i = i + 1LoopPrint "y="; yFor i = 1 To UBound(a)Print a(i);Next iEnd SubPrivate Function fib(i As Integer) As IntegerIf i = 1 Thenfib = 1ElseIf i = 2 Thenfib = 2ElseFib（i）= fib(i - 1) + fib(i - 2) …改为Fib=Fib(I-1)+Fib(I-2) End IfEnd Function2. Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, k As Integer, st As StringFor i = 10 To 500If wanshu(i) Thenst = CStr(i)Text1.Text = Text1.Text & stCall test(st)Text1.Text = Text1.Text & Chr(13) & Chr(10)End IfNext iEnd SubPrivate Function wanshu(n As Integer) As BooleanDim i As Integer, sum As IntegerFor i = 2 To n – 1 …改为i=1If n Mod i = 0 Thensum = sum + iEnd IfNext iIf sum = n Then wanshu = TrueEnd FunctionPrivate Sub test(s As String)Dim i As Integer, sum As Integersum = 0 …位置错，和for 语句位置调换Do While Len(s) > 1For i = 1 To Len(s)sum = sum + V al(Mid(s, i, 1))Next iText1.Text = Text1.Text & "->" & Str(sum)s = Str(sum) … 改为s = CStr(sum) LoopEnd Sub第9章数据文件一、单选题1．B 2．C 3．A 4．B 5．C6．B 7．C 8．B 9．10．A11. 12.A13. 14. 15.A16.B二、编程及上机调试1．Private Sub Form_Load()Open "d:\my\text2.txt" For Output As #1End SubPrivate Sub Text1_keyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Trim(Text1) = "0000" ThenClose #1EndEnd IfWrite #1, Text1Text1.Text = ""End IfEnd Sub2．Option ExplicitPrivate Type Studentname As String * 10age As IntegerEnd TypePrivate Sub Command1_Click()Dim Stu As StudentOpen "d:\my\text2.txt" For Random As #1 Len = Len(Stu) = "WangY ing"Stu.age = 20Put #1, , StuClose #1Open "d:\my\text2.txt" For Random As #1 Len = Len(Stu)Get #1, , StuPrint "姓名：", Print "年龄：", Stu.ageClose #1End Sub第10章其它控件二、选择题1．B 2．B 3．B 4．C 5．6．A,C 7．A 8．9．10．11. 12.B 13.三、填空题1．菜单编辑器2．下拉式菜单弹出式3．顶4．PopupMenu5．多文档窗体6．MDIChild7．Private Sub HScroll1_Change()text1 = HScroll1.V alueEnd SubPrivate Sub HScroll1_Scroll()text1 = HScroll1.V alueEnd Sub8．Private Sub Toolbar1_ButtonClick(ByV al Button As MSComctlLib.Button) Select Case Button.IndexCase 1Form1.BackColor = vbRedCase 2Form1.BackColor = vbGreenCase 3Form1.BackColor = vbBlueEnd SelectEnd Sub四、编程及上机调试1．Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Button = 1 ThenPicture1.PSet (X, Y)StatusBar1.Panels(1) = "X=" & XStatusBar1.Panels.Item(2) = "Y=" & YEnd IfEnd Sub2．Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.InitDir = "D:\"CommonDialog1.Filter = "Word Files|*.doc|文本文件|*.Txt" '设置过滤器CommonDialog1.DialogTitle = "打开文件" '设置打开对话框的标题CommonDialog1.Action = 1 '创建"打开"对话框If CommonDialog1.FileName = "" Then '判断文件名是否为空MsgBox "没有选择文件", 37, "检查" '若为空，则显示信息ElseOpen CommonDialog1.FileName For Input As #1 '打开选定的文件Do While Not EOF(1)Line Input #1, a$ '读文件的一行Text1 = Text1 & a$ & vbCrLf '输出所读的内容LoopEnd IfEnd SubPrivate Sub Command2_Click()CommonDialog1.Flags = 3 '列出打印机和屏幕字体CommonDialog1.Action = 4 '打开"字体"对话框Text1.FontName = CommonDialog1.FontName '改变文本框的字体Text1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontUnderline = CommonDialog1.FontUnderline End SubPrivate Sub Command3_Click()EndEnd Sub11章略。

vb程序设计课后习题答案VB程序设计课后习题答案在学习VB程序设计过程中，课后习题是巩固知识、提高编程能力的重要环节。

本文将为大家提供一些VB程序设计课后习题的答案，希望能够帮助大家更好地理解和掌握相关知识。

1. 编写一个VB程序，实现计算两个数的和、差、积、商的功能。

答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)lblSum.Caption = "和：" & num1 + num2lblDifference.Caption = "差：" & num1 - num2lblProduct.Caption = "积：" & num1 * num2If num2 <> 0 ThenlblQuotient.Caption = "商：" & num1 / num2ElselblQuotient.Caption = "除数不能为0"End IfEnd Sub```2. 编写一个VB程序，实现判断一个数是否为素数的功能。

答案：```vbPrivate Sub btnCheckPrime_Click()Dim num As IntegerDim i As IntegerDim isPrime As Booleannum = CInt(txtNum.Text)isPrime = TrueIf num < 2 ThenlblResult.Caption = "不是素数"Exit SubEnd IfFor i = 2 To Int(Sqr(num))If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNext iIf isPrime ThenlblResult.Caption = "是素数"ElselblResult.Caption = "不是素数"End IfEnd Sub```3. 编写一个VB程序，实现将一个字符串中的大写字母转换为小写字母，小写字母转换为大写字母的功能。