Basic程序设计期末综合练习题二

Visual Basic程序设计期末综合练习题二一、单项选择题1在下列有关Visual Basic的叙述中，错误的是（ ）。A采用了事件驱动的编程机制 B是面向对象的编程语言 C是可视化的程序设计语言 D是面向过程的程序设计语言 2应用程序打包后，其包文件的后缀为（ ）。A.exe B.txtC.cab D.ocx3在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（ ）。A列表框 B通用对话框C驱动器列表框 D图片框4设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。AForm1_Click() B.Form1_DbClick()CForm_Click() DForm_DbClick()5对于定时器（Timer）控件,设置其定时是否开启的属性是（ ）。AIndex BTag CEnabled DInterval6在Visual Basic中，工程文件的扩展名为（ ）。A.frm B.vbp C.cls D.bas7有程序代码如下： Text1.Text = "欢迎走进VB世界！"则Text1，Text ，和"欢迎走进VB世界！"分别代表（ ）。A对象，值，属性 B对象，属性，值 C对象，方法，属性 D属性，对象，值 8以下叙述中正确的是（ ）。A窗体的Name属性指定窗体的名称，用来标识一个窗体 B窗体的Name属性的值是显示在窗体标题栏中的文本C可以在运行期间改变对象的Name属性的值 D对象的Name属性值可以为空9. VB提供了结构化程序设计的三种基本结构是（ ）。A选择结构、过程结构、顺序结构 B选择结构、循环结构、顺序结构C过程结构、转向结构、递归结构 D递归结构、选择结构、循环结构10在VB中，下列变量名不合法的是（ ）。Atake_1 Btake Ctake_1_2 D take-111下列说法中正确的是（ ）。 为了保存一个Visua Basic应用程序，应当A只保存窗体文件 B只保存工程文件 C分别保存工程文件和标准模块文件 D分别保存工程文件、窗体文件和标准模块文件12确定一个控件在窗体上的位置的属性是（ ）。AWidth或Height BWidth和HeightCTop和Left D Top或Left13确定一个窗体或控件的大小的属性是（）AWidth或Height BWidth和Height CTop或Left DTop和Left14当一个工程含有多个窗体时，其中的启动窗体是（ ）。A第一个添加的窗体 B最后一个添加的窗体 C包含控件最多的窗体 D在“工程属性”对话框中指定的窗体15在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A逗号 B冒号 C顿号 D分号16要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AStyle和Picture BStyle和IconCCaption和Picture DValue和Icon 17目录列表框的Path属性的作用是（ ）。A显示当前驱动器或指定驱动器上的某目录下的文件名 B只显示当前路径下的文件 C显示根目录下的文件名D显示当前驱动器或指定驱动器上的路径 18将数据" China"项添加到列表框（List1）中成为第一项应使用的语句是（ ）。AList1.AddItem 0, " China" BList1.AddItem 1, " China" CList1.AddItem " China" ,0 DList1.AddItem " China" ,1 19要绘制多种形状的图形，需要设置Shape控件的（ ）属性。A、Style B、BorderstyleC、FillStyle D、Shape20下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（ ）。APicture1=" pic1.jpg " BPicture1 =LoadPicture("pic1.jpg") CPicture 1.Picture=LoadPicture("pic1.jpg") DPicture 1.Picture=LoadPicture("pic1 ") 21如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function22不属于VB数据库引擎的是（ ）。AODBC BBDE CJet引擎 DOLEDB23. 在VB应用程序中，进行断点设置的按键是（）。ACtrl+F9键BF9键CCtrl+F8键 DF8键 24如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）。Aopen"text.dat"For wrire As # 1 Bopen"text.dat"For Binary As # 1 Copen"text.dat"For Input As # 1Dopen"text.dat"For Random As # 125使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 AOpen BExecuteCCommandType DActiveConnection26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 AOpen BExecuteCCommandType DActiveConnection 27在VB中，一旦数据到达，将首先触发Winsock控件的（ ）。ADataArrival事件 BConnectionRequest事件CDataSend事件 DGetGet事件 28Winsock控件的LocalPort属性的作用是（）A 仅返回所用断口 B仅设置所用端口C返回或设置所用端口 D返回或设置IP地址二、填空题1每个应用程序必须有一个惟一的 文件。2窗体文件和类模块文件的扩展名分别是 和 。3表达式6 + 15 2 * 2 Mod 2的值是 。4表达式172-23*5MOD6的值是 。5计时器控件响应的事件是 。 6在Visual Basic中，变量的默认类型是 。7为了在运行时把当前路径下的图形文件show.jpg装入图片框P1，所使用的语句为 。8设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从0到2，第二维下标从1到3，则相应数组声明语句为 。9用Dim A(-2 to 3)语句声明二维数组后，数组A的元素共有 个。10. VB中参数传递的机制有两种，一种是 参数，另一种是 参数。11. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。12若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向 ，Y轴的正向向 。13窗体、图片框或图像框中的图形通过对象 属性。14在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。15vb应用程序与数据库进行通信的主要机制称为 。16全局变量必须在 模块中定义，所使用的关键字为 。17全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。 18Winsock控件主要用来编制 或 协议的网络应用程序。三、阅读程序题（共25分）阅读下列程序并写出程序运行结果1Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox("请输入一个正整数=") If x < 5 Then s = s * x Else s = s + x End If Text1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。2.Private Sub Form_Click() Static a As Integer Dim b As Integer a = a + 3 b = b + 4 Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3.Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer, j As Integer A(1) = "2" A(2) = "4" A(3) = "6" c = 2 For j = 1 To 3 c = c + Val(A(j) Next j Print c End Sub写出程序运行时单击窗体后，Form1上的输出结果。 4.Private Sub Form_Click() n = 0 For i = 1 To 2 For j = 2 To 4 If j Mod 2 <> 0 Then n = n + 1 End If n = n + 2 Next j Next i Print nEnd Sub写出程序运行时单击窗体后，窗体Form1上的输出结果。5.Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2: b = 3 For i = 1 To 3 For j = 1 To i b = b + j Next j a = a + b Next i Print aEnd Sub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。6.Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = "4" A(2) = "6" A(3) = "8" A(4) = "10" c = 1 For j = 1 To 4 c = c + Val(A(j) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果。7.Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。8.Function F(n As Integer) As Long Dim i As Integer, Temp As Long Temp = 1 For i = 1 To n Temp = Temp * i Next i F = TempEnd FunctionPrivate Sub Form_Click() Dim k As Integer, nj As Integer k = 5 nj = F(k) Print k; "！=" njEnd Sub写出程序运行时，单击窗体Form1上的输出结果。四、完善程序题（共10分）1已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。图1程序如下，请补充完整。'声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()'连接SQL Server数据库Dim strDB As StringstrDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 "If ADOcn Is Nothing Then 2 3 End IfEnd SubPrivate Sub Command1_Click()'增加学生记录Dim strSQL As StringDim ADOrs As 4 5 =ADOcnADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “6 Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOrs.Execute 7 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。 图2程序如下，请补充完整。Private Sub Form_Load()Drive1.Drive = 1 2 = "*.bmp;*.gif;*.jpg"End SubPrivate Sub Drive1_change() 3 = Drive1.Drive Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 4 Text1.Text = Dir1.PathEnd SubPrivate Sub File1_click() Picture1. 5 = LoadPicture(File1.Path + "" + File1.FileName) FileName = File1.Path + "" + File1.FileName Text1.Text = 6 End Sub五、编写程序题1.按下述规定，编写一征收所得税程序。（1）收入在1000元以内，不纳税；（2）收入超过1000元以上的部分，纳税20%（3）当收入达到5000元或超过时，5000元以上的部分，纳税22%。程序运行界面如图3所示： 图3答案一、单项选择题1.D 2.C 3.B 4.C 5.C 6.B 7.B 8.A 9.B 10.D 11.D 12.C 13.B 14.D 15.B 16.A 17.D 18.C 19.D 20.C 21B 22B 23B 24C 25.D 26.D 27.A 28.C 二、填空题（每小题2分，共20分）1.vbp2.frm .cls37445Timer6Variant 或变体型7P1. Picture = LoadPrcture("show.jpg")8Dim A(0 To 2,1To 3) As Integer9610引用参数传递（或按址传递） 按值传递11Name Index 12.右 上 13Picture 14.本地数据库、远程数据库15.数据库引擎16.标准 Public17.整个应用程序 Public18.CP/IP UDP三、阅读程序题1.s =6 s =11 s =442. 3 46 49 43. 14 4. 145 26 6 29730 2020 308 5！=120四、完善程序题11学生2 Set ADOcn =New Connection3ADOcn.Open strDB4New Recordset5 ADOrs.ActiveConnection6If Not ADOrs.EOF7 str SQL21 "E:"2File1.Pattern3 Dir1.Path 4 File1.Path = Dir1.Path5 Picture 6 FileName五、编写程序题参考答案：Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x <= 1000 Then tax = 0 ElseIf x <= 5000 Then tax = (x - 1000) * 0.2 Else tax = (x - 5000) * 0.22 + 4000 * 0.2 End If Label3.Caption = taxEnd Sub Private Sub Command2_Click() Unload MeEnd Sub11