2023年Basic程序设计期末综合练习题二.doc

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”的对的语句是（ ）。Aopentext.datFor wrire As # 1 Bopentext.datFor Binary As # 1 Copentext.datFor Input As # 1Dopentext.datFor 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;*.jpgEnd 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 Sub