vb求一个三位数各个位上数字值

Question

vb求一个三位数各个位上数字值

Answer 1

Private Sub Command1_Click()
    '方法一
    Dim m As Integer
    m = 987
    Dim a, b, c
    a = Left(m, 1)
    b = Mid(m, 2, 1)
    c = Right(m, 1)
    MsgBox "1:" & a & "-" & b & "-" & c
    
    '方法二
    Dim r, s, t
    r = m \ 100
    s = (m Mod 100) \ 10
    t = m Mod 10
    MsgBox "2:" & r & "-" & s & "-" & t
End Sub
也不知道还有没有更好的思路：