随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如产生198,逆序981.用vb6.0企业版做

Question

随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示,例如产生198,逆序981.
用vb6.0企业版做

Answer 1

Dim sum, a, b, c As Integer, m As SinglePrivate 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 sumEnd S...