期末模拟试题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] '以读方式打开文件
Do While [2] '判断文件是否结束
Input #1, strtxt '从文件中读取数据并将其赋值给变量strtxt
Text1 = Text1 + [3] '将内容显示在文本框中
Loop
[4] '关闭文件
End Sub
Private Sub Command3_Click()
Open "D:\W2.Txt" For Output As #1 '以写方式打开文件
Write #1, [5] '在文本框中写入内容
Close #1
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
五、编写程序题（共15分）
编写一程序，显示所有100以内6的倍数的数，并求这些数的和。

程序运行界面如图所示。

VB期末模拟试题4参考答案
一、单项选择题（每题2分，共30分）
1-5 DBDDA6-10 AAAAB 11-15CDCAD
二、填空题（每题2分，共20分）
1．Command1
2．代码标准模块
3．选择循环
4．不必相同必须相同必须相同
5．工程属性启动对象
三、阅读程序题（共24分）
1.
x= 6
x= 8
2.
A= 1,B=1
A= 4,B=1
3. 5050
4.
*
**
***
****
*****
四、完善程序题（共10分）
答案：
[1] "D:\W2.Txt" For Input As #1
[2] Not EOF(1)
[3] strtxt
[4] Close #1
[5] Text1
五、编写程序题（共16分）
分析：6的倍数可以用i Mod 6<> 0 来表示，利用For…Next循环来完成。

程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
For i = 1 To 100
If i Mod 6 = 0 Then
s = s + i
Text1.Text = Text1.Text & Str(i) & Chr(13) & Chr(10)
End If
Next i
Label1.Caption = Str(s)
End Sub。