更多"假定有以下两个过程。 Sub S1(ByVal x As Integ"的相关试题:
[单项选择]假定有以下两个过程：
Sub S1 (ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2 (x As Integer, y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作
[单项选择]假定有以下两个过程：
Sub Sl(ByVal x As Integer，ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer，y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作
[单项选择]有下列两个过程：
Sub S1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则下列叙述中正确的是( )。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作
[单项选择]有下列两个过程：
Sub S1(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer,y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则下列叙述中正确的是( )。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作
[单项选择]假定有以下两个过程：
Private Sub PPP(aAsSingle，b As Single)
a=a+b
Printa,b
b=a+b
Printa,b
End Sub
Private Sub Form_Activate( )
x=18
Call PPP((x)，(x))
PrintX：
End Sub
则以下说法中不正确的是( )。
A. 虚参是a和b，两个实参(x)和(x)允许重名
B. 虚参是a和b，实参(x)表示传值调用
C. 虚参是a和b，实参(x)表示是非传址调用
D. 虚参是a和b，两个实参(x)和(x)不允许重名
[单项选择]假定有以下两个过程：
Sub SI (By Val x As Integer，By Val y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer，y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的俏的操作
[单项选择]有以下函数过程：
Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜ >0
Remender=x Mod v
x=y
Y=Reminder
Loop
Gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=50
b=10
x=Cys(a，b)
Print x
End sub
A. 0
B. 10
C. 50
D. 100
[单项选择]
假定有以下两个过程：
SubS1（ByValxAsInteger，ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
EndSub
SubS2（xAsInteger，yAsInteger）
DimtAsInteger
t=x
x=y
y=t
EndSub
则以下说法中正确的是（）
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作
[单项选择]假定有下列两个过程：
Private Sub PPP(a As Single, b As Single)
a=a+b
Print a, b
b=a+b
Print a, b
End Sub
Private Sub Form_Activate（ ）
x=18
Call PPP((x), (x))
Print x
End Sub
则下列说法中不正确的是( )。
A. 形参是a和b，两个实参(x)和(x)允许重名
B. 形参是a和b，实参(x)表示传值调用
C. 形参是a和b，实参(x)表示是非传址调用
D. 形参是a和b，两个实参(x)和(x)不允许重名
[单项选择]有如下函数过程：
Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer
Do While y ＜ ＞ 0
sic=x/y
X=y
y=sic
Loop
HFC=x
End Function
以下是该函数的调用过程，该程序的运行结果是( )。
Private Sub Command1 _ Click( )
Dim a AS Integer
Dim b As Integer
a=12
b=2
x=HFC(a，b)
Print x
End Sub
A. 0
B. 6
C. 2
D. 80
[填空题]有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是 【7】 。
Private Sub Command1_Click（ ）
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub
[单项选择]有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click（ ） Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x End Sub
A. 0
B. 25
C. 50
D. 100
[单项选择]有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 sic=x/y x=y y=sic Loop UNC=x End Function 以下是该函数的调用过程，该程序的运行结果是 PriVate Sub COmmand1_Click（ ） Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，b) Print x End Sub
A. 0
B. 6
C. 2
D. 80
[单项选择]有如下函数过程：
Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer
Do While y ＜＞ 0
reminder=x Mod y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调节器用该函数，则该程序的运行结果是( )。
Private Sub Command1_Click（ ）
Dim a As Integer
Dim b As Integer
a=100
b=25
x=fun1(a, b)
Print x
End Sub
A. 0
B. 25
C. 5O
D. 100
[单项选择]有如下函数过程：
Function Fun(ByVal x As Integer,ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下调用函数的事件过程，该程序的运行结果是( )。
Private Sub Command7_Click（ ）
Dim a As Integer,b As Integer
a=100:b=25
x=Fun(a,B)
Print X
End Sub
A. 0
B. 25
C. 50
D. 100
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Sub S1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer
a=10
b=30
S1 a, b
Print "a="; a; "b="; b
End Sub
程序运行后，单击命令按钮，输出结果是______。
A. a=30 b=10
B. a=30 b=30
C. a=10 b=30
D. a=10 b=10
[单项选择]有如下函数过程：
Function fun1(ByVal x As Integer,ByVal y As Integer) As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。
Private Sub Command1_Click（ ）
Dim a AS Integer
Dim b As Integer
a=100
b=25
x=fun1(a,b)
Print x
End Sub
A. 0
B. 25
C. 50
D. 100
