二级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)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。