2022年VB程序设计_期末复习资料.docx

《2022年VB程序设计_期末复习资料.docx》由会员分享，可在线阅读，更多相关《2022年VB程序设计_期末复习资料.docx（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计期末综合练习2021 年 11 月一、单项挑选题1. 一个 VB 应用程序可以包含几个vbp 文件（ A 1 个）；2. 启动 VB后，就意味着要建立一个新（C 工程）；3. 后缀为 .bas的文件表示（ D标准类模块文件）；4. 当一个工程中含有多个窗体时，其中的启动窗体是（D在“工程属性”对话框中指定的窗体）；5 在 文 本 框 控 件 中 将Text的 内 容 全 部 显 示 为 所 定 义 的 字 符 的 属 性 是（B PasswordChar）；A Password B PasswordChar C需要编程来实现D以上都不是6. Visual Bas

2、ic 是一种面对对象的程序设计语言，所采纳的编程机制是（C大事驱动）；A 从主程序开头执行B按过程次序执行C大事驱动 D按模块次序执行7. 以下四项中合法的变量名是（B a_bc）；A a-bcB a_bcC 4abcD integer8. 将调试通过的工程经“文件”菜单的“生成.exe 文件”编译成 .exe 后，将该可执行文件拿到其它机器上不能运行的主要缘由是（C运行的机器上无VB 系统）；A 缺少 .frm 窗体文件B该可执行文件有病毒C运行的机器上无VB 系统 D以上缘由都不对9. 无论何种控件，共同具有的属性是（B Name）A TextB NameCCaptionD ForeCol

3、or 10有程序代码如下：Text1.Text = Visual Basic程序设计 就 Text1， Text ，和Visual Basic 程序设计 分别代表（ C对象，属性，值）；A 对象，值，属性B 对象，方法，属性C对象，属性，值D属性，对象，值11假如仅需要得到当前系统时间，使用的函数是（B Time）ANowB TimeC YearDDate12表达式 16/4-25*8/4MOD52（ D 4）；A 20B 14 C 2 D 413. 以下表达中错误选项（D 、在一个窗体文件中用Private 定义的通用过程能被其它窗体调用）；A 、一个工程中可以包含多个窗体文件B、 全局变量

4、必需在标准模块中定义C、在设计 Visual Basic 程序时，窗体、标准模块、类模块等需要分别储存为不同19 / 17类型的文件D、在一个窗体文件中用Private 定义的通用过程能被其它窗体调用14. 以下赋值语句正确选项（Bc=a+b）；A a+b=cB c=a+bC -a=bD 5=a+b15. 要在窗体 Form1 内显示“ myfrm ”，使用的语句是（ C Form1.print myfrm）A Form.caption=myfrmB Form1.caption=myfrmC Form1.print myfrm D Form. print myfrm 16确定一个控件在窗体上位

5、置的属性是（D Top 和 Left）A Width 或 HeightB Width 和 HeightC Top 或 LeftD Top 和 Left17将数据项“China ”添加到列表框（List1中成为第一项，应使用的语句是（B List1.AddItemChina,0）A List1.AddItemChina,BList1.AddItemChina,0C List1.AddItemChina,1D List1.AddItem1,China 18假如创建了命令按钮数组控件，那么Click 大事的参数是（ A Index）A IndexB CaptionC TagD 没有参数19在设计动画

6、时，用时钟控件来掌握动画速度的属性是（B Interval） AEnabledB IntervalC TimerD Move20. 以下表达中错误选项（C 窗体的Hide方法和Unload方法的作用完全相同）；A 一个工程中只能有一个Sub Main 过程B窗体的 Show 方法的作用是将指定的窗体载入内存并显示该窗体C窗体的 Hide 方法和 Unload 方法的作用完全相同D 如工程文件中有多个窗体，可以依据需要指定一个窗体为启动窗体21. 使图像框Image 控件中的图像自动适应控件的大小应（C将控件的 Stretche 属性设为 True）；A 将控件的 AutoSize 属性设为 T

7、rueB将控件的 AutoSize 属性设为 False C将控件的 Stretche 属性设为 TrueD 将控件的 Stretche 属性设为 False22. 如使图像框 Image 控件自动适应其中的图形大小，应（B 将控件的 Stretche 属性设为 False）；A 将控件的 Stretche 属性设为 TrueB 将控件的 Stretche 属性设为 FalseC将控件的 AutoSize 属性设为 True D 将控件的 AutoSize 属性设为 False23. 在 Visual Basic 中，变量的默认类型是（D Variant）AInteger B DoubleC

8、CurrencyD Variant24. 使用 ADO数据模型时，使Recordset 和 Connection 对象建立连接的属性是（C ActiveConnection）；A CommandTypeB OpenC ActiveConnectionD Execute 25以下控件中不能响应Click 大事的是（ C Timer）；A FrameB LabelC TimerD Form26. 假如预备读文件，打开次序文件” text.dat的正”确语句是（C opentext.datFor Input As # 1）A opentext.dat For wrire As # 1 B opent

9、ext.dat For Binary As # 1C opentext.dat For Input As # 1D opentext.dat For Random As # 127. 用 Line方法画直线后 , 当前坐标在（ C、直线终点）；A 、（ 0， 0）B 、直线起点C、直线终点D 、容器的中心28不属于 VB 数据库引擎的是（ C BDE）A ODBCB Jet 引擎C BDED OLE DB29. MsgBox 函数的返回值的数据类型是（D整型）A 字符串B日期型C规律型D整型30. VB 程序中通常不会产生错误提示的是（D规律错误）；A 编译错误B 实时错误C运行时错误D 规律

10、错误31. 假如期望以模态方式显示窗体Form1 ，以下正确的语句是（C Form1.Show1）A Form1.Show 0B Form1.ShowC Form1.Show 1D 以下都不正确32. 以下关于变量的说法不正确选项（D局部变量在声明它的过程执行完毕后就被释放了）；A. 局部变量是指那些在过程中用Dim 语句或 Static语句声明的变量B局部变量的作用域仅限于声明它的过程 C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了33. 转变驱动器列表框的Drive 属性值，将激活（C Change）大事；A KeyDownB KeyUpC

11、ChangeD Scoll34. 在以下选项中，不能将图像装入图片框和图像框的是（B在界面设计时，手工在图像框和图片框中绘制图形）A. 在界面设计时，通过Picture属性装入B. 在界面设计时，手工在图像框和图片框中绘制图形 C在界面设计时，利用剪贴板把图像粘贴上 D在程序运行期间，用LoadPicture函数把图形文件装入35. 要发送数据，通常使用Winsock 控件的（ A SendData 方法）；A SendData 方法B Listen 方法C Accept 方法D GetDate 方法36. VB 程序中设置断点的按键是（C、F9 键）；A 、F5 键B 、F6 键C、F9 键

12、D 、F10 键37. 以下数组声明语句，正确选项（B Dim a3,4 As Integer）A Dim a3,4 As IntegerB Dim a3,4 As IntegerC Dim an,n As IntegerD Dim a3 4 As Integer38. 当 Winsock 控件处于打开状态时，其State 属性的值是（ B 1）A 0B 1C 2D 6二、填空题1. TextBox 和 Label 控件用来显示和输入文本，假如仅需要让应用程序在窗体中显示文本信息，可使用控件；如答应用户输入文本，就应使用控件；2. 在 VB 中，要想获得某个相关控件或语句的帮忙信息，一般可第一

13、选中该控件或语句，然后按键；3. 欲设置定时器的时间间隔为2 秒，就属性 Interval 的值为；4. 应用程序打包后，其包文件的后缀为；5. Visual Basic程序开发有三种模式，即设计模式、模式和模式；6. 是应用程序的对外接口，是其它控件的载体和容器；7表达式 14/2-23*7 MOD 6的值是；8. 每个应用程序都有开头执行的入口，在VB 中将这种窗体称为；9. 控件数组的名字由属性指定，而数组中的每个元素由属性打算；10. 执行赋值语句a=Visual+Basic后，变量 a 的值是；11. 在 Visual Basic 语言中有三种形式的循环结构；其中，如循环的次数可以适

14、先确定，可使用循环；如要求先判定循环进行的条件，可使用循环；12. 数学关系 8 x 4 Then c = c + 4 Exit For Elsek = k + 1 End IfNext jPrint c, k End Sub写出程序运行时单击窗体后，c,k 的值分别是：3Private Sub Command1_Click Dim s As DoubleDim i As Integers = 7i = 1Do While i 3 Then c = c + 5 Exit For Elsek = k + 1 End IfNext j Print c, k End Sub写出程序运行时单击窗体后，

15、c,k 的值分别是：5.Private Sub Form_Click Dim A1 To 3 As String Dim c As IntegerDim j As Integer A1 = 4A2 = 8A3 = 12c = 1For j = 1 To 3c = c + ValAj Next jPrint c End Sub写出程序运行时单击窗体后，窗体Form1 上的结果：6Private Sub Form_ClickDim i As Integer, k As Integer k = 0For i = 1 To 4 If i 2 Then k = k + 5 Exit For Elsek

16、= k + 2 End IfNext i Print k End Sub写出程序运行时单击窗体后，Form1 上的输出结果；7.Function Fa As Integer Dim b As Integer Static c As Integerb = b + 2 c = c + 2F = a + b + c End FunctionPrivate Sub Command1_ClickDim a As Integer a = 4For i = 1 To 3 Print Fa Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果；8.Private Sub Form_Clic

17、kDim I As Integer, j As IntegerDim c As Integer c = 0For I = 1 To 4For j = 1 To 2 c = c + 4Next j Next I Print c End Sub文件框 Text1 的输出结果是：9.Sub Changex As Integer, y As IntegerDim t As Integer t = xx = y y = tPrint x, yEnd SubPrivate Sub Form_ClickDim a As Integer, b As Integer a = 50: b = 40Change a

18、, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果；10.Private Sub Form_ClickDim i As Integer, k As Integer, c As Integer For i = 1 To 5If i Mod 2 = 0 Then k = k + 2Elsec = c + 2 End IfNext i Print k, c End Sub写出程序运行时单击窗体后，Form1 上的输出结果；四、完善程序题1. 程序运行界面如图1 所示；要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当挑选列表框中某一项后，

19、按“删除”按钮，就从列表框中删除该项；当挑选列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”；在文本框的内容修改好后，按“修改确认”按 钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”；Text1List1Command1 Command2Command3图 1程序如下，请补充完整；Private Sub Form_Load List1.AddItem 运算机应用基础 List1.AddItem 程序设计基础 List1.AddItem VB程序设计 List1.AddItem SQLServer数据库应用 List1.AddIt

20、em 网站设计技术 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试 End SubPrivate Sub Command1_Click If Text1.Text ThenList1. 1Text1.Text 将文本框中的内容添加到列表框中Text1.Text = ElseMsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_ClickList1.RemoveItem 2 删除选定的工程End SubPrivate Sub Command3_ClickIf Command3.Caption = 修

21、改 ThenText1.Text = 3 Text1.SetFocus Command1.Enabled = False Command2.Enabled = FalseCommand3.Caption = 4Else5= Text1.TextCommand1.Enabled = True Command2.Enabled = True Text1.Text = 56 Command3.Caption = 7 End IfEnd Sub2已知存在一名为“同学”的SQL Server 数据库，其中的“ students”数据表用来储备同学的基本情形信息，包括学号、姓名、籍贯、性别；请编写一个简洁

22、的应用程序，向students 表中添加同学记录；程序的基本规律是：当窗体被加载时，程序联接SQL Server 数据库；当点击“增加”按钮时，第一查询学号是否重复，假如不重复就向students 表中添加同学记录；其运行界面如图2 所示；图 2程序如下，请补充完整；声明对象变量ADOcn ，用于创建与数据库的连接Private ADOcn As Connection Private Sub Form_Load连接 SQL Server 数据库Dim strDB As StringstrDB=Provider=SQLOLEDB； LSF ； User ID=sa ； Password=； Da

23、tabase = 1If ADOcn Is Nothing Then Set ADOcn =2 ADOcn.Open strDBEnd If End SubPrivate Sub Command1_Click 增加同学记录Dim strSQL As StringDim ADOrs 3ADOrs. 4=ADOcnADOrs.Open“ Sele学ct 号 From Students Where 学号 =” +” “ +Text1+ ” “If Not 5ThenMsgBox “你输入的学号已存在，不能新增加！”ElseStrSQL= ” Insert Into students学 号 ,姓名 ,

24、籍贯 , 性别 ”StrSQL=strSQL+Values”+“”+text1+ADOcn.Execute 6MsgBox “添加胜利，请连续！ ”, “ +text2+”,“+text3+”, “ +text4+”End IfPrivate Sub Command2_Click 7End Sub3在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框；要求程序运行后，驱动器列表框Drive1 的默认驱动器设置为D 盘，挑选 File1 中所列的图片文件（ *.bmp,*.gif和*.jpg ） ,就相应的图片显示在图片框Picture1 中，文件的路径显示在文本框中；程序运行结

25、果如图3 所示；图 3程序代码如下，请补充完整Private Sub Form_Load Drive1.Drive = 1File1.Pattern = *.bmp ；*.gif ；*.jpg End SubPrivate Sub Drive1_change Dir1.Path = 2Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change 34End SubPrivate Sub File1_clickPicture1. 5= LoadPictureFile1.Path + + File1.FileName FileName = File

26、1.Path + + File1.FileNameText1.Text = FileName End Sub五、编写程序题1. 编写一工资调整程序；如基本工资大于等于800 元，增加工资 20%，如小于 800 元大于 600 元，就增加工资 15%；如小于 600 元就增加工资 10%；要求在文本框 Text1 中输入某职工的基本工资，单击“运算”按钮，在标签框Label1 中输出增加后的工资；程序运行界面如图 4 所示；图 程序运行成效2. 购物优惠程序；某商场为了加速促成商品流通，采纳购物打折的优惠方法，每位顾客一次购物（ 1）在 500 元以上者，按 9.5 折优惠；（ 2）在 800

27、 元以上者，按 9 折优惠；（3） 1000 元以上者，按 8 折优惠；（ 4） 1500 元以上者按 7 折优惠；在窗体上添加两个文本框和一个命令按钮，要求在Text1 中输入购物商品总金额，单击命令按钮，在Text2 中输出优惠后的价格；程序运行结果如图5 所示；图 程序运行成效3. 请依据以下描述编写财务部门征收劳务酬金所得税程序，规定如下：（ 1）收入在 1200 元以内，扣税 3%；（ 2）收入在 1200-4000 元内， 1000 元以上部分扣税 15%，（ 3）收入在 4000-5000 元内， 4000 元以内按（ 2）的方法扣税， 4000 元以上部分， 扣税 20%，（

28、4）当收入达到5000 元以上，扣税25%；程序运行界面如下列图综合练习题答案一、单项挑选题1.A2.C3.D4.D5.B6.C7.B8.C9.B10.C11.B12.D13.D14.B15.C16.D 17.B 18.A 19.B 20.C 21 C 22 B 23.D 24 C 25.C26.C 27.C 28.C29.D30.D 31.C32.D33.C 34 B 35.A 36.C 37.B38.B二、填空题1. LabelTextBox2. F1 3 20004 .cab 5中断执行6窗体7 58. 启动窗体9. Name Index10. VisualBasic11. ForNex

29、t 循环DoLoop 循环12. 8=x AND x30 13本地数据库远程数据库14. CircleScaleWidth/2,ScaleHeight/2,50015. Picture1. Picture=LoadPrcturepicturefile.jpg 16显示，变体型 或写成 Variant 型17. 整个模块或窗体整个应用程序（或工程中全部的模块和全部的过程）18. 循环结构次序结构19. True20. 实时错误规律错误21. F1F922. TCP/IP UDP 23.Timer Interval24. NameIndex25. Dim ADOcn As New Connecti

30、on26. Dim A-1 To 2,0 To 3 As Integer27. Main 子过程28. Y MOD 4=0 And Y MOD1000 OR Y MOD 400=029. WinsockWebBrowser 30右上三、阅读程序题1.x=2y=3x=2y=6x=2y=92.543.424.855256.97810128329405040501046四、完善程序题11 AddItem2 List1.ListIndex 3List1.Text4 修改确认5List1.ListList1.ListIndex 6 7 修改21 同学2 New Connection3 As New Re

31、cordset4 ActiveConnection5 ADOrs.EOF6 strSQL7 Unload Me3.1D:2 Drive1.Drive3 File1.Path = Dir1.Path4 Text1.Text = Dir1.Path5 Picture五、编写程序题1. 参考答案：Private Sub Command1_Click Dim x As Integer, y As Single x = ValText1.TextSelect Case xCase Is = 800 y = x * 1.2 Case Is = 600 y = x * 1.15 Case Elsey = x

32、 * 1.1 End SelectLabel1.Caption = y End SubPrivate Sub Command2_ClickUnload Me End Sub2. 参考答案：Private Sub Command1_ClickDim x As Single, y As Single x = ValText1.TextIf x 500 Then y = xElseIf x 800 Then y = 0.95 * x ElseIf x 1000 Then y = 0.9 * xElseIf x 1500 Then y = 0.8 * xElsey = 0.7 * x End IfEn

33、d If End If End IfText2.Text = y End Sub3. 参考答案：Private Sub Command1_Click Dim x As Integer, tax As Single x = ValText1.TextIf x 1200 Then tax = x * 0.03ElseIf x = 4000 Thentax = x - 1000 * 0.15ElseIf x = 5000 Thentax = x - 1000 * 0.15 + x - 4000 * 0.05Elsetax = x * 0.25 End IfEnd IfEnd If Text2.Text = taxEnd Sub