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

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

2、rm1_DbClick()D Form_DbClick()5对于定时器（Timer）控件，设置其定时是否开启的属性是（A.6.在A.Index B. Tag C. Enabled D.Visual Basic 中，工程文件的扩展名为( .frmB .Interval)。）。被执行的事件过程的）。.vbp.basC.7.有程序代码如下：Text1.Text = 欢迎走进则 Text1 ， Text ，和 欢迎走进 VB 世界！.clsDVB 世界！ 分别代表（）。B .对象，属性，值D.属性，对象，值 ）。A 对象，值，属性C.对象，方法，属性 8以下叙述中正确的是（A .窗体的Name属性指定

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

4、保存工程文件和标准模块文件）。D .分别保存工程文件、窗体文件和标准模块文件 12确定一个控件在窗体上的位置的属性是（A. Width 或 Height B . Width 和 HeightC. Top 和 LeftD. Top 或 Left13 确定一个窗体或控件的大小的属性是（）A Width 或 HeightB Width 和 HeightC. Top 或 LeftD. Top 和 Left）。14当一个工程含有多个窗体时，其中的启动窗体是（A 第一个添加的窗体B 最后一个添加的窗体C.包含控件最多的窗体15在一个语句行内写多条语句时，语句之间应该用（ A .逗号B冒号C.顿号D.分号1

5、6要设置命令按钮的背景图形，必须设置的两个属性是（ A Style 和 PictureB Style 和 IconC Caption 和 PictureD Value 和 Icon17.目录列表框的Path属性的作用是（D .在“工程属性”对话框中指定的窗体）分隔。）。）。A .显示当前驱动器或指定驱动器上的某目录下的文件名B.只显示当前路径下的文件C. 显示根目录下的文件名D 显示当前驱动器或指定驱动器上的路径）。18.将数据 China 项添加到列表框（ List1 ）中成为第一项应使用的语句是（ A. List1.AddItem 0, ChinaB . List1.AddItem 1,

6、China）属性。C List1.AddItem China,0D List1.AddItem China,119 .要绘制多种形状的图形，需要设置Sha pe控件的（A 、 Style B 、 BorderstyleC、 FillStyleD、 Shape20 下列可以把当前目录下的图形文件pic1.jpg 装入图片框 Picture1 中的语句为）。A.B.C.D.Picture1= pic1.jpg Picture1 =LoadPicture(pic1.jpg)Picture 1.Picture=LoadPicture(pic1.jpg)Picture 1.Picture=LoadPic

7、ture(pic1 )）。21.如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是(A Public SubB Private SubC. Public FunctionD . Private Function22不属于 VB 数据库引擎的是（ ）。A. ODBC B . BDEC . Jet 引擎 D. OLEDB）。23.在VB应用程序中，进行断点设置的按键是（A Ctrl+F9 键B F9 键C Ctrl+F8 键 D F8 键ABC）。24.如果准备读文件，打开顺序文件” text.da的正确语句是(opentext.datFor wrire As # 1opent

8、ext.datFor Binary As # 1opentext.datFor Input As # 1opentext.datFor Random As # 1ADO对象模型时，使Recordset和Conn ection对象建立连接的属性是(D.25. 使用A . Open B . ExecuteC. CommandTypeD. ActiveConnection26. 使用ADO对象模型时，使Recordset和Conn ection对象建立连接的属性是 ( A . Open B . ExecuteC. CommandTypeD. ActiveConnection27. 在 VB 中，一旦

9、数据到达，将首先触发 Winsock 控件的( )。A . DataArrival 事件B. ConnectionRequest 事件C. DataSend 事件D . GetGet 事件28Winsock 控件的 LocalPort 属性的作用是(A 仅返回所用断口 B 仅设置所用端口）。）。C.返回或设置所用端口D .返回或设置IP地址二、填空题每个应用程序必须有一个惟一的文件。 窗体文件和类模块文件的扩展名分别是和。表达式 6 + 15 2 * 2 Mod 2 的值是。表达式172-2A3*5MOD6 的值是。计时器控件响应的事件是 。在 Visual Basic 中，变量的默认类型是。

10、为了在运行时把当前路径下的图形文件 show.jpg装入图片框P1，所使用的语句为。 设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从第二维下标从 1 到 3，则相应数组声明语句为。用Dim A（-2 to 3）语句声明二维数组后，数组A的元素共有个。123456780 到 2，910. VB 中参数传递的机制有两种，一种是参数，另一种是 参数。11. 控件数组的名字由属性指定，而数组中的每个元素由属性决定。 12若窗体的左上角坐标为（ -200， 250），右下角坐标为（ 300， -150），则 X 轴的正向向， Y 轴的正向向。13窗体、图片框或图像框中的图形通过

11、对象属性。14.在VB中，将Fox pro称为外部数据库， Access称为，SQL Server称为。15vb 应用程序与数据库进行通信的主要机制称为。 16全局变量必须在模块中定义，所使用的关键字为。17全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。18 Winsock 控件主要用来编制或协议的网络应用程序。三、阅读程序题（共 25 分） 阅读下列程序并写出程序运行结果 1Private Sub Command1_Click()Dim x As Integer Static s As Integerx = Val(InputBox( 请输入一个正整数 =) If x

12、5 Thens = s * xElses = s + xEnd IfText1.Text = s= & Str(s)End Sub程序运行时连续 3 次单击 Command1 ，且设输入的数据为 6、5、4 时，分别写出文本框 Text1 的值。2.Private Sub Form_Click()Static a As IntegerDim b As Integera = a + 3b = b + 4Text1 = aText2 = bText1 和 Text2 显示结果。End Sub写出程序运行时连续单击三次窗体后，文本框3.Private Sub Form_Click() Dim A(1

13、 To 3) As String Dim c As Integer, j As Integer A(1) = 2A(2) = 4A(3) = 6c = 2For j = 1 To 3 c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后， Form1 上的输出结果。Private Sub Form_Click()n = 0For i = 1 To 24.For j = 2 To 4If j Mod 2 0 Then n = n + 1End IfNext jNext iPrint nEnd Sub写出程序运行时单击窗体后，窗体Form1 上的输出结

14、果。5.Private Sub Command1_Click()Dim a As Integer, b As Integer a = 2: b = 3For i = 1 To 3 For j = 1 To i b = b + j Next j a = a + bNext iPrint aEnd Sub写出程序运行时单击命令按钮后，窗体Form1 上的输出结果。6.Private Sub Form_Click()Dim A(1 To 4) As StringDim c As IntegerDim j As IntegerA(1) = 4A(2) = 6A(3) = 8A(4) = 10c = 1

15、For j = 1 To 4 c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1 上的结果。a増加学主记录凶Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x x = yy = tPrint x, y End SubPrivate Sub Form_Click()Dim a As Integer, b As Integer a = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后， For

16、m1 上的输出结果。8.Function F(n As Integer) As Long Dim i As Integer, Temp As Long Temp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj As Integerk = 5 nj = F(k) Print k; ！End Sub写出程序运行时，=; nj单击窗体Formi上的输出结果。四、完善程序题（共10 分）1 已知存在一名为 学生的基本情况信息， 表中添加学生记录。

17、程序的基本逻辑是：当窗体被加载时，程序联接 当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向 录。其运行界面如图 1 所示。“学生”的 包括学号、SQL Server数据库，其中的“ students”数据表用来存储 姓名、籍贯、性别。请编写一个简单的应用程序， 向 students SQL Server 数据库； stude nts表中添加学生记増加丛返回健程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOc n As Conn ectionPrivate Sub Form_Load()连接SQL Server数据库Dim strDB As

18、Stri ngstrDB = P rovider=SQLOLEDB;LSF;User ID=sa; Password=;Database = 1If ADOc n Is Noth ing The n2131End IfEnd SubPrivate Sub Comma nd1_Click() 增加学生记录Dim strSQL As Stri ngDim ADOrs As 4-51ADOrs. Open 61The nMsgBoxElse StrSQL= ”=ADOcn“ Selec学号 From Students Where 学号=” +”你输入的学号已存在，不能新增加!StrSQL=strSQ

19、L+Values( ” ADOrs.Execute MsgBox添加成功，请继续!End IfInsert Into students学号,姓名”籍贯，性别) “+text1+ ”+”“+Text1+ ”“+text2+ ”“+text3+ ”Private Sub Comma nd2_Click()Un load MeEnd Sub2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程 序运行后，驱动器列表框Drivel的默认驱动器设置为E盘，选择Filel中所列的图片文件(*.bmp,*.gif 和*jpg )，则相应的图片显示在图片框Picturel中，文件的路

20、径显示在文本框中。程序运行结果如图 2所示。照片大理water lilies. JfGx|程序如下，请补充完整。Private Sub Form_Load() Drivel.Drive =12J= *.bm p; *.gif;*.j pg End SubPrivate Sub Drive1_cha nge()3 =Drive1.DriveText1.Text = Drive1.Drive End SubPrivate Sub Dir1_Cha nge()-4Text1.Text = Dir1 .P athEnd SubPrivate Sub File1_click()Picturel. = L

21、oad Pictu re(File1. Path + + Filel.FileName)FileName = Filel. Path + + Filel.FileNameTextI.Text = _6End Sub五、编写程序题1.按下述规定，编写一征收所得税程序。(1) 收入在1000元以内，不纳税；(2) 收入超过1000元以上的部分，纳税 20%(3) 当收入达到5000元或超过时，5000元以上的部分，纳税 22%。 程序运行界面如图 3所示：2d收入1020纳税甑计算退出答案一、单项选择题1.D 2.C3.B4.C 5.C 6.B 7.B 8.A9.B10.D11.D 12.C 13.B 14.D15.B 16.A 17.D18.C19.D 20.C 21. B 22 . B23. B24. C25.D 26.D 27.A 28.C二、填空题(每小题 2分，共20 分).vbp.frm .cls745.6.7.&TimerVariant或变体