《VB程序设计》期末模拟试卷-I 一、判断正误(对的打√号,错的打X号,每题1分,共10分) ()1. Visual basic是基于 Windows环境的一种可视化的程序设计语言,采 用了事件驱动的编程机制,因而不同于以往面向过程的程序设计语言,编程效率 得到了很大地提高。 ()2.ⅦB可以使用 ActiveX控件,但不能开发 ActiveX控件 ()3.窗体卸载前最后会自动发生 UNLOAD事件,通常情况下,我们都是使用 该事件停止对窗体的卸载。 ()4.在VB的过程内只能声明过程级变量 ()5.WB中双精度数的有效数字位数要比单精度数多,数据的表示范围也比 单精度数大。 ()6.当 PictureBox控件的 Autosize属性值为True时,图片会自动伸缩以 适应图片框。 ()7. MouseMove事件仅在鼠标按钮被按下时发生,按钮没按下时则不会产生。 ()8.用鼠标才能产生控件的 Click事件,用键盘无法产生。 ()9.把窗体上定时器控件的 Visible属性置为Tue时,则该窗体上就会出 现显示计算机中时间的数字时钟。 ()10.由于在 Circle方法中没有提供专门用于填充的参数,因此,使用该方 法不能绘制填充了颜色的圆。 、单项选择(请将答案填在每题前面的括号内,每题1分,共15分) ()1 是对象的一个基本要素,它描述了对象在程序中的外观特点 A.事件B.属性C.方法D.事件程序 ()2.以下四个VB的变量名中,合法的是 A. Sum B. RSe C. Print D. 3xy ()3.在程序中使用 Dim strl,str2 As long语句对变量strl、str2进行声 明后,下面正确的说法是 A.strl是整型,str2是长整型 B.strl是长整型,str2变体型 C.strl、str2都是长整型 D.strl是变体型,str2是长整型 ()4.下面各语句中,错误的语句是 A.DimA1,A2B.(A+B)=CC.A=BCD.A=”B”+C ()5.在声明一个过程中必须有的是 A. Private关键字B.SUB关键字C.返回值类型说明D.参数 ()6.VB中,7\2的运算结果是 A.3B.1C.3.5D.无此运算符 ()7.(&o36>31)and(“A”>”B”)的结果是
《VB 程序设计》期末模拟试卷-Ⅰ 一、判断正误（对的打√号，错的打 X 号，每题 1 分，共 10 分） （ ）1. Visual BASIC 是基于 Windows 环境的一种可视化的程序设计语言，采 用了事件驱动的编程机制，因而不同于以往面向过程的程序设计语言，编程效率 得到了很大地提高。 （ ）2. VB 可以使用 ActiveX 控件，但不能开发 ActiveX 控件。 （ ）3. 窗体卸载前最后会自动发生 UNLOAD 事件，通常情况下，我们都是使用 该事件停止对窗体的卸载。 （ ）4. 在 VB 的过程内只能声明过程级变量。 （ ）5. VB 中双精度数的有效数字位数要比单精度数多，数据的表示范围也比 单精度数大。 （ ）6. 当 PictureBox 控件的 AutoSize 属性值为 True 时，图片会自动伸缩以 适应图片框。 （ ）7. MouseMove 事件仅在鼠标按钮被按下时发生，按钮没按下时则不会产生。 （ ）8. 用鼠标才能产生控件的 Click 事件，用键盘无法产生。 （ ）9. 把窗体上定时器控件的 Visible 属性置为 True 时，则该窗体上就会出 现显示计算机中时间的数字时钟。 （ ）10. 由于在 Circle 方法中没有提供专门用于填充的参数，因此，使用该方 法不能绘制填充了颜色的圆。 二、单项选择（请将答案填在每题前面的括号内，每题 1 分，共 15 分） （ ）1．_________是对象的一个基本要素，它描述了对象在程序中的外观特点。 A. 事件 B. 属性 C. 方法 D. 事件程序 （ ）2．以下四个 VB 的变量名中，合法的是_________。 A. Sum B. R$e C. Print D. 3xy （ ）3．在程序中使用 Dim str1,str2 As Long 语句对变量 str1、str2 进行声 明后，下面正确的说法是_________。 A. str1 是整型，str2 是长整型 B. str1 是长整型，str2 变体型 C. str1、str2 都是长整型 D. str1 是变体型，str2 是长整型 （ ）4．下面各语句中，错误的语句是_________。 A．Dim A1,A2 B．(A+B)=C C．A=B+C D．A=”B”+C （ ）5．在声明一个过程中必须有的是_________。 A．Private 关键字 B．SUB 关键字 C．返回值类型说明 D．参数 （ ）6．VB 中，7 \ 2 的运算结果是_________。 A．3 B．1 C．3.5 D．无此运算符 （ ）7．(&o36>31)and (“A”>”B”) 的结果是_________
A. True B. False c.”8o3631AB”D.&o3631 ()8.表达式“100”+100和表达式“100”&100的值分别是 A.200、200 B.“100100”、“100100” C.200、“100100 D.“100100”、200 ()9.把 Forml的标题改为“文档资料”的语句是 A. FormI.Text=“文档资料” B.Form1.Text=文档资料 C.Form1. Caption=“文档资料 D. Forml. Title=“文档资料” ()10.下面在文本框Text1内显示变量ST内容的语句是 A. ST=Text1. Text b. Text show st C. Textl Text=ST D. Text. TextI=ST ()11.DimA(5,10) As Integer声明了 个整数单元 A.66B.6C.5D.50 ()12.要在设计的菜单中出现分隔条需要 A.在标题框内输入 B.在标题框内输入"一"C.在名称框内输入"一"D.在名称框内输入"& ()13.要把菜单降低一个级别成为下一级子菜单,应在菜单编辑器中按下 按钮 A.↓B. C ()14.关于鼠标拖放操作,以下正确的描述是 A.如果不设置被拖动对象的 DragIcon属性,则在程序运行期间用鼠 标拖动该对象时, 用户看不到任何形状的拖动图标。 B.如果不将被拖动对象的 DragMode属性设置为1,则该对象永远也 不能被拖动。 C.若将窗体上的 Imagel(其 DragMode=1)对象拖动到 Image2对象上 并释放鼠标按钮时,将引发 Imagel DragDrop事件。 D.当某个对象的 DragDrop事件发生时,之前必定要发生该对象的 DragOver事件。 ()15.以下关于 PictureBox控件和 Image控件的描述中,错误的选项是 A.设置 Image控件的 stretch属性,可使该控件根据本身的大小来调 整图片的大小。 B. PictureBox控件支持 Print方法,而 Image控件不支持该方法 C. Image控件可作为其他控件的容器 D. PictureBox控件和 Image控件都可以利用 LoadPicture函数在程 序运行阶段装载需要的图片进行显示 三、填空题(每空1分,共20分) 设置对象属性的方法有两种,其一是在设计阶段,在 中直接修改相
A．True B．False C．”&o3631AB” D．&o3631 （ ）8．表达式“100” + 100 和表达式“100” & 100 的值分别是_________。 A. 200、200 B. “100100”、“100100” C. 200、“100100” D. “100100”、200 （ ）9．把 Form1 的标题改为“文档资料”的语句是_________。 A．Form1.Text=“文档资料” B．Form1.Text=文档资料 C．Form1.Caption=“文档资料” D．Form1.Title=“文档资料” （ ）10．下面在文本框 Text1 内显示变量 ST 内容的语句是_________。 A．ST=Text1.Text B．Text1.show ST C．Text1.Text=ST D．Text.Text1=ST （ ）11．Dim A(5,10) As Integer 声明了_________个整数单元 A．66 B. 6 C. 5 D. 50 （ ）12．要在设计的菜单中出现分隔条需要_________。 A．在标题框内输入"— — — — — — — —" B．在标题框内输入"—" C．在名称框内输入"—" D．在名称框内输入"&—" （ ）13．要把菜单降低一个级别成为下一级子菜单，应在菜单编辑器中按下 _________按钮 A．↓ B．← C．↑ D．→ （ ）14．关于鼠标拖放操作，以下正确的描述是_________。 A．如果不设置被拖动对象的 DragIcon 属性，则在程序运行期间用鼠 标拖动该对象时， 用户看不到任何形状的拖动图标。 B．如果不将被拖动对象的 DragMode 属性设置为 1，则该对象永远也 不能被拖动。 C．若将窗体上的 Image1（其 DragMode=1）对象拖动到 Image2 对象上 并释放鼠标按钮时，将引发 Image1_DragDrop 事件。 D．当某个对象的 DragDrop 事件发生时，之前必定要发生该对象的 DragOver 事件。 （ ）15．以下关于 PictureBox 控件和 Image 控件的描述中，错误的选项是 _________。 A．设置 Image 控件的 stretch 属性，可使该控件根据本身的大小来调 整图片的大小。 B．PictureBox 控件支持 Print 方法，而 Image 控件不支持该方法。 C．Image 控件可作为其他控件的容器。 D．PictureBox 控件和 Image 控件都可以利用 LoadPicture 函数在程 序运行阶段装载需要的图片进行显示。 三、填空题（每空 1 分，共 20 分） 1．设置对象属性的方法有两种，其一是在设计阶段，在_________中直接修改相
应属性的值,其二是在应用程序运行时,通过 来动态设置。 2.在WB源程序中,可以包括窗体模块 模块、 模块。工 程(项目)文件的扩展名为 BAS是 文件的扩展名,CLS是 文件的扩展名。 3.WB中的变量类型中,范围在-32768+32767之间的是 只占一个 字节存储空间的是 可以存储EMTY和NUL值的是 4.书写程序时,要在一行内写多个语句,语句间用 间隔;语句前有 个”(单引号)的语句是语句 5.组合框( Combobox)控件是 和 组合而成的一种控件,因 而它兼有这两种控件的特性。 6.表达式b=3XOR(00的值为 (假设a=3 b=4、c=5、d=6、e=7、x=0) 7.函数Val(”12Bc”)的值为 8.在VB程序设计中,通常采用 方法来创建一个弹出式菜单 9.当用户增加、删除或修改文本框( TextBox)的内容时,都会触发文本框的 事件 0.设有如下程序语句: For i =l To 100 Step 7 S=S+1 Next i 在该循环语句中,循环体S=S+1的循环执行次数应为」 11.我们可以通过设置单选按钮的 属性来改变单选按钮的状态。 四、简答题(5分) 1. Visual basic中 Visual的含义是什么?(1分) 2.0 ption Explicit语句应放在何处,功能是什么?(2分) 3.如何创建一个控件数组?(2分) 五、阅读以下各程序段,按要求回答问题(共12分) 1.窗体上含有一个命令按钮控件,并编制如下程序代码(4分) 定义窗体级变量 Public a As Intege Dim B As Integer Private Sub Form Load O Dim c As Integer C=5 A=10 B=20 End Sub Private Sub Commandl Click Dim A As Integer Static D As Integer A=A+1
应属性的值，其二是在应用程序运行时，通过__________来动态设置。 2．在 VB 源程序中，可以包括窗体模块、__________模块、__________模块。工 程（项目）文件的扩展名为________，BAS 是_________文件的扩展名， CLS 是 ________文件的扩展名。 3．VB 中的变量类型中，范围在-32768~+32767 之间的是__________；只占一个 字节存储空间的是_________；可以存储 EMPTY 和 NULL 值的是____________。 4．书写程序时，要在一行内写多个语句，语句间用________间隔；语句前有一 个 ' (单引号)的语句是_____语句。 5．组合框（ComboBox）控件是_______和____________组合而成的一种控件，因 而它兼有这两种控件的特性。 6．表达式 b=3 XOR (00 的值为__________（假设 a=3、 b=4、c=5、d=6、e=7、x=0） 7．函数 Val（”12Bc”）的值为___________。 8．在 VB 程序设计中，通常采用_____________方法来创建一个弹出式菜单。 9．当用户增加、删除或修改文本框（TextBox）的内容时，都会触发文本框的 __________事件。 10．设有如下程序语句： For I =1 To 100 Step 7 S=S+1 Next I 在该循环语句中，循环体 S=S+1 的循环执行次数应为______________。 11．我们可以通过设置单选按钮的___________属性来改变单选按钮的状态。 四、简答题（5 分） 1．Visual BASIC 中 Visual 的含义是什么？（1 分） 2．Option Explicit 语句应放在何处，功能是什么？（2 分） 3．如何创建一个控件数组？（2 分） 五、阅读以下各程序段，按要求回答问题（共 12 分） 1．窗体上含有一个命令按钮控件，并编制如下程序代码（4 分）。 '定义窗体级变量 Public A As Integer Dim B As Integer Private Sub Form_Load() Dim C As Integer C=5 A= 10 B= 20 End Sub Private Sub Command1_Click() Dim A As Integer Static D As Integer A=A+1
B=B+1 C=C+1 A, B, C, D End sub 第一次单击 Commandl输出结果为 第二次单击 Command 1输出结果为 2.新建一个工程后,不对窗体的任何属性进行设置,在窗体的 Form load事件 中加入如下程序代码(2分)。 Private Sub Form Load O Dim s as inte Dim I As Integer S=0 For i=1 to 100 Next i Print s End sub 运行该程序后,窗体上显示的信息为 3.阅读以下程序段,写出X的值(2分) Private Sub Form Click DDA im a as int B As Integer, C As Integer, X As Integer m T As Integer If ac Then X=B Elself a>c then End if Print x End sub 运行该程序后,在窗体上打印的X的值为 4.在窗体上添加文本框控件 TextI并设置其Text属性为“5”,添加标签控件 Labell和命令按钮控件 Comamnd1,并针对 Commandl的 Click事件编制程序如下 (2分)。 Private Sub Commandl Click O Dim n As Integer Dim I As Integer Dim J As Inte
B=B+1 C=C+1 D=D+1 Print A, B, C, D End Sub 第一次单击 Command1 输出结果为: ________，_________，_________，________ 第二次单击 Command1 输出结果为: ________，_________，_________，________ 2．新建一个工程后，不对窗体的任何属性进行设置，在窗体的 Form_Load 事件 中加入如下程序代码（2 分）。 Private Sub Form_Load() Dim S As Integer Dim I As Integer S = 0 For I = 1 To 100 S = S + I Next I Print S End Sub 运行该程序后，窗体上显示的信息为________________ 3．阅读以下程序段，写出 X 的值（2 分） Private Sub Form_Click() Dim A As Integer, B As Integer, C As Integer, X As Integer Dim T As Integer A = 9: B = 4: C = 8 If A C Then X = B ElseIf A > C Then X = C Else X = A End If Print X End Sub 运行该程序后，在窗体上打印的 X 的值为__________ 4．在窗体上添加文本框控件 Text1 并设置其 Text 属性为“5”，添加标签控件 Label1 和命令按钮控件 Comamnd1，并针对 Command1 的 Click 事件编制程序如下 （2 分）。 Private Sub Command1_Click() Dim N As Integer Dim I As Integer Dim J As Integer
Dim s As long N= Val(Textl. Text J=0 S=0 For i=l to Next i Labell Caption Str(S) End sub 运行该程序,并单击窗体上的命令按钮时,标签中显示的内容为 5.以下程序使用 Mousedow事件检测按下的鼠标按钮(2分)。 Private Sub Form MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If But ton =1 Then print You pressed the left but ton If But ton =2 Then Print You Pressed the right button If But ton 4 Then print You pressed the middle but ton End sub 运行该程序后,当我们在窗体上同时按下鼠标左右两个按钮后,窗体上显示的信 息为: 六、阅读以下各程序,在空格处填上合适的内容,使之完成相应的功能(每空2 分,共24分) 1.用文本框显示按钮单击次数,按钮名称属性为 cmd Count,文本框名称属性为 txtShowCount。布置属性窗口如图1所示,请填空完成代码。 口区 计数 图1 Option Explicit Private Sub Form Load() n Count =0 End sub Sub ()’按钮单击
Dim S As Long N = Val(Text1.Text) J = 0 S = 0 For I = 1 To N J = J + I S = S + J Next I Label1.Caption = Str(S) End Sub 运行该程序，并单击窗体上的命令按钮时，标签中显示的内容为_________ 5．以下程序使用 MouseDown 事件检测按下的鼠标按钮（2 分）。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) If Button = 1 Then Print "You Pressed the left button." If Button = 2 Then Print "You Pressed the right button." If Button = 4 Then Print "You Pressed the middle button." End Sub 运行该程序后，当我们在窗体上同时按下鼠标左右两个按钮后，窗体上显示的信 息为：_____________ 六、阅读以下各程序，在空格处填上合适的内容，使之完成相应的功能（每空 2 分，共 24 分） 1．用文本框显示按钮单击次数，按钮名称属性为 cmdCount，文本框名称属性为 txtShowCount。布置属性窗口如图 1 所示，请填空完成代码。 图 1 Option Explicit ______________________ Private Sub Form_Load( ) nCount = 0 End Sub Private Sub_______________( ) '按钮单击
n Count nCount 1 Str( n Count)’显 End Sub 2.本程序计算e=1+1/1!+1/2!+1/3!+…+1/n!+…(只累加大于0.00000的项) Private Sub Form Click Dim E As single, s As Single, N As Integer ENs Do While s>0. 00000 E=E+ S S Printe=, E End Sub 3.该程序用于增加、修改、删除列表框中的项目,窗体中的对象如图2所示。 当我们在列表框中的项目上单击时,该项目即出现在文本框中。单击“增加”按 钮可将文本框中的内容增加到列表框中;在文本框中编辑你所选中的项目后单击 “修改”按钮可用于修改你所选中的列表框中的项目:单击“删除”按钮用于删 除你所选中的列表框中的项目,同时清空文本框 网回区 文本框 增加 修改 图2 Private Sub Form Load o List1. AddItem"青岛大学 List1. AddItem"武汉大学 List1. AddItem"吉林大学 End Sub Private Sub Listl Click 该按钮用于将你所选中的列表框中的项目显示在文本框中
nCount = nCount + 1 ________________= Str(nCount) '显示 End Sub 2．本程序计算 e=1+1/1!+1/2!+1/3!+…+1/n!+… （只累加大于 0.000001 的项） Private Sub Form_Click() Dim E As Single, S As Single, N As Integer E =_________________________ N = 1 S = 1 Do While S > 0.000001 E = E + S S =______________ _________________ Loop Print "e=", E End Sub 3．该程序用于增加、修改、删除列表框中的项目，窗体中的对象如图 2 所示。 当我们在列表框中的项目上单击时，该项目即出现在文本框中。单击“增加”按 钮可将文本框中的内容增加到列表框中；在文本框中编辑你所选中的项目后单击 “修改”按钮可用于修改你所选中的列表框中的项目；单击“删除”按钮用于删 除你所选中的列表框中的项目，同时清空文本框。 图 2 Private Sub Form_Load() List1.AddItem "青岛大学" List1.AddItem "武汉大学" List1.AddItem "吉林大学" End Sub Private Sub List1_Click() '该按钮用于将你所选中的列表框中的项目显示在文本框中
Text1. Text Listl list (list. ListIndex) End sub Private Sub Commandl Click O 该按钮用于将文本框中的内容增加到列表框中 List. Additem End Sub Private Sub Command2 Click O 该按钮用于删除你所选中的列表框中的项目,同时清空文本框 Listl. Removeltem Text. Text End sub Private Sub Command3 Click 在文本框中编辑修改你所选中的项目后单击该按钮 该按钮用于修改你所选中的列表框中的项目 Text Text End sub 4.请使用默认的坐标统在窗体上绘制如图3所示的图形,其中第一个矩形的左 上角的坐标为(800,1000),长为800缇,宽为1000缇;第二个矩形的左上角 的坐标为(2000,1000),长为800缇,宽为1000缇;圆心坐标为(3600,1500), 半径为500缇;半园心坐标为(50,1500),半径为500缇。在绘制图形的代 码中将图形颜色以及填充颜色均设为红色 □旧区 图3 Private Sub Form Click O Const pi 3. 1415926 绘制第一个矩形 ne
Text1.Text = List1.list(list1.ListIndex) End Sub Private Sub Command1_Click() '该按钮用于将文本框中的内容增加到列表框中 List1.AddItem_____________________ End Sub Private Sub Command2_Click() '该按钮用于删除你所选中的列表框中的项目，同时清空文本框 List1.RemoveItem___________________ Text1.Text = "" End Sub Private Sub Command3_Click() '在文本框中编辑修改你所选中的项目后单击该按钮 '该按钮用于修改你所选中的列表框中的项目 ___________________= Text1.Text End Sub 4. 请使用默认的坐标统在窗体上绘制如图 3 所示的图形，其中第一个矩形的左 上角的坐标为（800，1000），长为 800 缇，宽为 1000 缇；第二个矩形的左上角 的坐标为（2000，1000），长为 800 缇，宽为 1000 缇；圆心坐标为（3600，1500）， 半径为 500 缇；半园心坐标为（5000，1500），半径为 500 缇。在绘制图形的代 码中将图形颜色以及填充颜色均设为红色。 图 3 Private Sub Form_Click() Const pi = 3.1415926 '绘制第一个矩形 Line_________________________________________
绘制第二个矩形 Line 绘制圆 Circle (3600, 1500), 500, vbRed 绘制半圆 Irc End sub 七、编程(共12分) 1.使用窗体的鼠标单击事件在窗体上打印出100~999之间所有的“水仙花数”。 所谓“水仙花数”是指一个三位数,其各位数字的立方和等于该数本身,例如 153=13+53+3就是一个“水仙花数”。(3分) 2.编制一个完成除法运算的程序,实现被除数和除数的输入以及计算结果的输 出。画图说明对象窗体,并编写相应程序代码。(5分) 3.有一个数列前两项为1,1,后面的每一项为其前面两项之和,试输出前十项 的值。(4分)
'绘制第二个矩形 Line_________________________________________ '绘制圆 Circle （3600，1500），500，vbRed '绘制半圆 Circle ____________________________________________ End Sub 七、编程（共 12 分） 1．使用窗体的鼠标单击事件在窗体上打印出 100~999 之间所有的“水仙花数”。 所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如 153=13 +53 +33 就是一个“水仙花数”。（3 分） 2．编制一个完成除法运算的程序，实现被除数和除数的输入以及计算结果的输 出。画图说明对象窗体，并编写相应程序代码。（5 分） 3．有一个数列前两项为 1,1，后面的每一项为其前面两项之和，试输出前十项 的值。（4 分）
