Basic程序设计形成性考核.pdf

《Basic程序设计形成性考核.pdf》由会员分享，可在线阅读，更多相关《Basic程序设计形成性考核.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Basic 程序设计形成性考核 3 班级 学号 姓名 成绩 一、单项选择题 1在下列有关 Visual Basic 的叙述中，错误的是（）。A使用了事件驱动的编程机制 B是面向对象的编程语言 C是可视化的程序设计语言 D 是面向过程的程序设计语言 2应用程序打包后，其包文件的后缀为（）。A.exe B.txt C.cab D.ocx 3在新建一个“标准 EXE”工程后，不在工具箱中出现的控件是（）。A列表框 B通用对话框 C驱动器列表框 D图片框 4设窗体的名称之 Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（）。AForm1_Click()B.Form1_DbClic

2、k()CForm_Click()DForm_DbClick()5关于定时器（Timer）控件,设置其定时是否开启的属性是（）。AIndex BTag CEnabled DInterval 6在 Visual Basic 中，工程文件的扩展名为（）。A.frm B.vbp C.cls D.bas 7有程序代码如下：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-1 11下列说法中正确的是（）。为了储存一个 Visua Basic 应用程序，应当 A只储存窗体文件 B只储存工程文件 C分别储存工程文件与标准模块文件 D分别储存工程文件、窗体文件与标准模块

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

5、设置的两个属性是（）。AStyle 与 Picture BStyle 与 Icon CCaption 与 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,

6、1 19要绘制多种形状的图形，需要设置 Shape 控件的（）属性。A、Style B、Borderstyle C、FillStyle D、Shape 20下列能够把当前目录下的图形文件 pic1.jpg 装入图片框 Picture1 中的语句为（）。APicture1=pic1.jpg BPicture1=LoadPicture(pic1.jpg)CPicture 1.Picture=LoadPicture(pic1.jpg)DPicture 1.Picture=LoadPicture(pic1)21 假如要在窗体代码编辑器的”通用”部分定义私有 Sub 过程，则正确的语句是（）。APubl

7、ic Sub BPrivate Sub CPublic Function DPrivate Function 22不属于 VB 数据库引擎的是（）。AODBC BBDE CJet 引擎 DOLEDB 23.在 VB 应用程序中，进行断点设置的按键是（）。ACtrl+F9 键 BF9 键 CCtrl+F8 键 DF8 键 24假如准备读文件，打开顺序文件”text.dat”的正确语句是（）。Aopentext.datFor wrire As#1 Bopentext.datFor Binary As#1 Copentext.datFor Input As#1 Dopentext.datFor Ra

8、ndom As#1 25 使用 ADO 对象模型时，使 Recordset 与 Connection 对象建立连接的属性是（）。AOpen BExecute CCommandType DActiveConnection 26.使用 ADO 对象模型时，使 Recordset 与 Connection 对象建立连接的属性是（）。AOpen BExecute CCommandType DActiveConnection 27在 VB 中，一旦数据到达，将首先触发 Winsock 控件的（）。ADataArrival 事件 BConnectionRequest 事件 CDataSend 事件 DGe

9、tGet 事件 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，类型为整型，

10、第一维下标从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 应用程序与数据库进行通信的要紧

11、机制称之 。16全局变量务必在 模块中定义，所使用的关键字为 。17全局变量是指那些在 中有效的变量，通常在模块代码编辑器的顶部使用 声明。18Winsock 控件要紧用来编制 或者 协议的网络应用程序。三、阅读程序题（共 25 分）阅读下列程序并写出程序运行结果 1 Private Sub Command1_Click()Dim x As Integer Static 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 次

12、单击 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=b End 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

13、 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 n End 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

14、=1 To i b=b+j Next j a=a+b Next i Print a End 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 c End Sub 写出程序运行时单击窗体后，窗体 Form1 上的结果。7.Sub Change(ByVal x As Inte

15、ger,ByVal y As Integer)Dim t As Integer t=x x=y y=t Print x,y End Sub Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=20 Change a,b Print a,b End 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=Temp E

16、nd Function Private Sub Form_Click()Dim k As Integer,nj As Integer k=5 nj=F(k)Print k;！=;nj End Sub 写出程序运行时，单击窗体 Form1 上的输出结果。四、完善程序题（共 10 分）1已知存在一名为“学生”的 SQL Server 数据库，其中的“students”数据表用来存储学生的基本情况信息，包含学号、姓名、籍贯、性别。请编写一个简单的应用程序，向 students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接 SQL Server 数据库；当点击“增加”按钮时，首先查询学号

17、是否重复，假如不重复则向 students 表中添加学生记录。其运行界面如图 1 所示。图 1 程序如下，请补充完整。声明对象变量 ADOcn，用于创建与数据库的连接 Private ADOcn As Connection Private Sub Form_Load()连接 SQL Server 数据库 Dim strDB As String strDB=Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database=1 If ADOcn Is Nothing Then 2 3 End If End Sub Private Sub Command1_Cl

18、ick()增加学生记录 Dim strSQL As String Dim ADOrs As 4 5 =ADOcn ADOrs.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 If Priv

19、ate Sub Command2_Click()Unload Me End Sub 2 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框 Drive1 的默认驱动器设置为 E 盘，选择 File1 中所列的图片文件（*.bmp,*.gif 与*.jpg）,则相应的图片显示在图片框 Picture1 中，文件的路径显示在文本框中。程序运行结果如图 2 所示。图 2 程序如下，请补充完整。Private Sub Form_Load()Drive1.Drive=1 2 =*.bmp;*.gif;*.jpg End Sub Private Sub Dr

20、ive1_change()3 =Drive1.Drive Text1.Text=Drive1.Drive End Sub Private Sub Dir1_Change()4 Text1.Text=Dir1.Path End Sub Private 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