二级VISUALBASIC-93_真题-无答案

二级VISUAL BASIC-93

(总分100,考试时间90分钟)

选择题

1. 以下叙述中错误的是

A. 标准模块文件的扩展名是.bas

B. 标准模块文件是纯代码文件

C. 在标准模块中声明的全局变量可以在整个工程中使用

D. 在标准模块中不能定义过程

2. 下面不能在信息框中输出“VB”的是

A. MsgBox"VB" B. x=MsgBox("VB")

C. MsgBox("VB") D. Call MsgBox"VB"

3. 以下关于过程的叙述中，错误的是

A. 在Sub过程中不能再定义Sub过程 B. 事件过程也是Sub过程

C. 过程调用语句的形参个数必须与实参个数相同 D. 函数过程一定有返回值

4. 设子程序过程定义的首部为：Public Sub S(X As Integer, Y As Single)则以下正确的调用形

式为

A. Call S 5, 4.8 B. Call Sub(5, 4.8)

C. Sub 5, 4.8 D. S 5, 4.8

5. 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然

后编写如下程序：

Private Sub func(LAs Label)

n="1234"

End Sub

Private Sub Form_Load()

n="ABCDE"

n=10

End Sub

Private Sub Command1_Click()

a=Val(n)

Call func(Label1)

n=a

End Sub

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

A. ABCD和10 B. 1234和100

C. ABCD和100 D. 1234和10

6. 设有如下Command1的单击事件过程及fun过程：

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox("请输入一个整数"))

fun(x)

End Sub

Private Sub fun(x As Integer)

If x Mod 2=0 Then fun(x/2)

Print x;

End Sub

执行上述程序，输入6，结果是

A. 3 6 B. 6 3

C. 6 D. 程序死循环

7. 编写如下程序：

Private Sub Command1_Click()

Dim str1 As String, str2 As String

str1=InputBox("输入一个字符串"): subf str1, str2:Print str2

End Sub

Sub subf(s1 As String, s2 As String)

Dim temp As String:Static i As Imeger i=i+1

temp=Mid(s1, i, 1)

If temp＜＞""Then subf s1.s2

s2=s2&temp

End Sub

程序运行后，单击命令按钮Command1，且输入“abcdef”，则输出结果为

A. afbecd B. cdbeaf

C. fedcba D. adbecf

8. 以下关于函数过程的叙述中，正确的是

A. 函数过程形参的类型与函数返回值的类型没有关系

B. 在函数过程中，过程的返回值可以有多个

C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D. 如果不指明函数过程参数的类型，则该参数没有数据类型

9. 在VB中，函数过程与子程序过程的区别之一是

A. 函数过程必须有参数，而子程序过程可以没有

B. 函数过程的参数传递只采用值传递，而子程序过程只采用地址传递

C. 在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能

D. 函数过程有返回值，而子程序过程没有

10. 在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：

Function Fun1(ByVal a As Integer, b As Integer)As Integer

Dim t As Integer

t=a-b:b=t+a:Fun1=t+b

End Function

Private Sub Command1_Click()

Dim x As Integer

x=10

Print Fun1(Fun1(x, (Fun1(x, x-1))), x-1)

End Sub

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

A. 10 B. 0

C. 11 D. 21

11. 有下面程序代码：

Private Sub Command1_Click()

Dim a As String

a="COMPUTER" n=search(a, "T"):Print IIf(n=0, "未找到", n)

End Sub

Private Function search(str As String, ch As String)As Integer

For k=1 To Len(str)

c=Mid(str, k, 1)

If c=ch Then

search=k:Exit Function

End If

Next k

search=0

End Function

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

A. 0 B. 8

C. 6 D. 未找到

12. 现有如下程序：

Private Sub Command1_Click()

s=0

For i=1 To 5

s=s+f(5+i)

Next

Print s

End Sub

Public Function f(x As Integer)

If x＞=10 Then

t=x+1

Else

t=x+2

End If

f=t

End Function

运行程序，则窗体上显示的是

A. 38 B. 49

C. 61 D. 70

13. 假定有以下通用过程：

Function Fun(n As Integer)As Integer

x=n*n:Fun=x-11

End Function

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

Private Sub Command1_Click()

Dim i As Integer

For i=1 To 2

y=Fun(i) Printy;

Next i

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A. 1 3 B. 10 8

C. -10 -7 D. 0 5

14. 求1!+2!+……+10!的程序如下：

Private Function s(x As Integer)

f=1

For i=1 To x

f=f*i

Next

s=f

End Function

Private Sub Command1_Click()

Dim i As Integer, y As Long

For i=1 To 10

______

Next

Print y

End Sub

为实现功能要求，程序的括号中应该填入的内容是

A. Call s(i) B. Call s

C. y=y+s(i) D. y=y+s

15. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Function Fun(x)

y=0

If x＜10 Then

y=x

Else

y=y+10

End If

Fun=y

End Function

Private Sub Command1_Click()

n=InputBox("请输入一个数"):n=Val(n)

P=Fun(n):Print P

End Sub

运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”

按钮，则输出结果为

A. 10 B. 100

C. 110 D. 出错信息

16. 设有如下事件过程：

Private Sub Command1_Click() Dim a

a=Array(12, 3, 8, 5, 10, 3, 5, 9, 2, 4)

For k=1 To 9

Print fun(a(k-1), a(k)); "";

Next k

End Sub

Private Function fun(x, y) As Integer

Do While x＞=y

x=x-y

Loop

fun=x

End Function

程序运行时的输出结果是

A. 4 0 1 0 3 0 0 4 0

B. 0 3 3 5 1 3 5 1 2

C. 9 -5 3 -5 7 -2 -4 7 -2

D. 9 3 3 5 7 3 5 7 2

17. 设有如下函数：

Function DelSpace(ch As String)As Integer

Dim n%, st$, c$

st="":n=0

For k=1 To Len(ch)

c=Mid(ch, k, 1)

If c＜＞""Then

st=st&c

Else

n=n+1

End If

Next k

ch=st:DelSpace=n

End Function

该函数的功能是

A. 统计并返回字符串ch中字符的个数

B. 删除字符串ch中的空格符，返回删除字符的个数

C. 统计并返回字符串ch中非空格字符数

D. 删除字符串ch中除空格符外的其他字符，返回删除字符的个数

18. 窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：

Private Sub Command1_Click() Dim i As Integer

For i=1 To 500

If p(i)Then s=s+1

Next

Print s

End Sub

Private Function p(x As Integer) As Boolean

If x Mod 7＜＞0 Then

p=True

Else

p=False

End If

End Function

关于上述程序，以下叙述中正确的是

A. 程序功能是统计1-500范围内能被7整除的整数个数

B. Command1_Click事件过程中If语句的条件表达式不完整

C. Function过程定义有误，函数过程p的名称与该过程中的变量名p相同

D. 函数过程p的返回值为Boolean类型

19. 设有下面程序代码：

Private Sub Command1_Click()

Dim str As String, ch As String

str=:Visual Basic Programming":ch="a"

n=fun(ch, str): Print str, n

End Sub

Private Function fun(ch As String, str As String)As Integer

Dim strbuf As String, c As String, n As Integer

For k=1 To Len(str)

c=Mid$(str, k, 1)

If c＜＞ch Then

strbuf=strbuf&c

Else

strbuf=strbuf&UCase(c):n=n+1

End If

Next k

str=strbuf:fun=n

End Function

程序运行时的输出是

A. Visual Basic Programming 0

B. VisuAl BAsic ProgrAmming 3

C. Visul Bsic Progrmming 3

D. VisualBasicProgramming 2

20. 以下叙述中错误的是

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

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

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

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

21. 以下关于过程及过程参数的描述中，错误的是

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

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

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

D. 窗体(Form)可以作为过程的参数

22. 下面是求最大公约数的函数的首部

Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer

若要输出8、12、16这3个数的最大公约数，下面正确的语句是

A. Print gcd(8, 12), gcd(12, 16), gcd(16, 8)

B. Print gcd(8, 12, 16)

C. Print gcd(8), gcd(12), gcd(16)

D. Print gcd(8, gcd(12, 16))

23. 为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为

A. Value B. ByVal

C. ByRef D. Reference

24. 以下过程定义中正确的过程首行是

A. Private Sub Proc(Optional a as Integer, b as Integer)

B. Private Sub Proc(a as Integer)as Integer

C. Private Sub Proc(a() As Integer)

D. Private Sub Proc(ByVal a() As Integer)

25. 某人编写了下面的程序

Private Sub Command1_Click()

Dim a As Integer, b As Integer

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

pro a:pro b

Callpro(a+b)

End Sub

Private Sub pro(n As Integer)

While(n＞0)

Print n Mod 10; n=n10

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=n10改为n=n/10

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

26. 有下面程序代码：

Private Sub Command1_Click()

Dim x As Integer, s As Integer

x=1