《2022年Basic程序设计期末复习题. .pdf》由会员分享，可在线阅读，更多相关《2022年Basic程序设计期末复习题. .pdf（19页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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.vbp B.frm C.bas D.frx 7刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（） 。A时钟控件B图像框C 框架D通用对话框8. 以下叙述中错误的是（） 。 A一个工程中可以包含多个窗体文件B在设计 Visual Basic 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件C在一个窗体文件中用Private定义的通用过程能被其它
3、窗体调用D全局变量必须在标准模块中定义9要在窗体Form1内显示“欢迎您！ ” ，使用的语句是（）AForm.caption=欢迎您 ! BForm1.caption=欢迎您 ! 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 19 页 - - - - - - - - - 学习必备欢迎下载CForm. print 欢迎您 ! DForm1.print 欢迎您 ! 10决定标签内显示内容的属性是（） A Name BText CCaption DAlign
4、ment 11要设置命令按钮的背景图形，必须设置的两个属性是（）ACaption 和 Picture BStyle和 Picture CStyle和 Icon DValue 和 Icon 12将数据项“ China ”添加到列表框List1中成为第一项，应使用的语句是（）A List1.AddItemChina BList1.AddItem1,China C List1.AddItemChina,0 DList1.AddItemChina,1 13在 VB中，下列各项合法的变量名是（） 。 AInteger Bab-c C2abc D a_bc 14在 VB中，下列合法的变量名是（）A4EF
5、Binteger CE-F DE_F 15 如果要在文本框中键入字符时，只显示某个字符， 如星号（* ） ， 应设置文本框的 （）属性。 A PasswordChar B Caption CText DLocked 16要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。AMaxButton BBorderSyle CWidth DMinButton 17下列控件中不能响应Click事件的是（） 。ATextBox BTimer CLabel DListBox 18有程序代码如下： Text1.Text = 欢迎学习VB程序设计 则 Text1 ，Text
6、 ，和 欢迎学习VB程序设计 分别代表（） 。A对象，值，属性 B对象，属性，值C对象，方法，属性 D属性，对象，值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 B Top 和 Left 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页，
7、共 19 页 - - - - - - - - - 学习必备欢迎下载CWidth 或 Height D Width 和 Height 21执行 Form1.Scale (0, 10)-(10, -10) 语句后， Form1窗体坐标系x 轴和 y 轴的正方向是（） 。A向右和向上 B向左和向下C向右和向下 D向左和向上22如果希望以模态方式显示窗体Form1，下列正确的语句是（）AForm1.Show 0 BForm1.Show 1 CForm1.Show D以下都不正确23改变驱动器列表框的Drive属性值，将激活（）事件。AKeyDown BKeyUp C Scoll DChange 24
8、多窗体程序是由多个窗体组成，在缺省情况下， VB在应用程序执行时，总是把（）指定为启动窗体。A不包含任何控件的窗体 B命名为Frm1 的窗体C包含控件最多的窗体 D设计时的第一个窗体25Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（） 。 A12 B16 C15 D动态变化26如果创建了命令按纽控件数组，则Click事件的参数是（） 。ACaption BIndex CTag D没有参数27如果准备向随机文件中写入数据，正确的语句是（）AWrite # 1,rec BPrint # 1,rec CGet # 1,rec DPut # 1,rec 28. 要以读方式打开D
9、盘的一个顺序文件 Test.doc，应使用的语句是（）AOpen Test.doc For Output As #1 BOpen D: Test.doc For Input As #1 COpen D: Test.doc For Output As #1 DOpen Test.doc For Input As #1 29. 以下属性只能用程序代码设置，不能通过属性窗口设置的是（） 。AIndex 属性 BPattern属性 CVisible属性 DDrive 属性30以下有关Visual Basic语言描述中错误的是（） 。A语句是一行一句，以回车键结束B用“ , ”分隔一行中的多个语句名师归
10、纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页，共 19 页 - - - - - - - - - 学习必备欢迎下载C不区分大小写D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行31不属于VB数据库引擎的是（）AODBC BJet 引擎COLE DB D BDE 32. 使用 ADO对象模型时，使Recordset 和 Connection对象建立连接的属性是（） 。 A Open BExecute CCommandType DActiveConne
11、ction 33用来从数据库表中删除记录的SQL命令是（） 。A where Bselect Cupdate Ddelete 34VB程序中通常不会产生错误提示的是（） 。A编译错误B逻辑错误C运行时错误D实时错误35 在 VB程序中逐语句调试的键是（） 。AF8 键 BF9键CCtrlF8键DCtrlF9键36当 Winsock 控件处于侦听状态时，其State 属性的值是（）A0 B1 C2 D 3 37 要发送数据，通常使用Winsock 控件的（）AListen BAccept C SendData DGetData 38. 下列叙述不正确的是（） 。A.注释语句是非执行语句，仅对程序
12、的有关内容起注释作用，客观存在不被解释和编译B.注释语句不能放在代码中的任何位置C.注释语句可以放在代码中的任何位置D.代码中加入注释语句的目的是提高程序的可读性39ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（） 。ACommand BConnection CRecordset DField 40ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（） 。A.Command B.Connection C.Recordset D.Field 二、填空题1. 每个应用程序必须有一个唯一的文件，至少有一个文件。名师归纳总结 精品学习资料
13、 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页，共 19 页 - - - - - - - - - 学习必备欢迎下载2表达式132-23*5 MOD 6的值是。3如果要每隔3s 产生一个Timer 事件，则Interval属性应设置为。4VB中的程序错误类型主要有实时错误、三种。5. 控件数组的名字由属性指定， 而数组中的每个元素由属性决定。6用 Dim A(4,4)语句声明二维数组后，数组A的元素共有个。7设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到
14、 2，第二维下标从0 到 4，则相应数组声明语句为。8某个程序中要用到一个二维数组，要求数组名为C ，类型为整型，第一维下标从-1 到3，第二维下标从0到 4，则相应数组声明语句为。9过程级变量是指在声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用或声明的变量， 在全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。10在 Visual Basic 语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 ForNext 循环循环；若要求先判断循环进行的条件，可使用循环 。11为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句为。12
15、. 将图片框的AutoSize 属性设置成时，可使图片框根据图片调整大小。13Winsock 控件主要用来编制基于TCP/IP 或协议的网络应用程序。如果希望得到本地计算机的 IP 地址，可以使用Winsock 控件的属性。14Winsock 控件主要用来编制基于或协议的网络应用程序。15如果不能事先确定变量的数据类型，则可以把它生命为类型。16以写方式打开D盘中的 Text.dat文件，正确的语句是17列表框中项目的序号是从开始的。18执行赋值语句y = “abc”+”def ”后，变量y 的值是。19全局变量是指那些在中有效的变量， 一般在模块代码编辑器的顶部使用声明。20VB中参数传递的
16、机制有两种，一种是参数，另一种是参数。21闰年的条件是： 年号（Y）能被 4 整除， 但不能被100 整除； 或者年号能被400 整除。表示该条件的逻辑表达式是。22若窗体的左上角坐标为（-250 ，250） ，右下角坐标为（300， 0） ，则X 轴的正向向，Y轴的正向向。23在 VB中，将 Access 称为，SQL Server 称为，Foxpro称为。24数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要机制称为。25常用的VB网络编程控件主要有、和三种。26通常可以将文本框控件的属性设置为False ，以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的属性
17、设置为False 。27VB应用程序可分为单窗体、多窗体和。28若窗体 Form1左上角坐标为（0，600） ，右下角的坐标为（800，-200） 。则 X轴的正向向，Y轴的正向向。29数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 19 页 - - - - - - - - - 学习必备欢迎下载要机制称为。30VB中将数据库分为本地数据库、和三种类型。三、阅读程序题阅读下列程序并写出
18、程序运行结果1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 Form1.Print x=; x, y=; y End Sub 写出程序运行时连续单击三次窗体后，Form1上的输出结果。2Private Sub Command1_Click() x = 0 Do While x 3 Then k = k + 4 Exit For Else k = k + 3 End If Next i Print i, k 名师归纳总结 精品学习资料 - - - - - - - - - - -
19、- - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页，共 19 页 - - - - - - - - - 学习必备欢迎下载End Sub 写出程序运行时单击窗体后，Form1上的输出结果。6. Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2 Do While i 3 Then 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - -
20、 - - 第 8 页，共 19 页 - - - - - - - - - 学习必备欢迎下载 c = c + 6 Exit For Else k = k + 2 End If Next j Print c, k End 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
21、分) Sub test(i As Integer) i = i + 4 End Sub Private Sub form_Click() Dim x As Integer x = 5 Print x=; x Call test(x) Print x=; x End Sub 写出程序运行后，单击窗体时程序的运行结果。名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页，共 19 页 - - - - - - - - - 学习必备欢迎下载四、完善程序题1列表框应用程序。
22、要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认” 。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1 所示。图 1 程序如下，请补充完整。Private Sub Form_Load() List1.AddItem Visual Basic程序设计 List1.AddItem SQL SERVER数据库应用 List1.AddIte
23、m 信息管理系统 List1.AddItem ERP原理与应用 List1.AddItem 网络实用技术基础 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试 End Sub Private Sub Command1_Click() If Text1.Text Then 1 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End If End Sub Private Sub Command2_Click() 3 删除选定的项目List1 Command3 Command2 Command1 Text1
24、 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 10 页，共 19 页 - - - - - - - - - 学习必备欢迎下载End Sub Private Sub Command3_Click() If Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = 6 Command2.Enabled = False Command3.Caption = 7 Else List
25、1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 8 End If End Sub 2已知存在一名为“学生”的SQL Server 数据库，其中的“students ”数据表用来存储学生的基本情况信息，包括学号、姓名、 籍贯、性别。 请编写一个简单的应用程序，向 students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server 数据库；当点击“增加” 按钮时， 首先查询学号是否重复
26、，如果不重复则向students表中添加学生记录。其运行界面如下图所示。图 1 程序如下，请补充完整。 声明对象变量ADOcn ，用于创建与数据库的连接Private ADOcn As Connection Private Sub Form_Load() 连接 SQL Server 数据库Dim strDB As String strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - -
27、- - - - - - - - 第 11 页，共 19 页 - - - - - - - - - 学习必备欢迎下载If ADOcn Is Nothing Then Set ADOcn =2 3 End If End Sub Private Sub Command1_Click() 增加学生记录Dim strSQL As String Dim ADOrs As 4 ADOrs. 5 =ADOcn ADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not 6 Then MsgBox “你输入的学号已存在，不能新增加！”Els
28、e StrSQL=”Insert Into students (学号, 姓名 , 籍贯 , 性别 ) StrSQL=strSQL+Values( ”+” “+text1+ ” , “+text2+ ” , “+text3+ ” , “+text4+ ” ) ”ADOcn.Execute 7 MsgBox “添加成功，请继续！”End If Private Sub Command2_Click() Unload Me End Sub 3假设用 Access 创建了一个名为 “学生 .MDB ”的数据库， 并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1 所示。现在
29、要求利用VB编写一个数据库查询程序，程序的运行界面如图2 所示，基本逻辑是：首先文本框 (Text1) 中输入希望查询的学生学号，然后点击“查询”按钮(Command1) ，如果数据库中存在该学号，则分别在Text2 、Text3 、Text4 中显示学号、姓名、籍贯信息，否则提示用户“记录不存在” 并使 Text1 获得焦点， 要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图 1用 Access 创建的学生基本情况数据表名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - -
30、- - - - - 第 12 页，共 19 页 - - - - - - - - - 学习必备欢迎下载图 2 查询程序运行界面程序如下，请补充完整。Private ADOcn As Connection Private Sub Form_Load() 1 ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: 2 End Sub Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = ADOc
31、n strSQL = Select * From 学生基本情况 Where 学号 = + + Text1 + 4 If 5 ADOrs.EOF Then Text2 = ADOrs.Fields(学号 ) Text3 = ADOrs.Fields(姓名 ) Text4 = ADOrs.Fields(籍贯 ) 6 MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = 7 End If End Sub Private Sub Command2_Click() 8 End 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -
32、精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 13 页，共 19 页 - - - - - - - - - 学习必备欢迎下载五、编写程序题1编写一工资调整程序。若基本工资大于等于800 元，增加工资20% ，若小于 800 元大于 600 元，则增加工资15% ；若小于 600 元则增加工资10% 。要求在文本框Text1 中输入某职工的基本工资，单击“计算”按钮，在标签框Label1 中输出增加后的工资。程序运行界面如图 4 所示。图 2 2请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在
33、 100 元以上者，按九五折优惠；（2）在 200 元以上者，按九折优惠；（3）300 元以上者，按八折优惠； （4）500 元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在 Text1 中输入购物商品总金额，单击命令按钮， 在 Text2中输出优惠价。程序运行结果如图2 所示。图 2 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 14 页，共 19 页 - - - - - - - - - 学习必备欢迎下载3请根据下列描述编写财务部门征收劳务酬金所
34、得税程序，规定如下：（1）收入在1200 元以内，扣税3% ；（2）收入在1200-4000 元内， 1000 元以上部分扣税15% ，（3）收入在4000-5000 元内， 4000 元以内按（ 2）的方法扣税，4000 元以上部分，扣税 20% ，（4）当收入达到5000 元以上，扣税25% 。程序运行界面如图3 所示。图 3 答案：一、单项选择题（每小题2 分，共 30 分）1.C 2.D 3.C 4.B 5.D 6.A 7.D 8.C 9.D 10.C 11.B 12.C 13.D 14.D 15.A 16.B 17.B 18.B 19.B 20.B 21.A 22.B 23.D 24
35、.D 25.B 26.B 27.D 28.B 29D 30 B 31.D 32.D 33.D 34.B 35.A 36.C 37.C 38C 39.B 40.C 二、填空题（每空1 分，共 15 分）1Vbp frm 22 33000 4逻辑错误编译错误名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 15 页，共 19 页 - - - - - - - - - 学习必备欢迎下载5Name Index 625 7.Dim R(-2To 2,0 To 4) As Inte
36、ger 8Dim C(-1 To 3,0 To 4) As Integer 9过程内部 Dim Private Public 10ForNext 循环 DoLoop 循环11P1. Picture = LoadPicture(flower.jpg) 12True 13. UDP LocalIP 14.TCP/IP UDP 15变体型 ( 或 Variant) 16. openD:text.dat For Output As # 1 17. 0 18abcdef 19. 整个应用程序 Public 20引用参数传递（或按址传递）按值传递21.Y MOD 4=0 And Y MOD 1000 OR
37、 Y MOD 400=0 22右上23本地数据库远程数据库外部数据库24数据引擎25Winsock Internet Transfe WebBrowser 26Locked TabStop 27MDI窗体28. 右上39数据库引擎30外部数据库远程数据库三、阅读程序题1 x=2 y=3 x=2 y=6 x=2 y=9 2. 242 3 25 4 A1=22 B1=33 A2=33 B2=22 5. 4 14 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 16 页，
38、共 19 页 - - - - - - - - - 学习必备欢迎下载6 22 7 11 14 17 20 8. 10 9 9 29 10 x= 5 x= 9 四、完善程序题11List1.AddItem Text1.Text 2Else 3List1.RemoveItem List1.ListIndex 4 修改 5 List1.Text 6 False 7 修改确认 8 修改 21 学生2New Connection 3 ADOcn.Open strDB 4 New Recordset 5 ActiveConnection 6 ADOrs.EOF 7 strSQL 名师归纳总结 精品学习资料
39、- - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 17 页，共 19 页 - - - - - - - - - 学习必备欢迎下载31 Set ADOcn = New Connection 2 学生 .MDB 3 New 4 ADOrs.Open strSQL 5 Not 6 Else 7Text1.SetFocus 8 UnLoad Me 五、编写程序题1参考答案：Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(
40、Text1.Text) Select Case x Case Is = 800 y = x * 1.2 Case Is = 600 y = x * 1.15 Case Else y = x * 1.1 End Select Label1.Caption = y End Sub Private Sub Command2_Click() Unload Me End Sub2参考答案：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x Else If x 2
41、00 Then y = 9.5 * x Else If x 300 Then y = 0.9 * x 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 18 页，共 19 页 - - - - - - - - - 学习必备欢迎下载 Else If x 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = y End Sub 3参考答案：Private Sub Comm
42、and1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x 1200 Then tax = x * 0.03 Else If x = 4000 Then tax = (x - 1000) * 0.15 Else If x = 5000 Then tax = (x - 1000) * 0.15 + (x - 4000) * 0.05 Else tax = x * 0.25 End If End If End If Text2.Text = tax End Sub 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 19 页，共 19 页 - - - - - - - - -