用vb6.0企业版做
随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如产生198,逆序981.
答案:1 悬赏:0 手机版
解决时间 2021-07-18 14:32
- 提问者网友:暮烟疏雨之际
- 2021-07-18 04:58
最佳答案
- 五星知识达人网友:迟山
- 2021-07-18 05:11
Dim sum, a, b, c As Integer, m As Single
Private Sub Cmd1_Click()
Randomize
m = Int(Rnd * 900 + 100)
Print m
a = m \ 100
b = (m Mod 100) \ 10
c = m Mod 10
sum = c * 100 + b * 10 + a
Print sum
End Sub
呵呵,我试过了,可以!
Private Sub Cmd1_Click()
Randomize
m = Int(Rnd * 900 + 100)
Print m
a = m \ 100
b = (m Mod 100) \ 10
c = m Mod 10
sum = c * 100 + b * 10 + a
Print sum
End Sub
呵呵,我试过了,可以!
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯