VB程序设计期末综合练习.docx

1、VB程序设计期末综合练习期末综合练习一一、单项选择题1后缀为.Vbp的文件表示VB 的（）A类模块文件 B窗体文件C工程文件 D标准类模块文件 2后缀为.bas的文件表示VB 的（）。A窗体文件 B类模块文件 C工程文件 D标准类模块文件3当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（ ）。AHelp BF10 CF1 D Esc4当一个工程中含有多个窗体时，其中的启动窗体是（ ）。A启动VB时创建的第一个窗体 B第一个添加的窗体C最后一个添加的窗体 D在“工程属性”对话框中指定的窗体5为了保存一个Visual Basic应用程序，下列说法正确的是

2、（ ）。A只保存窗体文件（.frm） B只保存工程文件（.vbp） C分别保存工程文件和标准模块文件(.bas) D分别保存工程文件、窗体文件和标准模块文件 6要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。AMaxButton BBorderSyle CWidth DMinButton7在Visual Basic中，变量的默认类型是（ ） AInteger B VariantCDouble DCurrency 8有程序代码如下： Text1.Text = Visual Basic则Text1，Text ，和Visual Basic分别代表（ ）。A

3、对象，值，属性 B对象，方法，属性C对象，属性，值 D属性，对象，值 9Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）AInterval=0或Enabled=False BInterval=0或Visible=False CEnabled=False 或Enabled=0 DInterval=0且Enabled=False10要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AValue和Icon BStyle和IconCCaption和Picture DStyle和Picture11刚建立一个新的标准EXE工程后，不在工具箱中出

4、现的控件是（ ）。A单选按纽 B图片框 C框架 D通用对话框12在VB中，下列合法的变量名是（ ）A4ab B a-b Ca_4 Dinteger13为使文本框显示滚动条，必须首先设置的属性是（）。AAutoSize BMultiline CAlignment DTabStop14如下数组声明语句，正确的是（）。ADim a3,4 As Integer BDim a(3 4) As IntegerCDim a(n,n) As Integer DDim a(3,4) As Integer 15Dim A(6, 6) As Integer定义的数组包含的元素个数是（ ）A36 B49C42 D动态

5、变化16要在窗体Form1内显示“欢迎您！”，使用的语句是（ ）AForm.caption=欢迎您! BForm1.caption=欢迎您!CForm1.print 欢迎您! DForm. print 欢迎您!17执行Form1.Scale (-14, 14)-(14, -14)语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。A向左和向下 B向右和向上 C向左和向上 D向右和向下18要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AValue和Icon BStyle和IconCStyle和Picture DCaption和Picture 19如果希望以模态方式显示窗体Form1，

6、下列正确的语句是（ ）AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确20如果创建了命令按钮数组控件，那么Click事件的参数是（）。ATag BCaptionCIndex DAs21表达式8+13 Mod 2*4+3（ ）。A8 B16 C10 D1222下列关于变量的说法不正确的是（ ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B局部变量在声明它的过程执行完毕后就被释放了C静态局部变量是在过程中用Static语句声明的 D局部变量的作用域仅限于声明它的过程23VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误

7、C运行时错误D逻辑错误24如果创建了命令按钮数组控件，那么该命令按钮的Click事件的参数是（）AIndex BCaptionCTag D没有参数25使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。AExecute BCommandTypeCOpen DActiveConnection26不属于VB数据库引擎的是（）。AODBC BBDECJet引擎 DOLE DB二、填空题1. Visual Basic提供了结构化程序设计的3种基本结构，这3种基本结构是顺序结构、 和 。2欲设置定时器的时间间隔为2秒，则属性Interval的值为 。3定时器（Tim

8、er）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。4某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从-2到2，则相应数组声明语句为 。 5Visual Basic程序开发有三种模式，即设计模式、中断模式和 模式。6在VB中想获得帮助，需要按的键是 。7全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。8在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。9在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环。10Dim i As Integer，则运行时变量

9、i的初始值是 。11一个VB应用程序可以包含 个vbp文件。 12在VB中，将Access称为本地数据库，SQL Server称为 。13VB中参数传递的方式有两种，一种是 参数，另一种是 参数。14Winsock控件主要用来编制 或 协议的通话程序。15通常可以将文本框控件的Locked属性设置为 ，以禁止键盘输入。三、阅读程序题阅读下列程序并写出程序运行结果1Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 3 y = x + y Form1.Print x=; x, y=; yEnd Sub写出程序

10、运行时连续单击三次窗体后，Form1上的输出结果。2Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 3 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：4Function F(a As Integer) b =3 Static c b = b + 1 c = c + 1 F = a + b + cEnd FunctionPrivate Sub

11、Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next iEnd Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。4. Private Sub Command1_Click() Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a, b Print A1=; a, B1=; b a = 10: b = 20 Change2 a, b Print A2=; a, B2=; bEnd SubSub Change1(x As Integer,

12、 y As Integer) t = x: x = y: y = tEnd SubSub Change2(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = tEnd Sub写出程序运行时,单击窗体Form1上的输出结果。5. Private Sub Command1_Click() Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a, b Print A1=; a, B1=; b a = 10: b = 20 Change2 a, b Print A2=; a,

13、 B2=; bEnd SubSub Change1(x As Integer, y As Integer) t = x: x = y: y = tEnd SubSub Change2(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = tEnd Sub写出程序运行时,单击窗体Form1上的输出结果。 四、完善程序题1.假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻

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

15、Source=c:学生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 2 Recordset ADOrs.ActiveConnection = ADOcn strSQL = Select * From 学生基本情况 Where 学号= + + Text1 + .3 If 4 ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，

16、请重新输入!, vbOKOnly, 信息提示 Text1 = 5 End IfEnd Sub Private Sub Command2_Click() UnLoad Me End 2. 程序运行界面如图3所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。List1Command3Text1Command

17、1Command2 图3程序如下，请补充完整。Private Sub Form_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 将文本框中的内容添加到列表框中 Te

18、xt1.Text = Else MsgBox 请在文本框中输入信息！ End 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 = 修改确认 Else 4 = Text1.Text Command

19、1.Enabled = True Command2.Enabled = True Text1.Text = 5 Command3.Caption = 修改 End IfEnd Sub 五、编写程序题请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在1000元以内，不扣税；（2）收入在1000-3000元内，1000元以上部分扣税15%，（3）收入在3000-5000元内，3000元以内按（2）的方法扣税，3000元以上部分，扣税20%，（4）当收入达到5000元以上，1000元以上扣税25%。程序运行界面如图4所示。 图 42.编写简单的工资计算程序，要求在Text1、T

20、ext2、Text3中分别输入基本工资、奖金、扣款，单击“计算”按钮(Command1)后，首先计算“应发工资”(Text4)，然后根据“应发工资”计算个人所得税(Text5)，最后计算出实发工资(Text6)。(1)应发工资=基本工资+奖金-扣款(2)个人所得税的计算规则假设为：1)当应发工资在1000元以内部分(含1000元)，不扣所得税。2)当应发工资大于1000，但小于等于3000元时，超过1000元的部分按15%计算所得税。3)当应发工资大于3000，按20%扣税。程序运行结果如图5所示。 图 5综合练习一答案一、单项选择题1.C 2.D 3.C 4.D 5.D 6.B 7.B 8.

21、C 9.A 10.D 11.D 12.C 13.B 14.D 15.B 16C 17B 18.C 19C 20.C 21B 22.B 23.D 24.A 25.D 26.B 二、填空题1选择结构 循环结构22000 3Timer Interval4. Dim A(-1 To 2,-2 To 2) As Integer5执行6.F17Public8Name Index 9ForNext10011. 112远程数据库13引用参数传递（或按址传递） 按值传递14TCP/IP UDP15True三、阅读程序题1. x=3 y=3x=3 y=6x=3 y=92. 203. 8 64. 7 8 95A1=

22、 20 B1= 10A2= 10 B2= 20四、完善程序题1.1 Set ADOcn = New Connection2 New3 ADOrs.Open strSQL4 Not5Text1.SetFocus2.1 AddItem 2 List1.ListIndex 3 List1.Text4 List1.List(List1.ListIndex) 5 五、编写程序题1.参考答案Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x = 1000 Then tax = 0 Els

23、e If x = 3000 Then tax = (x - 1000) * 0.15 Else If x = 5000 Then tax = (x - 1000) * 0.15 + (x - 3000) * 0.05 Else tax = (x - 1000) * 0.25 End If End If End If Text2.Text = taxEnd Sub2.参考答案Private Sub Command1_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) If Val(Text4) 1000 And Val(Text4) = 30

24、00 Then Text5 = (Val(Text4) - 1000) * 0.15 Else Text5 = Val(Text4) * 0.2 End If Text6 = Val(Text4) - Val(Text5)End SubPrivate Sub Command2_Click() Unload MeEnd Sub期末综合练习二一、单项选择题1在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（）。A设计模式 B中断模式C执行模式 D编写代码模式2刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A单选按纽 B图片框 C框架 D通用对话框3要在窗体

25、的标题内显示“VB你好”,使用的语句是（ ）。AForm1.Print VB你好 BForm.Print VB你好 CForm1.caption= VB你好 D Form.caption= VB你好4窗体文件的扩展名是（ ）。A.vbp B.frm C.bas D.frx5多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。A不包含任何控件的窗体 B设计时的第一个窗体C最后一个添加的窗体 D命名为Frm1的窗体6无论何种控件，共同具有的属性是（）AText BCaptionCName DForeColor7以下有关Visual Basic语言描述中错误的

26、是（ ）。A不区分大小写B语句是一行一句，以回车键结束C用“,”分隔一行中的多个语句D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行8要退出DoLoop循环，可使用的语句是（ ）语句。 AExit BExit For CExit Do D End Do 9有程序代码如下： Text1.Text = 欢迎学习VB！则Text1，Text ，和 欢迎学习VB！分别代表（ ）。A对象，值，属性 B对象，属性，值C对象，方法，属性 D属性，对象，值10下列赋值语句正确的是（ ）。AB+C =A B5=A+BC-B=A DA=B+C11下列关于变量的说法不正确的是（ ）。A局部变量在声明

27、它的过程执行完毕后就被释放了 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量是指那些在过程中用Dim语句或Static语句声明的变量 12表达式7+10 Mod 3*2+2（ ）。A1 B6 C7 D1313关于语句行，下列说法正确的是（ ）。 A一行只能写一条语句 B长度不能超过255个字符C每行的首字符必须大写 D一条语句可以分多行书写14在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ ）AHelp BF10 C F1 DEnter15为了使图像框中的图形自动适应图像框的大小，则应（ ）。A将其AutoSize属性值设置为True B将其AutoSize属性值设置为FalseC将其Stretch属性值设置为True D将其Stretch属性值设置为False16按照变量的作用域可将变量划分为（ ）。 A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常数、静态 DPublic、 Private、 Protected17将数据项“China”添加到列表框（List1）中成为第一项，应使用的语句是（ ）。AList1.AddItemChina,0 BList1.AddItemChina,1CList1.AddIte