VB期末模拟试题4
一、单项选择题（每题2分，共30分）
1．定义符号常量所使用的命令为（）。
A．Dim B．Public C．Static D．Const
2．在Visual Basic中表达式x=8的类型是（）。
A．错误的表达式B．关系表达式
C．算术表达式D．逻辑表达式
3．在下列四个表达式中，非法的Visual Basic表达式是（）。
A．x=x+y B．x+y>z C．x=(x=y) D．以上均为合法表达式
4．数学式子Sin300写成V isual Basic表达式是（）。
A．Sin30
B．Sin(30)
C．SIN(300)
D．Sin(30*3.14/180)
5．用于获得字符串S最右边4个字符函数是（）。
A．Right(S,4) B．Left(S,4)
C．RightStr(S) D．RightStr()
6．用于获得字符串S从第6个字符开始的4个字符的函数是（）。
A．Mid(S, 6, 4) B．Mid (S, 4, 6)
C．MidStr(S, 6, 4) D．MidStr(S, 4, 6)
7．用于获得字符串长度的函数是（）。
A．Len() B．Length()
C．StrLen() D．StrLength()
8．用于获得字符串S最左边4个字符的函数是（）。
A．Left (S,4) B．Left(1,4)
C．LeftStr (S) D．LeftStr (S,4)
9．表达式4 + 5 \\ 6 * 7 Mod 8 / 9的值是（）。
A．4 B．5
C．6 D．7
10．以下多窗体操作中工程文件的扩展名是（）。
A．.frm B．.vbp C．.bas D．.cls
11. 下面选项中，能绘制椭圆的语句是（）
A．Circle (1000, 1000),500,RGB(255,0,0),0.5
B．Circle (1000, 1000),500,RGB(255,0,0),,0.5
C．Circle (1000, 1000),500,RGB(255,0,0),,,0.5
D．Circle (1000, 1000),500,RGB(255,0,0),,,,0.5
12.图像框（Image）和图片框（Picture）在使用时有所不同，以下叙述中正确的是（）
A．图片框比图像框占内存少
B．图像框内还可包括其它控件
C．图片框有Stretch属性而图像框没有
D．图像框有Stretch属性而图片框没有
13.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）
A．ADOrs.New "Select * From Tabel"
B．ADOrs.Open "Select * From Tabel"
C．ADOrs.Execute "Select * From Tabel"
D．ADOrs. Select "Select * From Tabel"
14.要发送数据，通常使用Winsock控件的（）
A．SendData方法B．Listen方法
C．Accept方法D．GetData方法
15. VB程序中通常不会产生错误提示的（）。
A．编译错误B．实时错误
C．运行时错误D．逻辑错误
二、填空题（每题2分，共20分）
1．创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为。2．Visual Basic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含窗体和两部分。完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。
3．基本程序控制结构可以分为顺序结构、结构和结构3种。
4．在Visual Basic的参数传递过程中，形式参数表和实际参数表中对应的变量名，变量个数、变量类型、书写顺序必须对应相同。
5．在V isual Basic 6.0中，启动窗体的设置可以通过选择“工程”菜单下“”命令，在打开的对话框中的“通用”选项卡中，将启动窗体设置在“”栏中。
三、阅读程序题（共25分）
1．
Sub test(i As Integer)
i = i + 2
End Sub
Private Sub Form_Click()
Dim x As Integer
x = 6
Print "x="; x
Call test(x)
Print "x="; x
End Sub
2.
Private Sub Form_Click()
a = 1:
b = 1
Print "A="; a; ",B="; b
Call mult(a)
Print "A="; a; ",B="; b
End Sub
Private Sub mult(x)
x = 3 + x
b = 4 + b
End Sub
3.
Private Sub Form_Click()
Static Sum As Integer
For I = 1 To 100
Sum = Sum + I
Next I
Print Sum
End Sub
4.
For X = 5 To 1 Step -1
For Y = 1 To 6 - X
Print Tab(Y + 5); "*";
Next Y
Print
Next X
四、完善程序题（共10分）
使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。：假设在以D盘的根目录下有一个名为W1.txt的文本文件，程序运行时，当点击“打开”按钮(Command1)时，程序将W1.Txt文件中的内容显示在文本框(Text1)中，当点击“保存”按钮(Command2)时，将Text1中的内容保存在W1.txt文件中。当点击“退出”按钮(Command3)时关闭本窗体。
程序如下，请补充完整。
Private Sub Command1_Click()
Dim strtxt As String
Text1 = ""
Open [1] '以读方式打开文件
