VB程序设计期末复习题

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

2、asic6.0 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是）。A设计模式C执行模式5后缀为 .bas 的文件表示（B编写代码模式D中断模式A工程文件窗体文件C窗体二进制数据文件标准类模块文件6工程文件的扩展名是（B .frm）。A .vbp7刚建立一个新的标准A时钟控件B8. 以下叙述中错误的是（CD.frx.bas不在工具箱中出现的控件是（C框架D通用对话框）。EXE工程后， 图像框 ）。A 一个工程中可以包含多个窗体文件B在设计 VisualBasic程序时，文件C在一个窗体文件中用PrivateD全局变量必须在标准模块中定义 9要在窗体 Form1 内显示“欢迎您！ A

3、Form.caption=" 欢迎您 !" C Form.print"欢迎您 !"10决定标签内显示内容的属性是（A NameB Text窗体、标准模块、类模块等需要分别保存为不同类型的定义的通用过程能被其它窗体调用”，使用的语句是（BCForm1.caption=" Form1.print" ）Caption欢迎您 !" 欢迎您 !"D11要设置命令按钮的背景图形，必须设置的两个属性是（ A Caption 和 Picture C Style 和 Icon 12将数据项“ China ”添加到列表框Alignme

4、nt)B Style 和 PictureD Value 和 IconList1 中成为第一项，应使用的语句是（A List1.AddItem"China"BList1.AddItem"1,China"C List1.AddItem"China",0DList1.AddItem"China",113在 VB中，下列各项合法的变量名是A IntegerB ab-c14在 VB中，下列合法的变量名是（C2abc）。D a_bc页眉内容A4EFB integer C E-FDE_F15如果要在文本框中键入字符时，只显示某个

5、字符，如星号（* ），应设置文本框的（）属性。APasswordCharB CaptionC TextD Locked）属性设置就16要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（有效。A MaxButtonCWidth BorderSyle MinButton17下列控件中不能响应A TextBoxB18有程序代码如下：ClickTimer事件的是（ ）。C Label D ListBoxText1.Text="则 Text1 ， Text ，和A对象，值，属性 C对象，方法，属性 19设 a=” VisualBasic欢迎学习 欢迎学习BD，下面使VB

6、程序设计 " VB程序设计 " 分别代表（ 对象，属性，值 属性，对象，值b=” Basic ”的语句是（Ab=left(a,8,12)b=mid(a,8,5)C b=right(a,5,5)b=left(a,8,5)20确定一个控件在窗体上位置的属性是ATop 或 LeftC Width 或 HeightD21执行 Form1.Scale（0,10）-（10,-10） ）。A向右和向上C向右和向下D22如果希望以模态方式显示窗体A Form1.Show0C Form1.Show23改变驱动器列表框的DriveA KeyDown） Top 和 Left Width 和 He

7、ight语句后， Form1窗体坐标系 x 轴和 y 轴的正方向是向左和向下向左和向上Form1，下列正确的语句是（B Form1.Show1 以下都不正确 属性值，将激活（BKeyUpCScoll）事件。D Change24多窗体程序是由多个窗体组成，在缺省情况下，B 命名为 Frm1 的窗体A不包含任何控件的窗体VB在应用程序执行时，总是把（）指定为启动窗体。25DimA(1To4,0To3)定义的数组包含的元素的个数是（）A 12B16C15D 动态变化26如果创建了命令按纽控件数组，则Click 事件的参数是（）A CaptionBIndexC Tag D 没有参数C包含控件最多的窗体

8、设计时的第一个窗体D27如果准备向随机文件中写入数据，正确的语句是（ ） Print#1,rec Put#1,recTest.doc ，应使用的语句是(A Write#1,recBC Get#1,recD28. 要以读方式打开 D 盘的一个顺序文件A Open"Test.doc"ForOutputAs#1页眉内容B Open"D:Test.doc"ForInputAs#1C Open"D:Test.doc"ForOutputAs#1D Open"Test.doc"ForInputAs#129. 以下属性只能用程序代

9、码设置，不能通过属性窗口设置的是（ A Index 属性 B Pattern 属性 C Visible 30以下有关 VisualBasic 语言描述中错误的是（ A语句是一行一句，以回车键结束 B用“ , ”分隔一行中的多个语句 C不区分大小写 D一条语句放在多行中，则在前一行结束处使用续行符 31不属于 VB数据库引擎的是（AODBCB Jet 引擎C OLEDB）。属性 D Drive 属性）。”连接下一行32. 使用 ADO对象模型时，使 AOpenB Execute33用来从数据库表中删除记录的DBDED ActiveConnection）D delete）Recordset 和 C

10、onnection 对象建立连接的属性是（C CommandTypeSQL命令是（C update 34 VB程序中通常不会产生错误提示的是 A编译错误BC运行时错误D35在 VB程序中逐语句调试的键是（ AF8键 C CtrlF8键36 当 Winsock 控件处于侦听状态时，其 A0B 1C 2A whereB select逻辑错误实时错误）F9键D CtrlF9 键State 属性的值是（D3）。37要发送数据，通常使用A ListenBAccept38. 下列叙述不正确的是（Winsock 控件的（CSendDataD GetData）。A. 注释语句是非执行语句，仅对程序的有关内容起

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

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

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

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

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

16、的正向 向，Y 轴的正向向。29数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制 称为 。30 VB中将数据库分为本地数据库、和 三种类型。三、阅读程序题 页眉内容 阅读下列程序并写出程序运行结果 1PrivateSubForm_Click() DimxAsInteger StaticyAsInteger x=x+2 y=y+3Form1.Print"x="x,"y="yEndSub 写出程序运行时连续单击三次窗体后，Form1 上的输出结果2PrivateSubCommand1_Click()x=0DoWhilex<

17、60 x=(x+3)*(x+4) n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub 写出程序运行后，文件框 Text3 的结果。3.PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)="8"A(3)="12"c=1Forj=1To3c=c+Val(A(j)NextjPrintcEndSub 写出程序

18、运行时单击窗体后，窗体 Form1 上的结果。4.PublicSubchange1(ByValxAsInteger,ByValyAsInteger) DimtAsInteger t=x x=y y=tEndSubPublicSubchange2(xAsInteger,yAsInteger)页眉内容DimtAsIntegert=x x=y y=t EndSub PrivateSubForm_Click()DimaAsInteger,bAsInteger a=22:b=33 change1a,bForm1.Print"A1="a,"B1="b a=22:b=

19、33 change2a,bForm1.Print"A2="a,"B2="bEndSub 写出程序运行时，单击窗体Form1 上的输出结果。5PrivateSubForm_Click() DimiAsInteger,kAsInteger k=1 Fori=1To4 Ifi>3Then k=k+4 ExitFor Else k=k+3 EndIfNextiPrinti,kEndSub 写出程序运行时单击窗体后，Form1 上的输出结果6.PrivateSubCommand1_Click() DimsAsDoubleDimiAsIntegers=6Com

20、mand1按钮，文件框 Text1 的输出结 果是：i=2 DoWhilei<7 i=i+4 s=s+i Loop Text1.Text=s EndSub 写出程序运行后，单击7.FunctionF(aAsInteger)页眉内容Staticcb=b+3c=c+3F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=5Fori=1To4PrintF(a)NextiEndSub 写出程序运行时，单击命令按钮在窗体上的输出结果。 8PrivateSubForm_Click()DimcAsInteger,jAsInteger,kA

21、sIntegerk=3c=4Forj=1To6Ifj>3Thenc=c+6ExitForElsek=k+2EndIfNextjPrintc,kEndSub 写出程序运行时单击窗体后， c,k 的值分别是：9.(6 分)PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei<8i=i+2s=s+iLoopText1.Text=sEndSub文件框 Text1 的输出结果是10.(7分)Subtest(iAsInteger)i=i+4页眉内容Text1Command1Command2Command3图1List

22、1程序设计 " 数据库应用 "List1.AddItem"VisualBasicList1.AddItem"SQLSERVER信息管理系统 " 原理与应用 " 网络实用技术基础 " 系统开发规范与文档编写 信息系统测试 "List1.AddItem"List1.AddItem"ERPList1.AddItem"List1.AddItem"List1.AddItem"EndSubPrivateSubform_Click()DimxAsIntegerx=5Print&q

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

24、SubForm_Load()EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then将文本框中的内容加到列表框中1 'Text1.Text=""2MsgBox" 请在文本框中输入信息！页眉内容EndIfEndSubPrivateSubCommand2_Click()3 ' 删除选定的项目 EndSubPrivateSubCommand3_Click()IfCommand3.Caption=4 ThenText1.Text=5Text1.SetFocusCommand1.

25、Enabled=6Command2.Enabled=FalseCommand3.Caption=7ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption=8EndIfEndSub2已知存在一名为“学生”的SQLServer 数据库，其中的“ students ”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向 students 表中添加学生记录。程 序的基本逻辑是

26、：当窗体被加载时，程序联接 SQLServer 数据库；当点击“增加”按钮时，首先查询学号是否重复， 如果不重复则向 students 表中添加学生记录。其运行界面如下图所示。图1程序如下，请补充完整。' 声 明对象变量 ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load()' 连接 SQLServer 数据库DimstrDBAsString strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=1 " IfADOcnIsNot

27、hingThenSetADOcn=23EndIfEndSubPrivateSubCommand1_Click()' 增加学生记录DimstrSQLAsStringDimADOrsAs4ADOrs.5 =ADOcnADOrs.Open“ Select学号 FromStudentsWhere学号=” +”“ +Text1+ ”“IfNot6 Then页眉内容MsgBox“你输入的学号已存在，不能新增加！”ElseStrSQL= ” InsertIntostudents(学号, 姓名, 籍贯,性别)StrSQL=strSQL+Values( ”+”“ +text1+ ”, “ +text2+

28、 ”, '“ +text3+ , '“ +text4+ ” ) ”ADOcn.Execute7MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub3假设用 Access 创建了一个名为“学生 .MDB”的数据库，并在其中创建了一张名为“学生基 本情况”的数据表，表中存放了学生的基本信息，如图 1 所示。现在要求利用 VB编写一个数据库查询程序，程序的运行界面如图2 所示，基本逻辑是：首先文本框 (Text1) 中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别

29、在 Text2 、 Text3 、 Text4 中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使 Text1 获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图 1用Access 创建的学生基本情况数据表图 2 查询程序运行界面程序如下，请补充完整。PrivateADOcnAsConnectionPrivateSubForm_Load()12 "EndSubPrivateSubCommand1_Click()DimstrSQLAsStringDimADOrsAs3RecordsetstrSQL="Select*From4If 5ADOr

30、s.EOFThenText2=ADOrs.Fields(Text3=ADOrs.Fields(Text4=ADOrs.Fields(6MsgBox"学生基本情况 Where 学号 ="+"'"+Text1+"'"学号姓名籍贯要查询的学号不存在，请重新输入!",vbOKOnly,"信息提示 "ADOrs.ActiveConnection=ADOcnText1="" 7EndIfEndSubPrivateSubCommand2_Click()8End五、编写程序题页眉内容1

31、编写一工资调整程序。若基本工资大于等于800 元，增加工资 20%，若小于 800 元大于 600 元，则增加工资15%；若小于 600 元则增加工资 10%。要求在文本框 Text1 中输入某职工的基本工资，单击“计算”按钮，在标签框 Label1 中输出增加后的工资。程序运行界面如图 4 所示。图2 2请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠 办法，每位顾客一次购物（ 1）在 100 元以上者，按九五折优惠；（ 2）在 200 元以上者，按九折优惠；（ 3） 300 元 以上者，按八折优惠；（ 4） 500 元以上者按七折优惠。在窗体上添加两个文本框

32、和一个命令按钮，要求在 Text1 中输入购物商品总金额，单击命令按钮，在 Text2 中输出优惠价。 程序运行结果如图 2 所示。图2 3请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在 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

33、6.A7.D8.C9.D10.C11.B12.C13.D14.D15.A16.B17.B18.B19.B 20.B21.A22.B23.D24.D25.B26.B27.D28.B29D30B31.D32.D33.D34.B 35.A36.C37.C38 C39.B40.C二、填空题(每空 1 分，共 15 分)1Vbpfrm22330004逻辑错误编译错误5NameIndex6257.DimR(-2To2,0To4)AsInteger8DimC(-1To3,0To4)AsInteger9 过程内部DimPrivatePublic10 For Next 循环 Do Loop 循环11 P1.Pi

34、cture=LoadPicture("flower.jpg")12 True13. UDPLocalIP14. TCP/IPUDP15变体型 ( 或 Variant)16. open"D:text.dat"ForOutputAs#117. 0页眉内容18 abcdef19. 整个应用程序 Public20引用参数传递（或按址传递）按值传递21.YMOD4=0AndYMOD100<>0ORYMOD400=022右上23本地数据库远程数据库 外部数据库24数据引擎25 WinsockInternetTransfe WebBrowser26 LockedTabStop27MDI