VB随机数逆序示例
本文提供了一个Visual Basic代码示例，展示了如何生成随机的三位数并将其数字逆序排列的方法。通过简单的数学运算实现了逆序转换，并使用Print语句输出原始数及逆序后的结果。
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
这上面有个错 我不知道啊 就是把随机产生的三位数倒序啊 谢谢 快更正我的错误啊
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
