Question

求这几道VB题的答案

3、要想从子过程调用后返回两个参数的值，下面子过程语句满足要求的是__________。
A、Sub f(a%,Byval b%)
B、Sub f(ByVal a%,Byval b%)
C、Sub f(a%,b%)
D、Sub f(Byval a%,b%)

4、以下过程的功能是将字符串str1中所有的字符"ch"删除，选择填空完成该过程。
Sub change(str1 As String,ch As String)
Dim str2 As String,I As Integer,len1 As Integer
len1=Len(str1)
For I=1 to len1
If Mid(str1,I,1)< >"ch" Then str2=str2 + Mid(str1,I,1)
Next I
_________________
End Sub
A、str2=str1
B、str1=str2
C、change=str2
D、change=str1

5、执行下列程序，输出结果为__________。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=10
b=30
S1 a, b
Print "a="; a;Space(1);"b="; b
End Sub
Sub S1(ByVal x As Integer, ByVal y As Integer)
t = x
x = y
y = t
End Sub
A、a=10 b=10
B、a=10 b=30
C、a=30 b=10
D、a=30 b=30

6、以下正确的函数定义形式是____________。
A、Public f1(a As Single)
B、Sub f1(a As Single)
C、Private f1(a As Single)
D、Function f1(A) As String

7、在窗体上添加一个名为Command1的命令按钮和两个名为Label1、Label2的标签，程序代码如下：
Private x As Integer

Private Sub proc(ByVal a As Integer,ByVal b As Integer)
x=a*a
y=b+b
End Sub
Private Sub Command1_Click()
x=5
y=3
Call proc(x,y)
Label1.Caption=x
Label2.Caption=y
End Sub
程序运行后，单击命令按钮，两个标签中显示的内容分别是__________。
A、25和3
B、25和6
C、5和6
D、5和3

8、1、有如下程序：
　　Option Base 1
　　Private Sub Form_Click()
　　 Dim arr, Sum
　　 Sum = 0
　　 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
　　 For i = 1 To 10
　　 If arr(i) / 3 = arr(i) \ 3 Then
　　 Sum = Sum + arr(i)
　　 End If
　　 Next i
　　 Print Sum
　　End Sub
　程序运行后，单击窗体，输出结果为

A、25
B、26
C、27
D、28

9、Sub 过程与Function 过程最根本的区别是：
A、前者可以使用Call 或直接使用过程名调用, 后者不可以
B、后者可以有参数, 前者不可以
C、两种过程参数的传递方式不同
D、前者无返回值,但后者有

10、以下关于变量作用域的叙述中，正确的是____________。
A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B、全局变量必须在标准模块中声明
C、模块级变量用Private关键字声明
D、Static类型变量的作用域是它所在的窗体或模块文件

Answer 1

3-10正确答案：CBBDACDB