VB程序设计_期末复习资料2

1、Visual Basic程序设计期末综合练习2008年11月一、单项选择题1一个VB应用程序可以包含几个vbp文件（A1个 ）。 2启动VB后，就意味着要建立一个新（ C工程 ）。3后缀为.bas的文件表示（D标准类模块文件）。4当一个工程中含有多个窗体时，其中的启动窗体是（ D在“工程属性”对话框中指定的窗体 ）。5在文本框控件中将Text的内容全部显示为所定义的字符的属性是（BPasswordChar ）。APassword BPasswordChar C需要编程来实现 D以上都不是6Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（ C事件驱动 ）。A从主程序开始

2、执行 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.Text = Visual Basic程序设计则Text1，Text

3、，和Visual Basic程序设计分别代表（C对象，属性，值 ）。A对象，值，属性 B对象，方法，属性C对象，属性，值 D属性，对象，值 11如果仅需要得到当前系统时间，使用的函数是（ BTime ） ANow BTime CYear DDate12表达式16/4-25*8/4MOD52（D4 ）。A20 B14 C2 D413.以下叙述中错误的是（D、在一个窗体文件中用Private定义的通用过程能被其它窗体调用 ）。 A、一个工程中可以包含多个窗体文件 B、 全局变量必须在标准模块中定义 C、在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 D、

4、在一个窗体文件中用Private定义的通用过程能被其它窗体调用 14下列赋值语句正确的是（Bc=a+b ）。Aa+b=c Bc=a+b C-a=b D5=a+b15要在窗体Form1内显示“myfrm”，使用的语句是（CForm1.print myfrm ）AForm.caption=myfrm BForm1.caption=myfrmCForm1.print myfrm DForm. print myfrm 16确定一个控件在窗体上位置的属性是（DTop和Left ）AWidth或Height BWidth和Height CTop或Left DTop和Left17将数据项“China”添加到

5、列表框（List1中成为第一项，应使用的语句是（ BList1.AddItemChina,0 ）AList1.AddItemChina, BList1.AddItemChina,0CList1.AddItemChina,1 DList1.AddItem1,China18如果创建了命令按钮数组控件，那么Click事件的参数是（AIndex ）AIndex BCaption CTag D没有参数19在设计动画时，用时钟控件来控制动画速度的属性是（BInterval ） AEnabled BInterval CTimer DMove20以下叙述中错误的是（C窗体的Hide方法和Unload方法的作用

6、完全相同 ）。A一个工程中只能有一个Sub Main过程 B窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体C窗体的Hide方法和Unload方法的作用完全相同 D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体21使图像框Image控件中的图像自动适应控件的大小应（C将控件的 Stretche属性设为True）。A将控件的 AutoSize属性设为True B将控件的 AutoSize属性设为False C将控件的 Stretche属性设为True D将控件的 Stretche属性设为False22若使图像框Image控件自动适应其中的图形大小，应（B将控件的 Stret

7、che属性设为False）。A将控件的 Stretche属性设为True B将控件的 Stretche属性设为FalseC将控件的 AutoSize属性设为True D 将控件的 AutoSize属性设为False 23在Visual Basic中，变量的默认类型是（DVariant ） AInteger BDouble CCurrency DVariant 24使用ADO数据模型时，使Recordset和 Connection对象建立连接的属性是（CActiveConnection）。ACommandType BOpen CActiveConnection DExecute25下列控件中不能

8、响应Click事件的是（CTimer ）。AFrame BLabel CTimer D Form26如果准备读文件，打开顺序文件”text.dat”的正确语句是（ Copentext.dat For Input As # 1 ）Aopentext.dat For wrire As # 1 Bopentext.dat For Binary As # 1 Copentext.dat For Input As # 1Dopentext.dat For Random As # 127用Line方法画直线后,当前坐标在（C、直线终点 ）。A、（0，0） B、直线起点 C、直线终点 D、容器的中心28不属

9、于VB数据库引擎的是（CBDE）AODBC B Jet引擎CBDE DOLE DB29MsgBox函数的返回值的数据类型是（D整型）A字符串 B日期型 C逻辑型 D整型30VB程序中通常不会产生错误提示的是（D逻辑错误）。A编译错误B实时错误C运行时错误D逻辑错误31如果希望以模态方式显示窗体Form1，下列正确的语句是（CForm1.Show 1 ）AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确32下列关于变量的说法不正确的是（D局部变量在声明它的过程执行完毕后就被释放了 ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B

10、局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了33改变驱动器列表框的Drive属性值，将激活（CChange）事件。AKeyDown BKeyUp CChange DScoll34.在下列选项中，不能将图像装入图片框和图像框的是（B在界面设计时，手工在图像框和图片框中绘制图形 ）A在界面设计时，通过Picture属性装入B在界面设计时，手工在图像框和图片框中绘制图形C在界面设计时，利用剪贴板把图像粘贴上D在程序运行期间，用LoadPicture函数把图形文件装入35要发送数据，通常使用Winsock控件的（ASe

11、ndData方法）。ASendData方法 BListen方法CAccept方法 DGetDate方法36VB程序中设置断点的按键是（C、F9键）。A、F5键B、F6键C、F9键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控件用来显示和输入文本

12、，如果仅需要让应用程序在窗体中显示文本信息，可使用 控件；若允许用户输入文本，则应使用 控件。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。3欲设置定时器的时间间隔为2秒，则属性Interval的值为 。4应用程序打包后，其包文件的后缀为 。5Visual Basic程序开发有三种模式，即设计模式、 模式和 模式。6 是应用程序的对外接口，是其它控件的载体和容器。7表达式14/2-23*7 MOD 6的值是 。8每个应用程序都有开始执行的入口，在VB中将这种窗体称为 。9控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。10.执行赋值语句

13、a=Visual+Basic后，变量a的值是 。11在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环。 12数学关系8x 4 Then c = c + 4 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：3Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 7 i = 1 Do While i 3 Then c = c +

14、5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：5.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 To 3 c = c + Val(A(j) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果：6Private Sub Form_Click()

15、Dim i As Integer, k As Integer k = 0 For i = 1 To 4 If i 2 Then k = k + 5 Exit For Else k = k + 2 End If Next iPrint kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。 7.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As In

16、teger a = 4 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。8. Private Sub Form_Click() Dim I As Integer, j As Integer Dim c As Integer c = 0 For I = 1 To 4 For j = 1 To 2 c = c + 4 Next j Next I Print cEnd Sub文件框Text1的输出结果是：9. Sub Change(x As Integer, y As Integer) Dim t As Integer t

17、 = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 50: b = 40Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。10. Private Sub Form_Click() Dim i As Integer, k As Integer, c As Integer For i = 1 To 5 If i Mod 2 = 0 Then k = k + 2 Else c = c + 2 End If N

18、ext i Print k, cEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。四、完善程序题1程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。List1Command3Text1Command1Command2 图1程序如下，请补充完整。Private Sub Fo

19、rm_Load() List1.AddItem 计算机应用基础 List1.AddItem 程序设计基础 List1.AddItem VB程序设计 List1.AddItem SQLServer数据库应用 List1.AddItem 网站设计技术 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试End SubPrivate Sub Command1_Click() If Text1.Text Then List1. 1 Text1.Text 将文本框中的内容添加到列表框中 Text1.Text = Else MsgBox 请在文本框中输入信息！ En

20、d IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem 2 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = 3 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 4 Else 5 = Text1.Text Command1.Enabled = True Command2.Enabled = True

21、 Text1.Text = 56 Command3.Caption = 7 End IfEnd Sub2已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。图2程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As Co

22、nnectionPrivate Sub Form_Load()连接SQL Server数据库Dim strDB As StringstrDB =Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn =2 ADOcn.Open strDB End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs 3 ADOrs. 4 =ADOcnADOrs.Open “Select 学号 F

23、rom Students Where 学号=”+” “+Text1+” “If Not 5 Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 6 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click() 7 End Sub3在窗体上建立一个驱动器列表框、目录列表框、文件

24、列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3所示。 图3程序代码如下，请补充完整Private Sub Form_Load() Drive1.Drive = 1 File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change() Dir1.Path = 2 Text1.Text = Drive1.DriveEnd SubPriv

25、ate Sub Dir1_Change() 3 4 End SubPrivate Sub File1_click() Picture1. 5 = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = FileNameEnd Sub 五、编写程序题1编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签

26、框Label1中输出增加后的工资。程序运行界面如图4所示。 图 程序运行效果2购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在500元以上者，按9.5折优惠；（2）在800元以上者，按9折优惠；（3）1000元以上者，按8折优惠；（4）1500元以上者按7折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如图5所示。 图 程序运行效果 3请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在1200元以内，扣税3%；（2）收入在1200-400

27、0元内，1000元以上部分扣税15%，（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。程序运行界面如图所示 综合练习题答案一、单项选择题1.A 2.C 3.D 4.D 5.B 6.C 7.B 8.C 9.B 10.C 11.B 12.D 13.D 14.B 15.C 16.D 17.B 18.A 19.B 20.C 21C 22B 23.D 24C 25.C 26.C 27.C 28.C 29.D 30.D 31.C 32.D 33.C 34B 35.A 36.C 37.B 38.B二、填空题1L

28、abel TextBox 2F1320004.cab5中断 执行6窗体758启动窗体9Name Index10VisualBasic11ForNext循环 DoLoop循环12. 8=x AND x3013本地数据库 远程数据库14Circle(ScaleWidth/2,ScaleHeight/2),50015Picture1. Picture = LoadPrcture(picturefile.jpg)16显示，变体型(或写成Variant型)17整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）18循环结构 顺序结构19True 20实时错误 逻辑错误21F1 F9 22.TC

29、P/IP UDP23.Timer Interval24Name Index 25Dim ADOcn As New Connection26.Dim A(-1 To 2,0 To 3) As Integer27Main子过程28. Y MOD 4=0 And Y MOD 1000 OR Y MOD 400=029Winsock WebBrowser30右 上三、阅读程序题1.x=2 y=3x=2 y=6x=2 y=92.5 43.424.8 55 256.97 810128 329 40 5040 5010 4 6四、完善程序题11 AddItem 2 List1.ListIndex 3 List1.Text4修改确认5 List1.List(List1.ListIndex) 6 7修改21学生2New Con