要随机产生一个3位正整数,然后逆序输出、、按这种写法,如果碰到10的倍数就会输出一个两位数、要怎么处理PrivateSubFormclick()Randomizex=Int(Rnd*900+100)a=x\100b=x\10Mod10c=xMod10y=c*10

Question

要随机产生一个3位正整数,然后逆序输出、、按这种写法,如果碰到10的倍数就会输出一个两位数、要怎么处理
Private Sub Form_click()
Randomize
x = Int(Rnd * 900 + 100)
a = x \ 100
b = x \ 10 Mod 10
c = x Mod 10
y = c * 100 + b * 10 + a
Print y
End Sub

Answer 1

Private Sub Form_click()
Randomize
x = Int(Rnd * 900 + 100) & ""
Print strreverse(x)
End Sub