2008年9月全国计算机等级考试二级VB笔试试卷

2008年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计

（考试时间90分钟，满分100分）

一、选择题（每小题2分，共70分）

下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）B

（2）D

（3）C

（4）A

（5）D

（6）B

（7）A

（8）B

（9）C

（10）C

11．在设计窗体时双击窗体的任何地方，可以打开的窗口是（）。

A．代码窗口B．属性窗口C．工程资源管理器窗口D．工具箱窗口

（11）A

考核知识点:

(1) VB集成环境的使用

答案:A

分析：在设计窗体时双击窗体的任何地方，可以打开的窗口是代码窗口。

12．若变量未事先定义而直接使用（例如：a=0），则变量a的类型是（）。

A．Integer B．String C．Boolean D．Variant

（12）D

考核知识点:

(1) 变量的定义（缺省类型）

答案:D

分析：变量没有事先定义而直接使用，则变量默认的数据类型是变体类型Variant

13．为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（）。

A．Dim pi As Integer B．Dim pi(7) As Integer

C．Dim pi As Single D．Dim pi As Long

（13）C

考核知识点:

(1) 变量的定义（类型的合理选择）

答案:C

分析：根据题目要求存放的数据3.14159不是整形数据，所以变量pi应定义为Single或Double类型，根据变量定义的格式，所以选择答案C

14．表达式2 * 3 ^ 2 + 4 * 2 / 2 +3 ^ 2的值是（）。

A．30 B．31 C．49 D．48

（14）B

考核知识点:

(1) 表达式的计算

(2) 运算符的优先级

答案:B

分析：算术运算符的优先级（高→低）：^ →* / →\ →Mod →+ - ；所以表达式计算的结果为31

15．以下不能输出“Program”的语句是（）

A．Print Mid(“VBProgram”, 3, 7) B．Print Right(“VBProgram”, 7)

C．Print Mid(“VBProgram”, 3) D．Print Left(“VBProgram”, 7)

（15）D

考核知识点:

(1) Mid函数

(2) Print方法

答案: D

分析：Mid(x, n1[, n2])从字符串x左边第n1个字符开始连续取其中的n2个字符组成字符串，n2默认表示取子串到字符串x的最后一个字符为止

16．窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的“Frame1”改为汉字“框

架”，下面正确的语句是（）。

A．https://www.360docs.net/doc/7d5512322.html, = “框架”B．Frame1.Cation = “框架”

C．Frame1.Text = “框架”D．Frame1.Value = “框架”

（16）B

考核知识点:

(1) 框架对象的常用属性

答案:B

分析：Name属性是非运行态属性，所以不能在代码窗口中修改，其作用仅仅起到标识对象的作用；而Caption属性决定对象外观上显示的内容，所以此题选择B答案。框架对象没有Text和Value属性

17．以下叙述中错误是（）。

A．在通用过程中，多个形式参数之间可以用逗号作为分隔符

B．在Print方法中，多个输出项之间可以用逗号作为分隔符

C．在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D．当一行中有多个语句时，可以用逗号作为分隔符

（17）D

考核知识点:

(1) 分隔符的正确使用

答案:D

分析：参数之间使用逗号作为分隔符，Print方法中输出项之间可以选择使用逗号或分号实现标准格式或紧凑格式的输出；变量、数组和符号常量定义时，使用逗号分隔定义的内容；一行书写多条语句时，是使用冒号分隔语句的

18．设窗体上有一个列表框控件list1，含有若干列表项。以下能表示当前被选中的列表项内容的是（）。

A．List1.List B．List1.ListIndex C．List1.Text D．List1.Index

（18）C

考核知识点:

(1) 列表框的常用属性

答案: C

分析：当前被选中的列表项内容保存在列表框的Text属性中，或者列表框的List属性中，但List属性是集合属性，所以必须标明当前被选中的列表项的下标索引号，才能通过List属性获取当前被选中的列表项内容。即List1.List(List1.ListIndex)

19．设a=3，b=5，c=6，执行语句print a

A．True B．False C．出错信息D．0

（19）A

考核知识点:

(1) 逻辑表达式的计算

(2) Print方法

答案:A

分析：窗体上显示的内容是由Print方法后的输出项决定的，此处输出项的是一个逻辑表达式，根据运算规则，逻辑表达式的值为True，所以窗体上显示的内容是True

20．执行下列语句

strInput = InputBox(“请输入字符串”, “字符串对话框”, “字符串”)

将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是（）。

A．“请输入字符串”B．“字符串对话框”C．“字符串”D．空字符串

（20）C

考核知识点:

(1) InputBox的使用（返回值的类型、参数含义）

答案: C

分析：Var = InputBox(Prompt[,title][,default][,x,y][,helpfile,context])

式中，Var可以是变体变量或字符串型变量，也可以是数值型变量(若输入内容不可转换成数值型数据，将会产生运行错误)。

在调用InputBox函数时，屏幕上将产生一个带有提示信息的对话框，光标在输入对话框底部的输入文本框中闪烁，等待用户输入数据。用户按回车键或用鼠标单击“确定”或“OK”按钮，即可把输入文本框中输入的数据以字符串形式赋给变量；按Esc?键或单击“取消”或“Cancel”按钮，则返回0值或空串。

InputBox函数的各个参数的意义如下：

1．Prompt：提示用的文字信息，字符串类型，其长度不能超过1024个字符；该参数不可缺省。在对话框内显示Prompt 提示文字信息时，可以自动换行。若想按自己的要求换行，则可采用插入回车换行符，即Chr(13)+Chr(10)或vbCrLf 来实现。

2．title：对话框标题(字符型)，缺省时，为空白；

3．default：显示在用户编辑框中的缺省值(字符型)，缺省时，返回空值；

4．x,y：对话框在屏幕上显示时的位置，单位是特维，(x,y)是对话框左上角点的坐标；

5．helpfile,context：帮助文件名及帮助主题号。有本选项时，在对话框中自动增加一个帮助按钮。

此题中，由于是直接单击“确定”按钮，所以InputBox函数返回的是参数Default属性的值，所以答案为C“字符串”

21．窗体上有Command1、Command2两个命令按钮。现编写以下程序

Option Base 0

Dim a() As Integer, m As Integer

Private Sub Command1_Click()

m = InputBox(" 请输入一个正整数")

ReDim a(m)

End Sub

Private Sub Command2_Click()

m = InputBox(" 请输入一个正整数")

ReDim a(m)

End Sub

运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是（）。A．5 B．6 C．10 D．11

（21）B

考核知识点:

(1) 动态数组的定义

(2) Option Base语句的作用

(3) 作用域问题

答案:B

分析：由于数组和变量都是用Dim定义在过程之外的通用部分，所以它们是模块级的，而且命令按钮的单击过程中没有另外定义同名的数组和变量，因此，在两个命令按钮的单击过程中对数组和变量的访问是同一个。Option Base 0 表示数组元素的缺省下标从0开始，Redim a(m)表示不保留原来数组元素空间，重新申请m+1个数组元素空间定义数组a；根据题目要求先单击命令按钮1，输入10，所以动态数组a动态定义为有11个数组元素构成的数组；先单击命令按钮2，输入5，所以动态数组a动态定义为有6个数组元素构成的数组。

22．在窗体上画一个命令按钮和一个标签，其名称分别为Command1和label1，然后编写如下事件过程：Private Sub Command1_Click()

Counter = 0

For i = 1 To 4

For j = 6 To 1 Step -2

Counter = Counter + 1

Next j

Next i

Label1.Caption = Str(Counter)

End Sub

程序运行后，单击命令按钮，标签中显示的内容是（）。

A．11 B．12 C．16 D．20

（22）B

考核知识点:

(1) For循环流程

(2) For循环次数的计算

(3) 统计算法

答案:B

分析：根据程序代码可以分析出：标签中显示的内容即Counter变量的值，Counter变量的值在For循环之前为0，由于For循环体中没有单独的改变循环变量的语句和Exit语句，所以For循环体执行的次数即为所求Counter变量的值；For循环的执行次数=各重循环次数的累乘；每重循环次数=Int((终值-初值+1)/步长)，所以此题=4*（（6-1+1）/2）=12

23．在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

Private Sub Command1_Click()

Dim M(10) As Integer

For k = 1 To 10

M(k) = 12 - k

Next k

x = 8

Print M(2 + M(x))

End Sub

运行程序，单击按钮，在窗体上显示的是（）。

A．6 B．5 C．7 D．8

（23）A

考核知识点:

(1) 数组的基本访问

(2) For循环的执行流程

答案:A

分析：根据题目要求窗体上显示的内容，即Print方法输出的M(2+M(X))的值，x=8，所以是求M(2+M(8))；之前For循环为M数组元素赋值，所以M(8)=12-8=4；M(2+M(8))=M(2+4)=M(6)=12-6=6。

24．以下关于过程及过程参数的描述中，错误的是（）。

A．调用过程时可以用控件名称作为实际参数

B．用数组作为过程的参数时，使用的是“传地址”方式

C．只有函数过程能够将过程中处理的信息传回到调用的程序中

D．窗体（Form）可以作为过程的参数

（24）C

考核知识点:

(1) 过程参数的形式

(2) 参数的传递方式

答案:C

分析：对象（窗体和控件对象）可以作为实参，与数组参数一样，使用的是“传地址”；函数过程本身能将过程中处理的信息传回到调用程序，子程序过程则必须通过按地址传递的形参将过程中处理的信息传回到调用程序。

25．在窗体上画一个名称为Command1的命令按钮，再画两个名称为分别为label1、label2的标签，然后编写如下程序代码：

Private X As Integer

Private Sub Command1_Click()

X = 5: Y = 3

Call proc(X, Y)

Label1.Caption = X

Label2.Caption = Y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

X = a * a

Y = b + b

End Sub

程序运行后，单击命令按钮，则在两个标签中显示的内容分别是（）。

A．25和3 B．5和3 C．25和6 D．5和6

（25）A

考核知识点:

(1) 变量的作用域

(2) 参数传递方式

(3) 过程调用流程

答案:A

分析：此题中X是Private定义在过程之外通用部分的模块级变量，且各过程中没有定义同名的X，所以过程中对X的访问均是对该模块级变量的X的访问；而没有显式定义的Y，则是在各个过程中独立使用的过程级变量，虽然同名，但是相互独立不干扰。从过程调用的传递方式上分析：实参X与形参a之间是按地址传递，实参Y与形参b 之间是按值传递，在proc过程中，模块级变量X的值改变为a*a即为25，过程级变量Y的值改变为b+b即为6，但对Command1中的过程级变量Y没有任何影响。所以过程调用结束后，标签中显示的值为25和3。

26．在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示：

设有如下的类型和变量声明：

Private Type Person

name As String * 8

major As String * 20

End Type

Dim p As Person

设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Text2.dat中的程序段是（）。

A．Open "c:\Test2.dat" For Output As #1

Put #1, 1, p

Close #1

B．Open "c:\Test2.dat" For Random As #1

Get #1, 1, p

Close #1

C．Open "c:\Test2.dat" For Random As #1 Len = Len(p)

Put #1, 1, p

Close #1

D．Open "c:\Test2.dat" For Random As #1 Len = Len(p)

Get #1, 1, p

Close #1

（26）C

考核知识点:

(1) 随机文件的基本操作

答案:C

分析：随机文件的打开操作

Open 文件名[For Random] As 文件号[Len = 记录长度]

随机文件的写操作是通过Put #语句来实现的。

格式：Put #文件号, [记录号], 变量

随机文件的读操作是通过Get #语句来实现的。

格式：Get #文件号, [记录号], 变量

根据题目要求是将变量中的数据写入随机文件，所以只能选择C

27．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()

Dim i As Integer, n As Integer

For i = 0 To 50

i = i + 3

n = n + 1

If i > 10 Then Exit For

Next

Text1.Text = Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（）。

A．2 B．3 C．4 D．5

（27）B

考核知识点:

(1) For循环的流程

答案:B

分析：

28．假定有以下循环结构：

Do Until 条件表达式

循环体

Loop

则以下正确的描述是（）。

A．如果“条件表达式”的值是0，则依次循环体也不执行

B．如果“条件表达式”的值不为0，则至少执行一次循环体

C．不论“条件表达式”的值是否为“真”，至少要执行一次循环体

D．如果“条件表达式”的值恒为0，则无限次执行循环体

（28）D

考核知识点:

(1) Do Until循环的执行流程

(2) 逻辑值与数值之间的转换

答案:D

分析：Do Until循环的特点：当循环条件为True，结束循环；当循环条件为False，进入循环执行循环体。若循环条件表达式的值为非逻辑值，则数值0自动转换为False，而非0值则自动转换为True。所以，根据以上知识点，正确的描述是D

29．在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim I, num

Randomize

Do

For I = 1 To 1000

num = Int(Rnd * 100)

Print num;

Select Case num

Case 12

Exit For

Case 58

Exit Do

Case 65, 68, 92

End

End Select

Next I

Loop

End Sub

上述事件过程执行后，下列描述中正确的是（）。

A．Do循环执行的次数为1000次

B．在For循环中产生的随机数小于或等于100

C．当所产生的随机数为12时结束所有循环

D．当所产生的随机数为65、68或92时窗体关闭、程序结束

（29）D

考核知识点:

(1) Select Case语句执行流程

(2) 循环语句执行流程

(3) Exit For和Exit Do的作用

(4) End语句的作用

(5) 随机整数的产生公式

答案:D

分析：END语句作用是结束整个程序；Exit For和Exit Do是跳出所在的一层For或Do循环；[a,b]区间的随机整数的产生公式=Int(Rnd*(b-a+1)+a),根据题目Int(Rnd*100)，可以分析出是产生[0,99]区间的随机整数；根据以上分析，所以正确描述是D

30．在窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体画一个名为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4)

j = 1

For i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

End Sub

运行上面的程序，其输出结果是（）

A．1234 B．12 C．34 D．4321

（30）A

考核知识点:

(1) Array函数

(2) 数组的基本访问

(3) For循环流程

答案:A

分析：变体变量| 动态变体数组= Array(数据列表)

引用数组元素时，下标不能超出下界到上界的范围，下界是由Option Base语句指定的下界决定，默认情况为0，赋值后的数组大小由赋值的Array函数括号中参数的个数决定

此处a= Array(1, 2, 3, 4)

Public Function Fun(xStr As String) As String

Dim tStr As String, strL As Integer

tStr = ""

strL = Len(xStr)

i = 1

Do While i <= strL / 2

tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)

i = i + 1

Loop

Fun = tStr

End Function

在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：

Private Sub Command1_Click()

Dim S1 As String

S1 = "abcdef"

Print UCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，输出结果是（）

A．ABCDEF B．abcdef C．AFBECD D．DEFABC

（31）C

考核知识点:

(1) 过程调用流程

(2) 常用函数Ucase和Len、Mid函数

(3) Do循环

答案:C

分析：Fun函数的功能是从字符串的两端对称各取一个字符连接起来，重新排列构成字符串

32．某人为计算n!（0

Private Function fun(n As Integer) As Long

Dim p As Long

p = 1

For k = n - 1 To 2 Step -1

p = p * k

Next k

fun = p

End Function

在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是（）。

A．把p = 1改为p = n

B．把For k = n - 1 To 2 Step -1改为For k = 1 To n - 1

C．把For k = n - 1 To 2 Step -1改为For k = 1 To n

D．把For k = n - 1 To 2 Step -1改为For k = 2 To n

（32）B

考核知识点:

(1) 累乘算法

答案:B

分析：原函数中的累乘代码错在，累乘初始值设置有误，造成累乘过程遗漏了n本身，而选项B不能解决错误。

Function fun(S As String) As String

Dim s1 As String

For i = 1 To Len(S)

s1 = LCase(Mid(S, i, 1)) + s1

Next i

fun = s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1 = InputBox("请输入一个字符串")

Str2 = fun(Str1)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（）。

A．ABCDEFG B．abcdefg C．GFEDCBA D．gfedcba

（33）D

考核知识点:

(1) For循环的执行流程

(2) 字符串函数的使用

(3) 过程调用流程

答案:B

分析：函数Fun作用是将字符串的逆序并转换为小写形式

34．为计算a n的值，某人编写了函数power如下：

Private Function power(a As Integer, n As Integer) As Long

Dim p As Long

p = a

For k = 1 To n

p = p * a

Next k

power = p

End Function

在调试时发现是错误的，例如Print power(5, 4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是（）。

A．把For k = 1 To n改为For k = 2 To n

B．把p = p * a改为p = p ^ n

C．把For k = 1 To n改为For k = 1 To n - 1

D．把p = a改为p = 1

（34）B

考核知识点:

(1) 累乘算法

答案:B

分析：原函数中的累乘代码错在，由于累乘初始值设置是从a开始，造成累乘多了一次，即a^(n+1)，而修改方案B不能解决错误。

35．某人编写了下面的程序

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = InputBox("请输入整数")

b = InputBox("请输入整数")

pro a

pro b

Call pro(a + b)

End Sub

Private Sub pro(n As Integer)

While (n > 0)

Print n Mod 10;

n = n \ 10

Wend

Print

End Sub

此程序功能是：输入2个正整数，反序输出这2个数的每一位是胡子，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：

3 2 1

4 3 2

7 5 3

但调试时发现只输出了前2行（即2个数的反序），而未输出第3行（即2个数之和的反序），程序需要修改。下面的修改方案中正确的是（）。

A．把过程pro的形式参数n As Integer改为Byval n As Integer

B．把Call pro(a + b)改为pro a + b

C．把n = n \ 10改为n = n / 10

D．在pro b语句之后增加语句c& = a + b，再Call pro(a + b)改为pro c

（35）A

考核知识点:

(1) 参数的传递方式

答案:A

分析：此处第一、二次参数的传递方式是按地址传递的，所以形参在过程中改变为0，造成实参a和b也同步改变为0，所以在第三次过程调用时，就无法准确将原a和b的值传递，所以出错，因此要解决问题，就必须保证传递方式是按值传递的，这样a和b的值就不会改变，所以选择答案A

二、填空题

请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。

(1) DBXEAYFZC

(2) 单元

(3) 过程

(4) 逻辑设计

(5) 分量

6．在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

Private Sub Command1_Click()

S$ = InputBox("请输入一个字符串")

Text1.Text = S$

End Sub

Private Sub Text1_Change()

Label1.Caption = UCase(Mid(Text1.Text, 7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是。

(6) BASIC

7．在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

a$ = "National Computer Rank Examination"

n = Len(a$)

s = 0

For i = 1 To n

b$ = Mid(a$, i, 1)

If b$ = "n" Then

s = s + 1

End If

Next i

Print s

End Sub

程序运行后，单击命令按钮，输出结果是

(7) 4

8．为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框picture1，所使用的语句为。

(8) Picture1.Picture = LoadPicture(“d:\pic\a.jpg”)

9．设有如下程序：

Private Sub Form_Click()

Cls

a$ = "ABCDFG"

For i = 1 To 6

Print Tab(12 - i);

Next i

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

(9) Right(a$,i)或Mid(a$,7-i)

(11) neg=neg+Arr(k)

10．在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim Arr

Arr = Arr(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)

pos = 0

neg = 0

For k = 1 To 10

If Arr(k) > 0 Then

Else

End If

Next k

Print pos, neg

End Sub

以上程序的功能是：计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

(10) pos=pos+Arr(k)

11．在窗体上画一个名为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer

Sum = 0

n = InputBox("Enter a number")

n = Val(n)

For i = 1 To n

Sum =

Next i

Print Sum

End Sub

Function fun(t As Integer) As Long

p = 1

For i = 1 To t

p = p * i

Next i

End Function

以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。

(12) sum + Fun(i)

(13) Fun=p

12．在窗体上画一个文本框，名称为Text1，然后编写如下程序：

Private Sub Form_Load()

Open "d:\temp\dat.txt" For Output As #1

Text1.Text = ""

End Sub

Private Sub Text1_Change()

If keyascii = 13 Then

If UCase(Text1.Text) = Then

Close #1

End

Else

Write #1,

Text1.Text = ""

End If

End If

End Sub

以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。

(14) “END”

(15) Text1.Text