1、1Visual Basic 程序设计期末综合练习2008 年 11 月一、单项选择题1一个 VB 应用程序可以包含几个 vbp 文件（A1 个 ） 。 2启动 VB 后，就意味着要建立一个新（ C工程 ） 。3后缀为.bas 的文件表示（ D标准类模块文件 ） 。4当一个工程中含有多个窗体时，其中的启动窗体是（ D在“工程属性”对话框中指定的窗体 ） 。5在文本框控件中将 Text 的内容全部显示为所定义的字符的属性是（B PasswordChar ） 。APassword BPasswordChar C需要编程来实现 D以上都不是6Visual Basic 是一种面向对象的程序设计语言，所采
2、用的编程机制是（ C事件驱动 ） 。A从主程序开始执行 B按过程顺序执行 C事件驱动 D按模块顺序执行 7下列四项中合法的变量名是（ Ba_bc ） 。Aa-bc Ba_bcC4abc Dinteger8将调试通过的工程经“文件”菜单的“生成.exe 文件 ”编译成.exe 后，将该可执行文件拿到其它机器上不能运行的主要原因是（C运行的机器上无 VB 系统 ） 。A缺少.frm 窗体文件 B该可执行文件有病毒 C运行的机器上无 VB 系统 D以上原因都不对9无论何种控件，共同具有的属性是（BName ）AText BNameCCaption DForeColor10有程序代码如下：Text1.
3、Text = “Visual Basic 程序设计“则 Text1，Text ，和“Visual Basic 程序设计“ 分别代表（C对象，属性，值 ） 。A对象，值，属性 B对象，方法，属性C对象，属性，值 D属性，对象，值 11如果仅需要得到当前系统时间，使用的函数是（ BTime ） ANow BTime CYear DDate12表达式 16/4-25*8/4MOD52（D 4 ） 。A20 B14 C2 D413.以下叙述中错误的是（D 、在一个窗体文件中用 Private 定义的通用过程能被其它窗体调用 ） 。A、一个工程中可以包含多个窗体文件 B、 全局变量必须在标准模块中定义
4、2C、在设计 Visual Basic 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 D、在一个窗体文件中用 Private 定义的通用过程能被其它窗体调用 14下列赋值语句正确的是（Bc=a+b ） 。Aa+b=c Bc=a+b C-a=b D5=a+b15要在窗体 Form1 内显示“ myfrm”，使用的语句是（C Form1.print “myfrm“ ）AForm.caption=“myfrm“ BForm1.caption=“myfrm“CForm1.print “myfrm“ DForm. print “myfrm“ 16确定一个控件在窗体上位置的属性是（D To
5、p 和 Left ）AWidth 或 Height BWidth 和 Height CTop 或 Left DTop 和 Left17将数据项“China”添加到列表框（List1 中成为第一项，应使用的语句是（ BList1.AddItem“China“,0 ）AList1.AddItem“China“, BList1.AddItem“China“,0CList1.AddItem“China“,1 DList1.AddItem“1,China“18如果创建了命令按钮数组控件，那么 Click 事件的参数是（AIndex ）AIndex BCaption CTag D没有参数19在设计动画时，
6、用时钟控件来控制动画速度的属性是（BInterval ） AEnabled BInterval CTimer DMove20以下叙述中错误的是（C窗体的 Hide 方法和 Unload 方法的作用完全相同 ） 。A一个工程中只能有一个 Sub Main 过程 B窗体的 Show 方法的作用是将指定的窗体载入内存并显示该窗体C窗体的 Hide 方法和 Unload 方法的作用完全相同 D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体21使图像框 Image 控件中的图像自动适应控件的大小应（C 将控件的 Stretche 属性设为 True ） 。A将控件的 AutoSize 属性设
7、为 True B将控件的 AutoSize 属性设为False C将控件的 Stretche 属性设为 True D将控件的 Stretche 属性设为False22若使图像框 Image 控件自动适应其中的图形大小，应（B 将控件的 Stretche 属性设为 False ） 。A将控件的 Stretche 属性设为 True B将控件的 Stretche 属性设为 FalseC将控件的 AutoSize 属性设为 True D 将控件的 AutoSize 属性设为False 323在 Visual Basic 中，变量的默认类型是（D Variant ） AInteger BDouble
8、CCurrency DVariant 24使用 ADO 数据模型时，使 Recordset 和 Connection 对象建立连接的属性是（C ActiveConnection ） 。ACommandType BOpen CActiveConnection DExecute25下列控件中不能响应 Click 事件的是（CTimer ） 。AFrame BLabel CTimer D Form26如果准备读文件，打开顺序文件”text.dat”的正确语句是（ Copen“text.dat“ For Input As # 1 ）Aopen“text.dat“ For wrire As # 1 Bo
9、pen“text.dat“ For Binary As # 1 Copen“text.dat“ For Input As # 1Dopen“text.dat“ For Random As # 127用 Line 方法画直线后,当前坐标在（C、直线终点 ） 。A、 （0，0） B、直线起点 C、直线终点 D、容器的中心28不属于 VB 数据库引擎的是（CBDE ）AODBC B Jet 引擎CBDE DOLE DB29MsgBox 函数的返回值的数据类型是（D整型 ）A字符串 B日期型 C逻辑型 D整型30VB 程序中通常不会产生错误提示的是（D逻辑错误 ） 。A编译错误 B实时错误C运行时错误
10、 D逻辑错误31如果希望以模态方式显示窗体 Form1，下列正确的语句是（C Form1.Show 1 ）AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确32下列关于变量的说法不正确的是（D局部变量在声明它的过程执行完毕后就被释放了 ） 。A局部变量是指那些在过程中用 Dim 语句或 Static 语句声明的变量 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用 Static 语句声明的 D局部变量在声明它的过程执行完毕后就被释放了33改变驱动器列表框的 Drive 属性值，将激活（CChange ）事件。AKeyDown BKeyUp
11、 CChange DScoll34.在下列选项中，不能将图像装入图片框和图像框的是（B在界面设计时，手工在4图像框和图片框中绘制图形 ）A在界面设计时，通过 Picture 属性装入B在界面设计时，手工在图像框和图片框中绘制图形C在界面设计时，利用剪贴板把图像粘贴上D在程序运行期间，用 LoadPicture 函数把图形文件装入35要发送数据，通常使用 Winsock 控件的（A SendData 方法 ） 。ASendData 方法 BListen 方法 CAccept 方法 DGetDate 方法36VB 程序中设置断点的按键是（C、F9 键 ） 。A、F5 键 B 、F6 键C、F9 键
12、 D、F10 键37下列数组声明语句，正确的是（BDim a(3,4) As Integer ）ADim a3,4 As Integer BDim a(3,4) As Integer CDim a(n,n) As Integer DDim a(3 4) As Integer38当 Winsock 控件处于打开状态时，其 State 属性的值是（B1 ）A0 B1C2 D6二、填空题1. TextBox 和 Label 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 控件；若允许用户输入文本，则应使用 控件。2.在 VB 中，要想获得某个相关控件或语句的帮助信息，一般可
13、首先选中该控件或语句，然后按 键。3欲设置定时器的时间间隔为 2 秒，则属性 Interval 的值为 。4应用程序打包后，其包文件的后缀为 。5Visual Basic 程序开发有三种模式，即设计模式、 模式和 模式。6 是应用程序的对外接口，是其它控件的载体和容器。7表达式 14/2-23*7 MOD 6 的值是 。8每个应用程序都有开始执行的入口，在 VB 中将这种窗体称为 。9控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。10.执行赋值语句 a=“Visual“+“Basic“后，变量 a 的值是 。11在 Visual Basic 语言中有三种形式的循环结构。其中，若循
14、环的次数可以适先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环。 12数学关系 8x 4 Thenc = c + 4Exit ForElsek = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k 的值分别是：3Private Sub Command1_Click()Dim s As DoubleDim i As Integers = 7i = 1Do While i 3 Thenc = c + 5Exit ForElsek = k + 1End IfNext j7Print c, kEnd Sub写出程序运行时单击窗体后，c
15、,k 的值分别是：5.Private Sub Form_Click()Dim A(1 To 3) As StringDim c As IntegerDim j As IntegerA(1) = “4“A(2) = “8“A(3) = “12“c = 1For j = 1 To 3c = c + Val(A(j)Next jPrint cEnd Sub写出程序运行时单击窗体后，窗体 Form1 上的结果：6Private Sub Form_Click()Dim i As Integer, k As Integerk = 0For i = 1 To 4If i 2 Thenk = k + 5Exi
16、t ForElsek = k + 2End IfNext iPrint kEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。7.Function F(a As Integer)Dim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd Function8Private Sub Command1_Click()Dim a As Integera = 4For i = 1 To 3Print F(a)Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。8. Private Sub
17、Form_Click()Dim I As Integer, j As IntegerDim c As Integerc = 0For I = 1 To 4For j = 1 To 2c = c + 4Next jNext IPrint cEnd Sub文件框 Text1 的输出结果是：9. Sub Change(x As Integer, y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 50: b = 40
18、Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。10. Private Sub Form_Click()Dim i As Integer, k As Integer, c As Integer9For i = 1 To 5If i Mod 2 = 0 Thenk = k + 2Elsec = c + 2End IfNext iPrint k, cEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。四、完善程序题1程序运行界面如图 1 所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中
19、某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认” 。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改” 。图 1程序如下，请补充完整。Private Sub Form_Load()List1.AddItem “计算机应用基础“List1.AddItem “程序设计基础“List1.AddItem “VB 程序设计“List1.AddItem “SQLServer 数据库应用“List1.AddItem “网站设计技术“List1.AddIt
20、em “系统开发规范与文档编写“List1.AddItem “信息系统测试“End SubList1Command3Command2Command1Text110Private Sub Command1_Click()If Text1.Text = 800y = x * 1.2Case Is = 600y = x * 1.15Case Else17y = x * 1.1End SelectLabel1.Caption = yEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub2参考答案：Private Sub Command1_Click()D
21、im x As Single, y As Singlex = Val(Text1.Text)If x 500 Theny = xElseIf x 800 Theny = 0.95 * xElseIf x 1000 Theny = 0.9 * xElseIf x 1500 Theny = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = yEnd Sub3参考答案：Private Sub Command1_Click()Dim x As Integer, tax As Singlex = Val(Text1.Text)If x 1200 Thentax = x * 0.03ElseIf x = 4000 Thentax = (x - 1000) * 0.15ElseIf x = 5000 Then18tax = (x - 1000) * 0.15 + (x - 4000) * 0.05Elsetax = x * 0.25End IfEnd IfEnd IfText2.Text = taxEnd Sub
