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

1、Basic程序设计期末综合练习题二Visual Basic程序设计期末综合练习题二一、单项选择题1在下列有关Visual Basic的叙述中，错误的是（ ）。A采用了事件驱动的编程机制 B是面向对象的编程语言 C是可视化的程序设计语言D是面向过程的程序设计语言 2应用程序打包后，其包文件的后缀为（ ）。A.exe B.txtC.cabD.ocx3在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（ ）。A列表框 B通用对话框C驱动器列表框 D图片框4设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。AForm1_Click() B. Form1_D

2、bClick() 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属

3、性的值是显示在窗体标题栏中的文本C可以在运行期间改变对象的Name属性的值 D对象的Name属性值可以为空9. VB提供了结构化程序设计的三种基本结构是（ ）。A选择结构、过程结构、顺序结构B选择结构、循环结构、顺序结构C过程结构、转向结构、递归结构D递归结构、选择结构、循环结构10在VB中，下列变量名不合法的是（ ）。Atake_1 BtakeCtake_1_2D take-111下列说法中正确的是（ ）。 为了保存一个Visua Basic应用程序，应当A只保存窗体文件 B只保存工程文件 C分别保存工程文件和标准模块文件 D分别保存工程文件、窗体文件和标准模块文件12确定一个控件在窗体上的

4、位置的属性是（ ）。AWidth或Height BWidth和HeightCTop和Left DTop或Left13确定一个窗体或控件的大小的属性是（）AWidth或HeightBWidth和HeightCTop或LeftDTop和Left14当一个工程含有多个窗体时，其中的启动窗体是（ ）。A第一个添加的窗体 B最后一个添加的窗体 C包含控件最多的窗体 D在“工程属性”对话框中指定的窗体15在一个语句行内写多条语句时，语句之间应该用（ ）分隔。A逗号B冒号C顿号D分号16要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AStyle和PictureBStyle和IconCCaption和

5、PictureDValue和Icon17目录列表框的Path属性的作用是（ ）。A显示当前驱动器或指定驱动器上的某目录下的文件名B只显示当前路径下的文件C显示根目录下的文件名D显示当前驱动器或指定驱动器上的路径 18将数据 China项添加到列表框（List1）中成为第一项应使用的语句是（ ）。AList1.AddItem 0, ChinaBList1.AddItem 1, ChinaCList1.AddItem China,0DList1.AddItem China,119要绘制多种形状的图形，需要设置Shape控件的（ ）属性。A、Style B、BorderstyleC、FillStyl

6、e 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 FunctionDPrivate Function22不属于VB数据库引擎的是（

7、 ）。AODBC BBDECJet引擎 DOLEDB23.在VB应用程序中，进行断点设置的按键是（）。ACtrl+F9键BF9键CCtrl+F8键DF8键24如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）。Aopentext.datFor wrire As # 1Bopentext.datFor Binary As # 1Copentext.datFor Input As # 1Dopentext.datFor Random As # 125使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。AOpen BExecuteCComman

8、dType DActiveConnection26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。AOpen BExecuteCCommandType DActiveConnection 27在VB中，一旦数据到达，将首先触发Winsock控件的（ ）。ADataArrival事件 BConnectionRequest事件CDataSend事件 DGetGet事件28Winsock控件的LocalPort属性的作用是（）A 仅返回所用断口B仅设置所用端口C返回或设置所用端口D返回或设置IP地址二、填空题1每个应用程序必须有一个惟一的文件。2窗体文件

9、和类模块文件的扩展名分别是和。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.控件数组的名字由属性指定，而数组中的每个元素由属性决定

10、。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

11、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写出程序运行时

12、连续单击三次窗体后，文本框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 T

13、hen n = n + 1 End If n = n + 2Next 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(

14、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(

15、) 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 =

16、 F(k) Print k。 ！=。 njEnd Sub写出程序运行时，单击窗体Form1上的输出结果。四、完善程序题（共10分）1已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。图1程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Priva

17、te 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 Then2 3End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As 4 5 =ADOcnADOrs.Open “Select 学号 From Students Wher

18、e 学号=”+” “+Text1+” “6Then 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在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后

19、，驱动器列表框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.Tex

20、t = 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.C3

21、.B4.C 5.C 6.B 7.B 8.A9.B 10.D11.D 12.C 13.B 14.D15.B 16.A 17.D18.C 19.D 20.C 21B 22B23B24C25.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.右 上13Picture14.本地数据库、远程数据库15.数据库引

22、擎16.标准 Public17.整个应用程序 Public18.CP/IP UDP三、阅读程序题1.s =6 s =11 s =442.3 46 49 43.144.145 266 29730 2020 3085！=120四、完善程序题11学生2 Set ADOcn =New Connection3ADOcn.Open strDB4NewRecordset5 ADOrs.ActiveConnection6If Not ADOrs.EOF7str SQL21 E:2File1.Pattern3Dir1.Path 4 File1.Path = Dir1.Path5Picture6FileName五、编写程序题参考答案：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 SubPrivate Sub Command2_Click() Unload MeEnd Sub