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

高级语言程序设计（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) 代码窗口B) 窗体设计窗口

C) 属性窗口D) 工程资源管理器窗口

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

A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。

A) "AB"<"abc" B) "ABC" = UCase("abc")

C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【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

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) ??

?≠≥=<=)

(2)

c (1

d c b a d b a x 且且

B) ??

?≠<=<=)(2)

c (1

d c b a d b a x 且且

C) ?

?

?≥=<=)(2)

c (1b a

d b a x 且

D) ?

?

?≠=<=)(2)

c (1

d c d b a x 且

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;

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】。

A) https://www.360docs.net/doc/2110153458.html,="zhang" B) Dim s As Stu

https://www.360docs.net/doc/2110153458.html, = "zhang"

C) Dim s As Type Stu

https://www.360docs.net/doc/2110153458.html, = "zhang" D) Dim s As Type

https://www.360docs.net/doc/2110153458.html, = "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 B) Me.Picture= LoadPicture(b.jpg)

C) Me.Picture="b.jpg" D) Me.Picture= LoadPicture("b.jpg")

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

A) 先放置一个框架，然后在框架中放置两个单选按钮

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) 第一个标准模块B) 最后一个被添加的窗体

C) 设计时的第一个窗体D) 最后一个被添加的标准模块

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

A) Image1.AutoSize=True B) Image1.Stretch=True

C) Image1.AutoSize=False D) Image1.Stretch=False

27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符

号是 【27】 。 A) 减号-

B) 下划线_

C) &

D) #

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

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( )

1．数学表达式

y

x y

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

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

答案：字符串类型或String

3．语句Print Tab(5);"ABC" 的功能是【3】。

答案：从第5列开始输出字符串“ABC”

4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5

x =Val(Text1.Text) 答案5 < x And x <10

If 【4】Then Print "Yes" Else Print "No"

5．设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

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 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 6 7．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。

Private Sub Command3_Click()

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

1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：

（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；

（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。

程序中有一处

．．错误，请更正。说明错误时可以使用每条语句前的编号。

(1) Private Sub Form_Load()

(2) Timer1.Interval = 5 答案：200

(3) Timer1.Enabled = True

(4) End Sub

(5) Private Sub Timer1_Timer()

(6) Label1.FontSize = Label1.FontSize + 2

(7) If Label1.FontSize > Me.Width Then

(8) Label1.FontSize = 8

(9) End If

(10) End Sub

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

(1) s = 0

(2) k = 1

(3) Do While k <= 99

(4) k = k + 2 答案：将（4）、（5）调换顺序

(5) s = s + k

(6) Loop

(7) Print s

五、程序填空题（每空2分，共20 分）

（请将答案按照题干上【】内的序号填写在下表中，否则不得分）

1．在窗体上放置一个列表框，名称为List1；放置一个文本框，名称为Text1；放置一个命令按钮，名称为Command1，Caption属性值为“统计3的倍数”。如右图所示。

下列程序的功能是：

（1

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

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

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

请填空完善程序。

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．下列程序的功能是用近似公式 !

1

!31!21!111n e +++++

≈ 求自然对数的底 e 的值，直到最后一项小于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．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：

下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。 Private Sub Command1_Click() 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