[填空题] 下面程序的运行结果是 (14) 。程序的功能是 (15) 。
Public Function myfun(m,n)
Do while m>n
Do while m>n:m=m-n:Loop
Do While n>m:n=n-m:Loop
Loop
Myfun=m
End Function
Private Sub Command1_Click()
Print myfun(15,15)
End Sub
[填空题] 下面程序的运行结果是 (14) 。程序的功能是 (15) 。
Public Function myfun(m,n)
Do while m>n
Do while m>n:m=m-n:Loop
Do While n>m:n=n-m:Loop
Loop
Myfun=m
End Function
Private Sub Command1_Click()
Print myfun(15,15)
End Sub
互换两数
VIP截止日期:2025-01-01 23:56:16
←请使用支付宝扫码支付VIP截止日期:2025-01-01 23:56:16
←请使用微信扫码支付