VB期末试卷(A卷带答案 )

注意事项：1、本试卷共 页，满分为 100 分，考试时间为 110 分钟。

2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔，不得使用红颜色墨水笔。

分数核题 目 一 二 三 四 五 总 分 对 得 分 阅卷人 读卡 一、单项选择题（每空1分，共 30分）

（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为 【1】 。 A) 工程文件

B) 窗体文件

C) 类模块文件

D) 标准模块文件

2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是 【2】 。 A) 代码窗口 C) 属性窗口

B) 窗体设计窗口 D) 工程资源管理器窗口

3．设有变量定义语句Dim a%，则变量a的数据类型是 【3】 。 A) 整型

B) 单精度类型

C) 双精度类型

D) 字符串类型

4．下列表达式中，值为False的是 【4】 。 A) \"AB\"<\"abc\" C) \"ABCD\"<\"abc\"

B) \"ABC\" = UCase(\"abc\")

D) Mid(\"ABCD\

5．函数InStr(\"ABCDEF\的值是 【5】 。 A) 2

B) 3

C) True

D) CDEF

6．下列程序运行后，单击窗体，输出结果是 【6】 。 Private Sub Form_Click()

Dim a As Integer, b As Integer a = 3 b = 5

Print a + b; a & b End Sub A) 8 8

B) 35 35

C) 8 35

D) 35 8

7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7

b1

8A Uni--20--20学年第一学期工作计划98 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3

B) 7 3

C) 3 7

D) 10 7

8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) x1(ab且cd)1(ab且cd)2(ab且cd)

B) x2(ab且cd)

C) x1(ab且cd)2(ab)

D) x1(ab且cd)2(cd)

9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click()

s = 0: k = 1 Do

s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15

B) 10

C) 1

D) 0

10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2

B) 2 0

C) 2 1

D) 0 0

11．用下面的语句定义数组，则数组中的元素个数是 【11】 个。 Option Base 1

Dim A(-1 To 2，5) As Integer

A) 5

B) 10

C) 15

D) 20

12．下面程序段的输出结果是 【12】 。 Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k

For k = 1 To 4 Step 2 s = s + a(k) Print s;

b2

8A Uni--20--20学年第一学期工作计划98 Next k A) 8

B) 20

C) 2 8

D) 2 6 12 20

13．设有如下的用户自定义类型

Private Type Stu

name As String * 10 age As Integer End Type

则以下正确引用该类型成员的代码是 【13】 。

B) Dim s As Stu A) Stu.name=\"zhang\"

s.name = \"zhang\"

C) Dim s As Type Stu D) Dim s As Type s.name = \"zhang\" s.name = \"zhang\" 14．用“ 【14】 ”关键字声明的变量称为全局变量。 A) Private

B) Public

C) Dim

D) Static

15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是***，可能的原因是该文本框的 【15】 属性值已经被设置为\"*\"。 A) Font

B) Text

C) Name

D) PasswordChar

16．在VB 6.0中，Print是对象的 【16】 。 A) 属性

B) 方法

C) 事件

D) 名称

17．在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 【17】 。 A) Caption

B) Checked

C) Selected

D) Value

能够删除最后一个列

18．设列表框List1有3个列表项，如右图所示。则下列语句中，

表项的是 【18】 。 A) List1.RemoveItem 2 B) List1.RemoveItem \"项目C\" C) List1.RemoveItem List1. Listcount D) List1.RemoveItem List1. ListIndex

19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由 【19】 属

性设置的。 A) Style

B) FillStyle

C) BackStyle

D) BorderStyle

20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由 【20】

属性决定的。 A) Min

B) Max

C) SmallChange

D) LargeChange

21．将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 【21】 。 A) Me.Picture=b.jpg C) Me.Picture=\"b.jpg\"

B) Me.Picture= LoadPicture(b.jpg) D) Me.Picture= LoadPicture(\"b.jpg\")

22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 【22】 。 A) 先放置一个框架，然后在框架中放置两个单选按钮

b3

8A Uni--20--20学年第一学期工作计划98 B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上 C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内 D) 以上三种方法都正确

23．计时器控件能够响应的事件是 【23】 。 A) Load

B) Click

C) Change

D) Timer

24．要使命令按钮处于无效状态，可以设置按钮的 【24】 属性值为False。 A) Caption

B) Enabled

C) Style

D) Visible

25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 【25】 。 A) 第一个标准模块 C) 设计时的第一个窗体

B) 最后一个被添加的窗体 D) 最后一个被添加的标准模块

26．在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动

适应图像框的大小，可以执行语句 【26】 。 A) Image1.AutoSize=True C) Image1.AutoSize=False

B) Image1.Stretch=True D) Image1.Stretch=False

27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是 【27】 。 A) 减号-

B) 下划线_

C) &

D) #

28．要将窗体Form1从内存中卸载，正确的语句是 【28】 。 A) Form1.Show C) Form1.Hide

B) Load Form1 D) UnLoad Form1

29．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub

此时，如果单击的是鼠标右键，则Button参数的值是 【29】 。 A) 1

B) 2

C) 3

D) 4

30．获取文件的长度（字节数），可以使用的函数是 【30】 。 A) LEN( ) B) LOF( )

C) EOF( )

D) LOG( )

二、填空题（每空 2分，共 20分） （请将答案按照题干上【】内的序号填写在下表中，否则不得分） 【1】 【3】 【4】 【6】 【5】 【2】 分数 b4

8A Uni--20--20学年第一学期工作计划98 【7】 【9】

【8】 【10】 1．数学表达式

3y改写为VB表达式，形式是 【1】 。答案 sqr(3*y) /(x+y)

xy2．在VB 6.0中，InputBox函数返回值的数据类型是 【2】 。

答案：字符串类型或String

3．语句 Print Tab(5);\"ABC\" 的功能是 【3】 。 答案：从第5列开始输出字符串“ABC”

4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足55．设a=1,b=2,c=3，语句 Print a < b Or b < c And c < a的输出结果是 【5】 。

答案：True

6．在窗体上放置一个标签，名称为Label1，使用语句 【6】 可以把标签的前景色设置为蓝色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7．在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip），正确的语句是Image1.Top = 【7】 答案：Image1.Top + 10 8．使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是： 答案：Popupmenu Form1. 【8】 menu1

9．在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1. 【9】 =\"文本文件(*.txt)|*.txt\"。 答案：Filter 10．设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确的语句是 Open \"a.txt\"

For 【10】 As #1。 答案：Input

三、读程序写结果（每空3分，共 24 分） （请将答案按照题干上【】内的序号填写在下表中，否则不得分） 【1】 【3】 【5】 【2】 【4】 【6】 分数 b5

8A Uni--20--20学年第一学期工作计划98 【7】

【8】 1．下列面程序运行后，单击窗体，输出结果是 【1】 。答案：1 3 9

Private Sub Form_Click() s = 0

For n=1 To 3 p = 1

For k = 1 To n p = p * k Next k s = s + p Print s; Next n End Sub

2．下列程序运行后，单击窗体，输出结果是 【2】 。答案：7

Private Sub Form_Click() m = 0

For k = 1 To 4 Select Case k Case 1, 2

m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print m End Sub

3． 在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显示的内容是 【3】 。

答案：ade

Private Sub Form_Click() Text1.Text = \"\" s = \"aBd12Re\" For k = 1 To Len(s) ch = Mid(s, k, 1)

If ch >= \"a\" And ch <= \"z\" Then Text1.Text = Text1.Text + ch End If Next k End Sub

4． 下列程序运行后，单击窗体，输出结果是 【4】 。 答案：11 24

b6

8A Uni--20--20学年第一学期工作计划98 Option Base 1 Private Sub Form_Click()

x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0

For k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; s End Sub

5． 下列程序运行后，单击窗体，输出结果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3

For k = 1 To 3

If k = 1 Or i = k Then a(i, k) = 1 Else

a(i, k) = i + k End If Next k Next i

Print a(1, 1); a(2, 3); a(3, 3) End Sub

6．在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。

Private Sub Command2_Click()

Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; g End Sub

Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub

程序运行后，单击命令按钮，则输出结果是 【6】 。答案：18 12 7．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。

Private Sub Command3_Click()

6b7

8A Uni--20--20学年第一学期工作计划98 Dim k As Integer k = 1

Print fun1(k); Print fun1(k); Print fun1(k); End Sub

Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer

a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + c End Function

程序运行后，单击命令按钮，则输出结果是 【7】 。答案：7 11 15 8．在窗体上放置一个文本框，其名称为Text1，并编写如下代码。

Dim s As String

Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s; End Sub

程序运行后，在文本框中输入abc，则窗体上输出的内容是 【8】 。答案：aababc 四、改错题（每题3分，共 6 分） （请将答案按照题号填写在下表中，否则不得分） 第1题 分数 第2题 1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是： （1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；

（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。 程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。 ．．(1) (2) (3) (4) (5) (6) (7) (8)

Private Sub Form_Load()

Timer1.Interval = 5 答案：200

Timer1.Enabled = True End Sub

Private Sub Timer1_Timer()

Label1.FontSize = Label1.FontSize + 2 If Label1.FontSize > Me.Width Then Label1.FontSize = 8

b8

8A Uni--20--20学年第一学期工作计划98 (9) (10)

End If End Sub

2．下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前．．的编号。 (1) (2) (3) (4) (5) (6) (7)

s = 0 k = 1

Do While k <= 99

k = k + 2 答案：将（4）、（5）调换顺序 s = s + k Loop Print s

五、程序填空题（每空2分，共 20 分） （请将答案按照题干上【】内的序号填写在下表中，否则不得分） 【1】 【2】 第1题 【3】 【4】 【5】 第2题 【6】 【7】 第3题 【8】 【9】 第4题 【10】 1．在窗体上放置一个列表框，名称为List1；放置一

Text1；放置一个命令按钮，名称为Command1，“统计3的倍数”。如右图所示。

下列程序的功能是：

（1） 在窗体的Load事件中，产生10个20~30（含

之间的随机整数，并作为列表项逐个添加到List1中。

分数 个文本框，名称为Caption属性值为

20和30）列表框

（2） 单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并将统计结果显示在文

本框Text1中。

b9

8A Uni--20--20学年第一学期工作计划98 请填空完善程序。 Private Sub Form_ Load( )

Dim x As Integere Randomize

For k = 1 To 10 答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '产生一个[20,30]之间的随机整数 【2】 '将x作为列表项添加到List1中 Next k 答案：List1.AddItem x 或 List1.AddItem str(x) End Sub

Private Sub Command1_Click() Dim n As Integer ' n:存放是3的倍数的列表项的个数

For k = 【3】 答案：0 To List1.ListCount – 1 或 0 To 9 If Val(List1.List(k)) 【4】 = 0 Then 答案： Mod 3 n = n + 1 End If Next k

Text1.Text = n End Sub

2．下列程序的功能是用近似公式 e110-4时停止计算。请填空完善程序。

Private Sub Form_Click() Dim e As Single, n As Integer, p As Single 'e: 累加和 p: 参加求和的当前项 e = 1: n = 1: p = 1

Do While 【5】 答案：p >= 1e-4 e = e + p

n = n + 1

p = 【6】 答案：p / n Loop

Print \"e的近似值=\"; e End Sub

3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：

控件类型 标签 命令按钮 控件名称 Label1 Command1 Option1 单选按钮 Option2 Caption 隶书 属性 属性值 1111 求自然对数的底 e 的值，直到最后一项小于1!2!3!n!Caption 示例文字 Caption 设置 Caption 宋体

下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字

体。请填空完善程序。

Private Sub Command1_Click()

b10

8A Uni--20--20学年第一学期工作计划98 Dim fn As String ' fn:存放选中的字体 If 【7】 Then 答案：Option1.Value = True fn = \"宋体\" Else

fn = \"隶书\" End If

【8】 = fn 答案：Label1.FontName End Sub

4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。

单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。 请填空完善程序。 Option Base 1

Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10

a(i) = Val(InputBox(\"输入一个数值\")) Next i

Print \"平均值=\"; 【9】 '调用函数ave 答案：ave(a) End Sub

Public Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k

【10】 答案：ave = s / n End Function

信你自己罢！只有你自己是真实的，也只有你能够创造你自己

b11