do while(a<>b)
a=200+int(rnd()*100)
b=200+int(rnd()*100)
if a>b then
jiansu(a,b) ' 调用减数过程
elseif a jiansu(b,a) ' 调用减数过程
end if
loop
Private Sub Command1_Click()
Randomize Timer
Dim x As Integer, y As Integer, t As Integer
x = 200 + Int(Rnd * 101)
y = 200 + Int(Rnd * 101)
If x < y Then
t = x
x = y
y = t
End If
Print x; " - "; y; "="; x - y
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024