Question

vb随机产生一个四位的正整数n,将其各位上的数字按逆序重新组合成一个正整数m,由msgbox输出

vb随机产生一个四位的正整数n,将其各位上的数字按逆序重新组合成一个正整数m,由msgbox输出

Answer 1

    Dim n As Long, m As Long, temp As Long
    Randomize
    n = Fix(Rnd * 9000) + 1000
    temp = n
    m = (temp Mod 10) * 1000
    temp = temp \ 10
    m = m + (temp Mod 10) * 100
    temp = temp \ 10
    m = m + (temp Mod 10) * 10
    temp = temp \ 10
    m = m + temp
    MsgBox "产生的随机数为：" & n & "，   逆序之后为：" & m