Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Int(Rnd() * (999 - 100)) + 99
a = Int(x / 100)
b = Int((x Mod 100) Mod 10)
c = x Mod 10
y = 100 * c + 10 * b + a
Print "产生的随机三位数:"; x
Print "对应的逆序数为:"; y
End Sub
这上面有个错 我不知道啊 就是把随机产生的三位数倒序啊 谢谢 快更正我的错误啊
Dim x As Integer, y As Integer
x = Int(Rnd() * (999 - 100)) + 99
a = Int(x / 100)
b = Int((x Mod 100) Mod 10)
c = x Mod 10
y = 100 * c + 10 * b + a
Print "产生的随机三位数:"; x
Print "对应的逆序数为:"; y
End Sub
这上面有个错 我不知道啊 就是把随机产生的三位数倒序啊 谢谢 快更正我的错误啊