当前位置:文档之家› 期末模拟试题4及参考答案

期末模拟试题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。

相关主题