一、单项选择题(每小题2分，共30分}
1.如果要在文本框中键入字符时，只显示某个字符，如星号(*)应设置文本框的( B )属性。 A. Caption B. PasswordChar C. Text D. Locked 2. MAs.gBox函数的返回值的数据类型是( D )。 A.字符串 B.日期型 C. 逻辑型D. 整型
3. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列( B )属性设置就有效。
A. MaxButton B. BorderSyle C. Width D. MinButton
4.VAB.程编序译中错通常不会产生错误提示的是( D )。 A.编译错误 B.实时错误 c.运行时错误 D.逻辑错误
5. 要设置命令按钮的背景图形，必须设置的两个属性是( A )。
A. Style和Picture B. Style和Icon C. Caption和Picture D. Value和Icon 6. 下列关于变量的说法不正确的是( B )。
A.局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B. 局部变量在声明它的过程执行完毕后就被释放了 C. 静态局部变量是在过程中用Static语句声明的 D.局部变量的作用域仅限于声明宫的过程 7. 如下数组声明语句，正确的是( B )。
A. Dim a[3,4JAsInteger B. Dima(3,4) As Integer C. Dima(n,n)As Integer D. Dima(34) As Integer
8. 若使图像框Image控件自动适应其中的图形大小，应( D )。
A. 将控件的AutoSize属性设为True B. 将控件的AutoSize属性设为False C. 将控件的Stretche属性设为True D. 将控件的Stretche属性设为False 9. 执行Form1.Scale(-14, 14)一(14， 一14)语句后，Form1窗体坐标系x轴和y轴的正方向是( B )。
A.向左和向下 B.向右和向上 C. 向左和向上 D. 向右和向下
10.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是( A )。
A. Interval=0或Enabled=False B. Interval=O或Visible=False C. Interval=0且Enabled=False D. Enabled=False且Visible=False
11. 使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( D )。 A. Execute B. CommandType C. Open D. ActiveConnection
12. 要发送数据，通称使用Winsock控件的( C )。
A. Accept方法 B. Listen方法 C. SendData方法 D. GetDate方法 13. 用来从数据库表中删除记录的SQL命令是( A )。 A. DELETE B. SELECT C. UPDATE D. WHERE 14. 不属于VB数据库引擎的是( B )。 A. ODBC B. BDE C. Jet引擎 D. OLEDB
15. 如果创建了命令按钮数组控件，那么Click事件的参数是( C )。 A‘Tag B. Caption C. Index D. 没有参数 二、填空题{每小题2分，共20分)
16. 在VB中想获得帮助，需要按的键是 F1 ，要设置断点需要按 F9 键。 17. Winsock控件主要用来编制基于TCP/IP 或UDP 协议的网络应用程序。
18. 定时器(Timer)控件可识别的事件是Timer，发生该事件的时间间隔由定时器的Interval
属性设置。
19. 在控件数组中，所有元素的Name属性均相同，数组中的每个元素由Index 属性指定。 20. 假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是 DimADOcnAs NewConnection 21. 一个VB应用程序可以包含1个vbp文件。
22. 列表框控件中最后一项的序号等于ListCount属性减 1 23. 全局变量是指那些在整个应用程序中有效的变量，一般在模块代码编辑器的顶部使用Public声明。
24. Dim I As Integer,则运行时变量i的初始值是 0 25. VB中参数传递的方式有两种，一种是引用参数传递 参数，另一种是按值传递 参数。 三、阅读程序题{共25分}
阅读下列程序并写出程序运行结果。 26.(6分)
Private Sub Form_ClickO Dim I As Integer.j As Integer Dim c As Integer c= 1
For I= 1 To 3 For j = 1 To 2 c = c +3 Nextj NextI Print c End Sub
文件框Text!的输出结果是: 19
27.(6分)
Private Sub CommandLClickO Dim s As Double Dim I As Integer s = 5 i = 1
Do While I < 9 I=i+2 s= s+i Loop
Textl.Text = s End Sub
写出程序运行时，单击命令按钮文本框Textl中的输出结果。 29
28.(6分)
Function F(aAs Integer) b = 2 Staticc
b=b十1 c = c 十l F=a十b+c End Function
Private Sub Commandl_ClickO Dim a As Integer a=2
For j = 1 To 3 PrintF(a) Next i End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。 6 7 8
29.(7分)
Private Sub Commandl_ClickO
Dim a As Integer: Dim b AsInteger a= 10: b = 20 Change1 a,b
Print\ a= 10: b= 20 Change2 a,b
Print \End Sub
Sub Changel(ByVal x As Integer,ByVal y As Integer) t = x: x= y: y = t End Sub
SubChangeZ(xAs Integer,yAsInteger) t = x: x = y: y = t End Sub
写出程序运行时，单击窗体Form1上的输出结果。 A1= 10 B1=20 A2= 20 B2= 10
四、完善程序题{共10分}
30. 假设用Access创建了一个名为\学生.MDB\的数据库，并在其中创建了一张名为\学生基本情况\的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是:首先文本框(Textl)中输入希望查询的学生学号，然后点击\查询\按钮(Command1)，如果数据库中存在该学号，则分别在TextZ、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户\记录不存在\并使Text1获得焦点，要求用户重新输人。当点击退出按钮(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2查询程序运行界面 程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form_LoadO
[lJSetADOcn = NewConnection ADOcn.Open\学生.l\\1DB\EndSub
PrivateSubCommand1_ClickO Dim strSQL As String
Dim ADOrsAs[2JNew Recordset ADOrs.ActiveConnection= ADOcn
strSQL = \学生基本情况Where学号=\十\” ’ ” [3J ADOrs.OpenstrSQL If[4J Not ADOrs.EOF Then Text2= ADOrs.Fields(\学号\ Text3= ADOrs.Fields<\姓名\ Text4= ADOrs.Fields<\籍贯\ Else
MsgBox\要查询的学号不存在，请重新输入!\， vbOKOnly, \信息提示\ Text1 = \
[5J Text1.SetFocu EndIf EndSub
Private Sub Command2_ClickO UnLoad Me End
五、编写程序题{共15分)
31. 编写一工资调整程序。 若基本工资大于等于3000元，增加工资10%，若小于3000元大于2000元，则增加工资15%;若小于2000元则增加工资18%。要求在文本框Text1中输入某职工的基本工资，单击\计算\按钮，在标签框Labell中输出增加后的工资。程序运行界面如图3所示。
图3
Private Sub Commandl_ClickO Dim x As Integer,y As Single x = Val(Textl.Text) Select Case x Case Is>= 3000 y=x * 1.1
Case Is >= 2000 y=x * 1.15 Case Else y=x * 1.18 End Select
Label3.Caption = y EndSub
Private Sub Command2_ClickO UnloadMe
相关推荐：
loading