Visual Basic程序设计期末综合练习.doc

Visual Basic程序设计期末综合练习（2010年6月）本学期期末考试题型和分数比例与往届相同（见课程考核说明），以下两套综合练习题按照考试题型拟定，望同学们逐一认真完成。Visual Basic程序设计期末综合练习一一、单项选择题1为了保存一个Visual Basic应用程序，下列说法正确的是（分别保存工程文件、窗体文件和标准模块文件）。A只保存窗体文件（.frm） B只保存工程文件（.vbp）C分别保存工程文件和标准模块文件(.bas) D分别保存工程文件、窗体文件和标准模块文件 2后缀为.,bas的文件表示（标准类模块文件）。A类模块文件 B标准类模块文件C窗体文件 D窗体二进制数据文件3无论何种控件，共同具有的属性是（Name属性）。AText属性 BCaption属性 CName属性 DAutosize属性4以下有关Visual Basic语言描述中错误的是（用“,”分隔一行中的多个语句）。A不区分大小写B语句是一行一句，以回车键结束C用“,”分隔一行中的多个语句D一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行5要在窗体Form1内显示“Hello VB！”，使用的语句是（Form1.print Hello VB！）。AForm.caption= Hello VB！ BForm. print Hello VB！ CForm1.caption= Hello VB！ DForm1.print Hello VB！6有程序代码如下： Text1.Text = VB简单易学，功能强大则Text1，Text 和 VB简单易学，功能强大分别代表（对象，属性，值）。A对象，值，属性 B对象，方法，属性 C对象，属性，值 D属性，对象，值 7在Visual Basic中，变量的默认类型是（Variant）。 AInteger BDouble CCurrency DVariant 8. 按照变量的作用域可将变量划分为（全局变量、模块级变量、过程级变量）。 A公有、私有、系统 BPublic、 Private、 ProtectedC动态、常数、静态 D全局变量、模块级变量、过程级变量9对象的状态特征称为（属性）。A事件 B方法 C属性 D类10要在命令按纽上显示图形，应首先设置的属性是（Style）。AEnabled BStyle CCaption DIcon11关于语句行，下列说法正确的是（一条语句可以分多行书写）。 A一行只能写一条语句 B长度不能超过255个字符C每行的首字符必须大写 D一条语句可以分多行书写12表达式7+10 Mod 3*2+2（13）。A7 B6 C13 D113把字符串型转换为数值型需要使用的函数是（Val）。AVal BStr CAsc DChr14当使用上下文相关的帮助时，选择要帮助的内容，然后按（F1）键，就可出现MSDN窗口直接显示所需的帮助信息。AHelp BF10 CEsc DF115如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（PasswordChar）属性。 ACaption BText CPasswordChar DLocked 16不属于VB数据库引擎的是（BDE）AODBC B Jet引擎CBDE DOLE DB17下列4项中合法的变量名是（x_yz）。A45 xyz BSingleCx-yz Dx_yz18Dim A(1 To 6, 6) As String定义的数组包含的元素个数是（42）。A36 B42 C49 D5019对于定时器（Timer）控件，设置其定时是否开启的属性是（Enabled）。AIndex BTag CEnabled DLeft20如果创建了命令按钮数组控件，那么Click事件的参数是（Index）。ATag BCaption CIndex D没有参数21表达式64 / 2 - 2 3 * 9 / 3 Mod 8 3（32）。A0 B32C20 D422把数值型转换为字符串型需要使用的函数是（Str）。AVal BStr CAsc DChr23下面关于多窗体的叙述中，正确的是（如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一窗体）。A作为启动对象的Main子过程只能放在窗体模块内 B没有启动窗体，程序不能执行C如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一窗体D以上都不对24Dim I As Integer，则运行时变量I的初始值是（0）。A0 B1C-1 D空值25使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ActiveConnection）。AExecute BOpenCActiveConnection D CommandType26. 下列数据对象模型中采用OLE DB访问数据库的是（ADO）。ADAOBRDOCADODRDO和ADO27一旦数据到达，将首先触发Winsock控件的（DataArrival事件）。ADataGet事件 BConnectonRequest事件CDataSend事件 DDataArrival事件28VB程序中通常不会产生错误提示的（逻辑错误）。A编译错误B实时错误C运行时错误D逻辑错误29在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（F1）。AHelp BF1 CF10 DEnter 3078.下列关于过程叙述不正确的是（无论过程传值调用还是过程传址调用，参数传递都是双向的）。A过程的传值调用是将实参的具体值传递给形参 B过程的传址调用是将实参在内存的地址传递给形参 C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D无论过程传值调用还是过程传址调用，参数传递都是双向的二、填空题1. 变量的声明方法有隐式和显示两种，如果采用隐式声明方法，那么VB会自动将变量声明为variant或变体型。2工程文件的扩展名是.vbp，窗体文件的扩展名是.frm。3矩形、三角形、正方形三种图形中，不能用Shape控件绘制的是三角形。4欲设置定时器的时间间隔为0.5秒，则属性Interval的值为500。5全局变量在整个应用程序中有效，一般在标准模块中使用Public语句声明。6在刚建工程时，使窗体上所有的控件具有相同的字体格式，应对Form窗体的Font属性进行设置。7表达式14/2-23*7 MOD 6的值是5。8为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为Picture1. Picture = LoadPrcture(picturefile.jpg)。9在VB中，将数据库分为本地数据库、外部数据库和远程数据库三种类型。10. 执行赋值语句a=”123”+”456”后，变量a的值是123456。11用Dim A(3,-2 To 3)语句声明二维数组后，数组A的元素共有24个。12Winsock控件主要用来编制基于TCP/IP或UDP协议的网络应用程序。13若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过工程菜单的工程属性菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行Form1.Show语句。14vb应用程序与数据库进行通信的主要机制称为数据库引擎。15在VB的DAO、RDO、ADO三种数据对象模型中，主要采用OLE DB访问数据库的是ADO。16列表框控件中最后一项的序号等于ListCount属性减1。17程序的运行结果和程序员的设想有出入时产生的错误称为编译错误。18为了在编写代码时能自动进行语法检查，必须执行工具菜单中的选项命令，打开选项对话框，然后选择“编辑器”选项卡中的自动语法检测。19如果希望得到本地计算机的IP地址，可以使用Winsock控件的LocalIp属性。20列表框中项目的序号是从0开始的。三、阅读程序题阅读下列程序并写出程序运行结果1Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 2: Sum2 = 3 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2 Next i Print Sum1End Sub写出程序运行时单击Command1按纽后，Form1上的输出结果。ijSum1Sum2=sum2*jSum1=sum1+sum2112325215322561131116211123113647472Private Sub Command1_Click() Static Sum As Integer Dim I As Integer I = 1 Do Sum = Sum + I I = I + 1 Loop While I = 6 Text1.Text = Sum Text2.Text = IEnd Sub程序运行时Command1按钮，Text1和Text2中的输出结果是。ISum=sum+II=i+1112233364410551566217Text1.text=21Text2.text=73Private Sub Command1_Click() Static Sum As Integer Dim I As Integer I = 3 Do Sum = Sum + I I = I + 1 Loop While I = 6 Text1.Text = Sum Text2.Text = IEnd Sub程序运行两次单击Command1按纽后，文本框Text1、Text2上的输出结果是： ISum=sum+II=i+133447553066367 4Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For I = 1 To 3 For j = 1 To I Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2Next IPrint Sum1End Sub程序运行时单击Command1后，窗体Form1上的输出结果是；5. Function F(a As Integer) Static c b = b + 3 c = c + 3 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For I = 1 To 6 Step 2 Print F(a) Next IEnd Sub程序运行后单击命令按钮，在窗体上的输出结果是：101316aibcB=b+3C=c+3C=c+36. Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = 10 A(2) = 20 A(3) = 30 c = 2 For j = 1 To 3 c = c + Val(A(j) Next j Print cEnd Sub程序运行时单击窗体后，窗体上的输出结果是：jC=c+val(A(j)c10127. Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = 6 A(2) = 12 A(3) = 18 c = 2 For j = 1 To 3 c = c + Val(A(j) Next j Print cEnd Sub程序运行后单击窗体，在窗体上显示的结果是：8. Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 3 c = c + 3 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。四、完善程序题1.假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档案”的数据表，表中存放了人员的基本信息，如图1所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图2、图3所示。图1 用Access创建的档案数据表图2 程序设计界面图3 程序运行界面程序如下，请补充完整。Public ADOcn As New ConnectionPublic Sub main() Dim strAccess As String strAccess= Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path _+ HRM.mdb;Persist Security Info=False ADOcn.Open 1 frmMain.ShowEnd SubPrivate Sub Myrefresh() Dim ADOrs As 2 Dim strtmp As String Dim i As Integer 3 = ADOcn ADOrs.Open Select * From 档案 Order by 编号 MSFlexGrid1.Clear MSFlexGrid1.FixedRows = 0 MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 4 MSFlexGrid1.AddItem 职工编号 + vbTab + 职工姓名 + vbTab + 职称 + vbTab + 简历, 0 i = 1 Do While 4 ADOrs.EOF strtmp = rs(编号) + vbTab + rs(姓名) + vbTab + rs(职称) + vbTab + rs(简历) MSFlexGrid1.AddItem strtmp, i ADOrs.MoveNext 5 MSFlexGrid1.FixedRows = 1End SubPrivate Sub Form_Load()Myrefresh End Sub2.假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图4所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图5所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图4用Access创建的学生基本情况数据表图5 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:学生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim 2 As New Recordset ADOrs.ActiveConnection = ADOcn strSQL = Select * From 学生基本情况 Where 学号= + + Text1 + ADOrs.Open 3 If 4 ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = 5 End IfEnd Sub Private Sub Command2_Click() UnLoad Me End五、编写程序题1编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如图6所示。Text3Text1Text4Text2Command1Command2 图62请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在1000元以内，扣税3%；（2）收入在1000-4000元内，800元以上部分扣税15%，（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，（4）当收入达到5000元以上，扣税25%。程序运行界面如图7所示。图7答案一、单项选择题1.D 2.B 3.C 4.C 5.D 6.C 7.D 8.D 9.C 10.B 11.D 12.C 13.A 14.D 15.C 16.C 17.D 18.B 19.C 20.C 21.B 22.B 23C 24A 25C 26C 27.D 28.D 29.B 30.D二、填空题1显示 variant或变体型2.vbp .frm3三角形 45005Public 6Form窗体758Picture1. Picture = LoadPrcture(picturefile.jpg)9外部数据库 远程数据库10123456 1124 12.TCP/IP UDP13. 工程属性 Form1.Show14数据库引擎 15ADO16.117编译错误18. 选项 自动语法检测19LocalIp 200三、阅读程序题1.472.21 73. 36 74. 315 101316 6 627 388 101316四、完善程序题1 .1 strAccess2 New.Recordset3ADOrs.ActiveConnection4 Not5 Loop 2.1 Set ADOcn = New Connection2 ADOrs 3 strSQL4 Not5Text1.SetFocus五、编写程序题（共15分）参考答案：Private Sub Command1_Click() If Text1.Text = Then MsgBox 至少要输出单价！ Text1.SetFocus Exit Sub End If If Text2.Text = Then Text2.Text = 1 If Text3.Text = Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.TextEnd Sub2.参考答案：Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x 1000 Then tax = x * 0.03 Else If x = 4000 Then tax = (x - 800) * 0.15 Else If x = 5000 Then tax = (x - 800) * 0.15 + (x - 4000) * 0.05 Else tax = x * 0.25 End If End If End If Text2.Text = taxEnd SubVisual Basic程序设计期末综合练习二一、单项选择题（每小题2分，共30分）1在文本框中将Text的内容全部显示为所定义的字符的属性是（ ）。APassword BPasswordChar CCaption DText2在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ ）。A窗体布局窗口 B代码编辑器窗口 C属性窗口 D工程资源管理器窗口 3. 与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）。A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术4在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（）。A设计模式 B中断模式C执行模式 D编写代码模式5.窗体文件的后缀是（ ）。A.frm B.vbp C.bas D.cls6将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件 B该可执行文件有病毒 C运行的机器上无VB系统 D以上原因都不对7假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（ ）A单击窗体上没有控件的地方 B单击任一个控件 C不执行任何操作 D双击窗体的标题栏8一个VB应用程序可以包含几个vbp文件（ ）。A1个 B2个 C可以没有 D不受限制9如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 ATabStop BMultiLine CLocked DVisible10要在窗体的标题内显示“VB编程世界”,使用的语句是（ ）。AForm1.PrintVB编程世界 BForm.PrintVB编程世界 CForm.caption=VB编程世界 DForm1.caption=VB编程世界11要清除List列表框控件中的所有项目，可采用的方法是（ ）。AErase BDelete CClick DClear12.要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AStyle和Picture BStyle和IconCCaption和Picture DValue和Icon13当使用上下文相关的帮助时，选择要帮助的内容，然后按（ ）键，就可出现MSDN窗口直接显示所需的帮助信息。AHelp BF10 CEsc DF114下列可作为Visual Basic变量名的是（ ）。AA（A+B） BAlpha C4ABC DABp15下列可以用来存储图像供其他对象使用的控件是（ ）。AToolBar BStatursBar CImageList DTreeView16表达式7+10 Mod 3*2+2（ ）。A1 B7 C6 D1317如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。AForm1.Show BForm1.Show 0CForm1.Show 1 D以下都不正确18文本框没有（ ）属性。AText BName CCaption DBorderStyle19下列变量名中合法的是（ ）。AIF B7XY CX-Y7 DXY_720下列正确的赋值语句是（ ）。Ax+y=20 B、y=x+20 C3x=y Ds=p*r*r21.对于窗体级变量，下列说法中错误的是（ ）。A所在窗体的各子程序都可以访问 B其他窗体的子程序不能访问 C所在窗体的子程序不能访问用Private定义的窗体级变量D一定要在所在窗体的通用区内定义22下列关于变量的说法不正确的是（ ）。A局部变量的作用域仅限于声明它的过程B静态局部变量是在过程中用Static语句声明的局部变量 C在声明它的过程执行完毕后就被释放了 D局部变量是指那些在过程中用Dim语句或Static语句声明的变量23为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（ ）。A在Dir1_Change事件中加入Dir1.Path = Drive1.DriveB在Drive1_Change事件中加入Dir1.Path = Drive1.DriveC在Dir1_Change事件中加入Drive1.Path = Dir1.PathD在Dir1_Change事件中加入Drive1.Path = Dir1.Path24Line(100,100)-Step(600,600)将在窗体（ ）画一直线。A（100，100）到（600，600） B（100，100）到（500，500）C（100，100）到（700，700） D（500，500）到（600，600）25Line(200,200)-Step(500,500)将在窗体（ ）画一直线。A（200，200）到（500，500） B（200，200）到（300，300）C（200，200）到（700，700） D（300，300）到（500，500）2613使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。AExecute BCommandTypeCOpen DActiveConnection27要绘制多种形状的图形，需要设置Shape控件的（ ）属性。AShape BBorderstyleCFillStyle DStyle28VB程序中设置断点的按键是（）。AF1键 BF9键 CF8键 DCtrlF8键29设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（）。AADOrs.New “Select * From 学生基本情况表”BADOrs.Open “Select * From 学生基本情况表”CADOrs.Execute “Select * From 学生基本情况表”DADOrs.Select “Select * From 学生基本情况表” 30下列数组声明语句，正确的是（）。ADim a3,1To 4 As Integer BDim a(3 1To 4) As Integer CDim a(n,n) As Integer DDim a(3, 1To 4) As Integer 二、填空题1在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环；若要求先判断循环进行的条件，可使用While循环或 循环。 2. 在VB中，事件过程名由 和 构成。3VB中将数据库分为本地数据库、 和 三种类型。4定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。5使用ADO模型时，可通过 属性建立Recordset和Connection对象的连接。6控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。7表达式64 / 2 - 2 3 * 9 / 3 Mod 11 2的值是 。8要使标签框的大小随Caption属性做自动调整，应将AutoSize属性设置为 。9Dim A(5, 6) As Integer定义的数组包含的元素个数是 。10如果不能事先确定变量的数据类型，则可以把它声明为 。11Winsock控件主要用来编制TCP/IP或 协议的通话程序。12 一般可使用 关键字声明常量。13. VB中的程序错误类型主要有编译错误 、 等三种。14在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环或Do循环。 15如果希望将字符串“12345”转化为数值，那么可采用的函数是 。 16要想在代码中给名为mytext的文本框赋予文本：我的第1个应用程序！时，应当编写的语句是。17VB程序中设置断点的按键是 。18在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定 作为启动对象。19后缀为.bas的文件表示VB 的 。20Winsock控件主要用来编制TCP/IP或 协议的通话程序。三、阅读程序题（共25分）阅读下列程序并写出程序运行结果1Private Sub Command1_Click() Dim x As Integer Static s As Integer x = Val(InputBox(请输入一个正整数=) If x 3 Then c = c + 5 Exit For Else k = k + 1 End If Next j Print c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：4Sub test(i As Integer) i = i + 4End SubPrivate Sub Form_Click() Dim x As Integer x = 5 Print x=; xCall test(x) Print x=; xEnd Sub 写出程序运行时,单击窗体后显示的值。 5. Function F(a As Integer) Static c b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 3 Print F(a); Next iEnd Sub程序运行后，单击命令按钮在窗体上的输出结果是:6. Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 8 i = 1 Do While i 5 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub写出程序运行时,单击窗体后显示的值。7. Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub change2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 20: b = 40 change1 a, b Form1.Print A1=; a, B1=; b a = 20: b = 40 change2 a, b Form1.Print A2=; a, B2=; bEnd Sub写出程序运行时，单击窗体Form1上的输出结果。8. Private Sub Form_Click() Dim i As Integer, k As Integer, c As Integer For i = 1 To 9 If i Mod 2 = 0