题目内容
有如下函数过程。
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
以下事件调用该函数,程序运行结果是【 】。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a,b)
Print x
End Sub
查看答案
搜索结果不匹配?点我反馈