2021年Basic程序设计形成性考核.doc

Visual Basic程序设计形成性考核3 班级 学号 姓名 成绩一、单项选取题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