VB程序设计期末复习题

1、Visual Basic程序设计期末复习题 一、单项选择题1Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。A按过程顺序执行B从主程序开始执行 C事件驱动D按模块顺序执行2与传统的设计语言相比，Visual Basic最突出的特点是（ ）A程序开发环境B结构化程序设计 C程序调试技术D事件驱动的编程机制3将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件B该可执行文件有病毒 C运行的机器上无VB系统 D以上原因都不对4. Visual Basic6.0集成开发环境有

2、三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B编写代码模式 C执行模式 D中断模式 5后缀为.bas的文件表示（）。A工程文件 B窗体文件C窗体二进制数据文件 D标准类模块文件 6工程文件的扩展名是（ ）。A.vbpB.frmC.basD.frx7刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A时钟控件B图像框C框架D通用对话框8.以下叙述中错误的是（ ）。 A一个工程中可以包含多个窗体文件 B在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D全局

3、变量必须在标准模块中定义9要在窗体Form1内显示“欢迎您！”，使用的语句是（ ）AForm.caption="欢迎您!" BForm1.caption="欢迎您!"CForm. print "欢迎您!" DForm1.print "欢迎您!" 10决定标签内显示内容的属性是（ ） ANameBTextCCaptionDAlignment11要设置命令按钮的背景图形，必须设置的两个属性是（ ）ACaption和PictureBStyle和PictureCStyle和IconDValue和Icon12将数据项“Chi

4、na”添加到列表框List1中成为第一项，应使用的语句是（ ）AList1.AddItem"China"BList1.AddItem"1,China"CList1.AddItem"China",0DList1.AddItem"China",113在VB中，下列各项合法的变量名是（ ）。 AIntegerBab-cC2abcD a_bc 14在VB中，下列合法的变量名是（ ）A4EF Binteger CE-F DE_F15如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ ）属性。 APas

5、swordCharB Caption CText DLocked16要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。AMaxButton BBorderSyle CWidth DMinButton17下列控件中不能响应Click事件的是（ ）。ATextBox BTimer CLabel DListBox18有程序代码如下： Text1.Text = "欢迎学习VB程序设计"则Text1，Text ，和"欢迎学习VB程序设计"分别代表（ ）。A对象，值，属性 B对象，属性，值 C对象，方法，属性 D属性，对象，

6、值 19设a=”Visual Basic”，下面使b=”Basic”的语句是（）。Ab=left(a,8,12) Bb=mid(a,8,5)Cb=right(a,5,5) Db=left(a,8,5) 20确定一个控件在窗体上位置的属性是（ ）A Top或Left BTop和LeftCWidth或Height DWidth和Height 21执行Form1.Scale (0, 10)-(10, -10)语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。A向右和向上 B向左和向下 C向右和向下 D向左和向上22如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）AForm1.Sho

7、w 0BForm1.Show 1CForm1.Show D以下都不正确23改变驱动器列表框的Drive属性值，将激活（）事件。AKeyDownBKeyUp CScollDChange24多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。A不包含任何控件的窗体 B命名为Frm1的窗体C包含控件最多的窗体 D设计时的第一个窗体25Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（ ）。 A12 B16C15 D动态变化 26如果创建了命令按纽控件数组，则Click事件的参数是（ ）。ACaption BIndex CTag D没有参数2

8、7如果准备向随机文件中写入数据，正确的语句是（ ）AWrite # 1,rec BPrint # 1,recCGet # 1,rec DPut # 1,rec 28.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ ）AOpen " Test.doc " For Output As #1 BOpen "D: Test.doc " For Input As #1COpen "D: Test.doc " For Output As #1 DOpen " Test.doc " For Input As

9、 #1 29.以下属性只能用程序代码设置，不能通过属性窗口设置的是（ ）。AIndex属性 BPattern属性 CVisible属性 DDrive属性30以下有关Visual Basic语言描述中错误的是（ ）。A语句是一行一句，以回车键结束 B用“,”分隔一行中的多个语句 C不区分大小写D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行31不属于VB数据库引擎的是（）AODBCBJet引擎COLE DBD BDE32.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 AOpenBExecuteCCommandTypeDActiveC

10、onnection 33用来从数据库表中删除记录的SQL命令是（ ）。AwhereBselectCupdateDdelete 34VB程序中通常不会产生错误提示的是（）。A编译错误B逻辑错误C运行时错误D实时错误35 在VB程序中逐语句调试的键是（）。AF8键 BF9键CCtrlF8键DCtrlF9键36当Winsock控件处于侦听状态时，其State属性的值是（）A0B1C2D3 37要发送数据，通常使用Winsock控件的（）AListenBAcceptCSendDataDGetData38. 下列叙述不正确的是（ ）。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解

11、释和编译 B.注释语句不能放在代码中的任何位置 C.注释语句可以放在代码中的任何位置 D.代码中加入注释语句的目的是提高程序的可读性 39ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。 ACommand BConnection CRecordset DField40ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（ ）。 A.Command B.Connection C.Recordset D.Field二、填空题1.每个应用程序必须有一个唯一的 文件，至少有一个 文件。2表达式132-23*5 MOD 6的值是 。3如果

12、要每隔3s产生一个Timer事件，则Interval属性应设置为 。 4VB中的程序错误类型主要有实时错误、 、 三种。5. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。6用Dim A(4,4)语句声明二维数组后，数组A的元素共有 个。7设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到2，第二维下标从0到4，则相应数组声明语句为 。8某个程序中要用到一个二维数组，要求数组名为C，类型为整型，第一维下标从-1到3，第二维下标从0到4，则相应数组声明语句为 。9过程级变量是指在 声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用 或 声明的变量

13、，在全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。10在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For×××Next循环循环；若要求先判断循环进行的条件，可使用 循环。 11为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句为 。12. 将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。13Winsock控件主要用来编制基于TCP/IP或 协议的网络应用程序。如果希望得到本地计算机的 IP地址，可以使用Winsock控件的 属性。14Winsock

14、控件主要用来编制基于 或 协议的网络应用程序。15如果不能事先确定变量的数据类型，则可以把它声明为 类型。16以写方式打开D盘中的 Text.dat文件，正确的语句是 17列表框中项目的序号是从 开始的。 18执行赋值语句y = “abc”+”def”后，变量y的值是 。19全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。20VB中参数传递的机制有两种，一种是 参数，另一种是 参数。21闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 。22若窗体的左上角坐标为（-250，250），右下角坐标为（300，0），则X

15、轴的正向向 ，Y轴的正向向 。23在VB中，将Access称为 ，SQL Server称为 ，Foxpro称为 。24数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要机制称为 。25常用的VB网络编程控件主要有 、 和 三种。26通常可以将文本框控件的 属性设置为False，以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的 属性设置为False。27VB应用程序可分为单窗体、多窗体和 。28若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。29数据库应用程序属于一种非常典型的前后台软件结构，而前后台

16、之间进行通信的主要机制称为 。30VB中将数据库分为本地数据库、 和 三种类型。三、阅读程序题 阅读下列程序并写出程序运行结果1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 Form1.Print "x=" x, "y=" yEnd Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2Private Sub Command1_Click() x = 0 Do While x < 60 x = (x + 3) * (x

17、+ 4) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub写出程序运行后，文件框Text3的结果。 3. Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = "4" A(2) = "8" A(3) = "12" c = 1 For j = 1

18、To 3 c = c + Val(A(j) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果。4. Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub change2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer

19、, b As Integer a = 22: b = 33 change1 a, b Form1.Print "A1=" a, "B1=" b a = 22: b = 33 change2 a, b Form1.Print "A2=" a, "B2=" bEnd Sub写出程序运行时，单击窗体Form1上的输出结果。5Private Sub Form_Click() Dim i As Integer, k As Integer k = 1 For i = 1 To 4 If i > 3 Then k = k

20、+ 4 Exit For Else k = k + 3 End If Next iPrint i, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。 6. Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2 Do While i < 7 i = i + 4 s = s + i Loop Text1.Text = sEnd Sub写出程序运行后，单击Command1按钮，文件框Text1的输出结果是：7. Function F(a As Integer) Static c b

21、= b + 3 c = c + 3 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 4 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。8Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 3c = 4For j = 1 To 6 If j > 3 Then c = c + 6 Exit For Else k = k +

22、 2End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是： 9. (6分)Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i < 8 i = i + 2 s = s + i Loop Text1.Text = s End Sub文件框Text1的输出结果是10. (7分)Sub test(i As Integer) i = i + 4End SubPrivate Sub form_Click() Dim x As Inte

23、ger x = 5 Print "x=" xCall test(x)Print "x=" xEnd Sub写出程序运行后，单击窗体时程序的运行结果。四、完善程序题1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List

24、1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem "Visual Basic程序设计" List1.AddItem "SQL SERVER数据库应用" List1.AddItem "信息管理系统" List1.AddItem "ERP原理与应用" List1.AddItem "网络实用技术基础" List1.AddItem "系统开发规范与文档编写" List1

25、.AddItem "信息系统测试"End SubPrivate Sub Command1_Click() If Text1.Text <> "" Then 1 '将文本框中的内容加到列表框中 Text1.Text = "" 2 MsgBox "请在文本框中输入信息！" End IfEnd SubPrivate Sub Command2_Click() 3 '删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 4

26、 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = 6 Command2.Enabled = False Command3.Caption = 7 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text ="" Command3.Caption = 8 End IfEnd Sub 2已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表

27、用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如下图所示。图1程序如下，请补充完整。'声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()'连接SQL Server数据库Dim strDB As StringstrDB = "Provi

28、der=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 "If ADOcn Is Nothing Then Set ADOcn =2 3 End IfEnd SubPrivate Sub Command1_Click()'增加学生记录Dim strSQL As StringDim ADOrs As 4 ADOrs. 5 =ADOcnADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not 6 Then MsgBox “你输入的学号已存在，不能新增加！”El

29、se StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 7 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub3假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的

30、运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 ADOcn.Open "Provider=Microsoft.

31、Jet.OLEDB.4.0;Data Source=c: 2 "End SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = ADOcn strSQL = "Select * From 学生基本情况 Where 学号=" + " ' " + Text1 + " ' " 4 If 5 ADOrs.EOF Then Text2 = ADOrs.Fields(&qu

32、ot;学号") Text3 = ADOrs.Fields("姓名") Text4 = ADOrs.Fields("籍贯") 6 MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示" Text1 = "" 7 End IfEnd Sub Private Sub Command2_Click() 8 End 五、编写程序题1编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资

33、10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。 图22请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图2所示。图23请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入

34、在1200元以内，扣税3%；（2）收入在1200-4000元内，1000元以上部分扣税15%，（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。程序运行界面如图3所示。 图3答案：一、单项选择题（每小题2分，共30分）1.C2.D3.C4.B5.D 6.A7.D8.C9.D10.C 11.B12.C13.D 14.D 15.A 16.B 17.B 18.B 19.B 20.B 21.A 22.B 23.D 24.D 25.B 26.B 27.D28.B 29D 30B 31.D 32.D 33.D

35、34.B 35.A 36.C 37.C 38C 39.B 40.C二、填空题（每空1分，共15分）1Vbp frm 22330004逻辑错误 编译错误5Name Index 625 7.Dim R(-2To 2,0 To 4) As Integer8Dim C(-1 To 3,0 To 4) As Integer9过程内部 Dim Private Public 10For×××Next循环 Do×××Loop循环11P1. Picture = LoadPicture("flower.jpg")12True 13.

36、UDP LocalIP14.TCP/IP UDP15变体型(或Variant) 16. open"D:text.dat" For Output As # 117. 018abcdef19. 整个应用程序 Public20引用参数传递（或按址传递） 按值传递21. Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=022右 上23本地数据库 远程数据库 外部数据库24数据引擎25Winsock Internet Transfe WebBrowser26Locked TabStop27MDI窗体28. 右 上39数据库引擎 30外部数据库 远程数据库三、阅读程序题1 x=2 y=3x=2 y=6x=2 y=92.2423 254 A1=22 B1=33A2=33 B2=225.4 146 227 111417208. 10