期末模拟试题4及参考答案

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] '以读方式打开文件