Basic程序设计形成性考核3

1、Visual Basic 程序设计形成性考核 3班级学号姓名 成绩.是面向对象的编程语言 是面向过程的程序设计语言 ）。C. .cabD3. 在新建一个“标准A.列表框C.驱动器列表框4. 设窗体的名称为 名称是（ ）。A. Form1_Click（）C. Form_Click（）5. 对于定时器（ Timer ） A. Index B6. 在 Visual BasicA. .frmC. .clsD7. 有程序代码如下：Text1.Text = ". .ocxEXE工程后,B）。不在工具箱中出现的控件是（.通用对话框.图片框Forml,则在程序运行过程中，单击窗体时，被执行的事件过程

2、的中，B. Form1_DbClick（）D. Form_DbClick（）控件 , 设置其定时是否开启的属性是（ Tag C . Enabled D 工程文件的扩展名为（. .vbp. .bas欢迎走进VB世界！ ”）。）。. Interval一、单项选择题1在下列有关 Visual Basic 的叙述中，错误的是（ ）。A. 米用了事件驱动的编程机制BC.是可视化的程序设计语言D2. 应用程序打包后，其包文件的后缀为（. .txtA. .exe则Textl , Text，和"欢迎走进VB世界！"分别代表（）。A. 对象，值，属性B .对象，属性，值C.对象，方法，属性D

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

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

5、号B冒号C.顿号D.分号16要设置命令按钮的背景图形，必须设置的两个属性是（）。A. Style 和 PictureB. Style 和 IconC. Caption 和 PictureD. Value 和 Icon17 目录列表框的 Path 属性的作用是（ ）。A 显示当前驱动器或指定驱动器上的某目录下的文件名B 只显示当前路径下的文件C 显示根目录下的文件名D 显示当前驱动器或指定驱动器上的路径18 将数据 " China" 项添加到列表框A List1.AddItem 0, " China"C List1.AddItem " China

6、" ,019 要绘制多种形状的图形，需要设置A、 StyleC、 FillStyleD20 下列可以把当前目录下的图形文件List1 )中成为第一项应使用的语句是(BList1.AddItem 1, " China"DList1.AddItem " China" ,1Shape 控件的()属性。、 Borderstyle、 Shapepic1.jpg 装入图片框 Picture1 中的语句为）。)。A Picture1=" pic1.jpg "B Picture1 =LoadPicture("pic1.jpg&qu

7、ot;)C Picture 1.Picture=LoadPicture("pic1.jpg")D Picture 1.Picture=LoadPicture("pic1 ")21 如果要在窗体代码编辑器的”通用”部分定义私有Sub 过程，则正确的语句是）。A Public SubPrivate SubC Public FunctionPrivate Function22 不属于VB数据库引擎的是（）。A ODBC B . BDE C . Jet 引擎 D . OLEDB23.在VB应用程序中，进行断点设置的按键是（）。A Ctrl+F9 键B . F9

8、键C. Ctrl+F8 键D . F8 键24 .如果准备读文件，打开顺序文件”text.dat ”的正确语句是（）。A ope n"text.dat"For wrire As # 1B. ope n"text.dat"For Bin ary As # 1C. ope n"text.dat"For In put As # 1D. ope n"text.dat"For Ra ndom As # 125 .使用ADC对象模型时，使Recordset和Conn ection对象建立连接的属性是 （）。A . OpenB.

9、 ExecuteC . Comma ndTypeD . ActiveC onn ecti on26.使用ADC对象模型时，使Recordset和Conn ection对象建立连接的属性是 （）。A . OpenB. ExecuteC. Comma ndTypeD . ActiveC onnection27 .在VB中，一旦数据到达，将首先触发Win sock控件的（A. DataArrival 事件C. DataSend 事件B . Connection Request 事件 D. GetGet 事件）.仅设置所用端口.返回或设置IP地址28 . Win sock控件的LocalPort 属性

10、的作用是A .仅返回所用断口BC.返回或设置所用端口D二、填空题1 .每个应用程序必须有一个惟一的 文件。2. 窗体文件和类模块文件的扩展名分别是 和3. 表达式 6 + 15 2 * 2 Mod 2 的值是。4. 表达式172-2A3*5MOD6的值是 。5 .计时器控件响应的事件是 。6. 在 Visual Basic中，变量的默认类型是 。7. 为了在运行时把当前路径下的图形文件show.jpg装入图片框 P1，所使用的语句为。&设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从 0到2,第二维下标从1到3，则相应数组声明语句为 。9. 用Dim A（-2

11、to 3）语句声明二维数组后，数组A的元素共有 个。10. VB中参数传递的机制有两种，一种是 参数，另一种是参数。11. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。12 .若窗体的左上角坐标为（-200, 250）,右下角坐标为（300, -150 ）,则X轴的正向向, Y轴的正向向。13 .窗体、图片框或图像框中的图形通过对象 属性。14 .在VB中，将Foxpro称为外部数据库，Access称为, SQLServer称为。15. vb应用程序与数据库进行通信的主要机制称为 。16. 全局变量必须在 模块中定义，所使用的关键字为 。17. 全局变量是指那些中有效的变量，一

12、般在模块代码编辑器的顶部使用声明。18 . Win sock控件主要用来编制或协议的网络应用程序。三、阅读程序题(共 25分)阅读下列程序并写出程序运行结果1.Private Sub Comma nd1_Click()Dim x As In tegerStatic s As In tegerx = Val(I nputBox("请输入一个正整数=")If x < 5 The ns = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s)End Sub程序运行时连续 3次单击Command,1且

13、设输入的数据为6、5、4时，分别写出文本框Text1的值。2.Private Sub Form_Click()Static a As In tegerDim b As In tegera = a + 3b = b + 4Text1 = aText2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框 Text1和Text2显示结果。3.Private Sub Form_Click()Dim A(1 To 3) As Stri ngDim c As In teger, j As In tegerA(1) = "2"A(2) = "4"A(3) =

14、 "6"c = 2Forj = 1 To 3c = c + Val(A(j)Next jPrint c End Sub写出程序运行时单击窗体后， Form1 上的输出结果。4.Private Sub Form_Click() n = 0 For i = 1 To 2For j = 2 To 4If j Mod 2 <> 0 Thenn = n + 1End If n = n + 2Next jNext iPrint nEnd Sub 写出程序运行时单击窗体后，窗体Form1 上的输出结果。5.Private Sub Command1_Click()Dim a A

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

16、10"c = 1For j = 1 To 4c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1 上的结果。7.Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗

17、体后， Form1 上的输出结果。8.Function F(n As Integer) As LongDim i As Integer, Temp As LongTemp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj As Integerk = 5nj = F(k)Print k; "！ =" njEnd Sub写出程序运行时，单击窗体 Form1 上的输出结果。四、完善程序题（共 10分）1.已知存在一名为&quo

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

19、SQL Server数据库Dim strDB As Stri ngstrDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1"If ADOcn Is Nothing Then2_3LEnd IfEnd SubPrivate Sub Comma nd1_Click()'增加学生记录Dim strSQL As Stri ngDim ADOrs As 5=ADOcnADOrs.Open “Select 学号 From Students Where学号=” +” “ +Text1 +The nMsgBox “你输入的学号已存在，不能新增加！”ElseStrSQL=” Insert Into students ( 学号,姓名”籍贯，性别) StrSQL=strSQL+Values(” +”“ +text1+ ” ,“ +text2+ ”,'“ +text3+ ”', '“ +text4+ ”') ”ADOrs.Execute 7MsgBox “添加成功，请继续！”End IfPrivate Sub Comma nd2_Click()Un load MeEnd Sub