[单项选择]有下列两个过程：

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"的相关试题:

查看答案

[单项选择]有下列两个过程：
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都不能实现交换两个变量的值的操作

查看答案

[单项选择]假定有以下两个过程。
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都不能实现交换两个变量的值的操作

查看答案

[单项选择]有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y 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=Gys (a，b) Print x End Sub
A. 0
B. 10
C. 50
D. 100

查看答案

[单项选择]有如下函数过程：　　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 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 gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是【9】。
Private Sub Command1_Click（　）
Dim a As Integer，b As Integer
a=10：b=2
x=gys(a，b)
Print x
End Sub

查看答案

[单项选择]有如下函数过程： 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 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

查看答案

我来回答:

提交