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

《Basic程序设计期末综合练习题二》由会员分享，可在线阅读，更多相关《Basic程序设计期末综合练习题二（11页珍藏版）》请在装配图网上搜索。

1、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_Cl

2、ick() 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 Btake Ctake_1_2 D take-111下列说法中正确的是（ ）。 为了保存一个Visua Basic应用程序，应当A只保存窗体文件 B只保存工程文件 C分别保存工程文件和标准模块文件 D分别保存工程文件、窗体文件和标准模块文件12确定一个控件在窗体上的位置的属性是（ ）。

4、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和P

5、icture 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

6、、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不属于

7、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对象建立连接的属性是（ ）。 AOpe

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

9、个应用程序必须有一个惟一的 文件。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中参数传递的机制有两种，一种是 参数，另一种是

10、 参数。11. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。12若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向 ，Y轴的正向向 。13窗体、图片框或图像框中的图形通过对象 属性。14在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。15vb应用程序与数据库进行通信的主要机制称为 。16全局变量必须在 模块中定义，所使用的关键字为 。17全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。 18Winsock控件主要用来编制 或 协议的网络应用程序。三、阅读程序题（共25分）阅读

11、下列程序并写出程序运行结果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 =

12、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()

13、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写出程序运行时单击命令

14、按钮后，窗体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

15、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 For

16、m_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表中添加学生记录。

17、其运行界面如图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

18、 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()Unlo

19、ad 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

20、= 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）当收入达到5

21、000元或超过时，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 Integer9

22、610引用参数传递（或按址传递） 按值传递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

23、 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