Private Sub Form_Click()
Dim n As Integer, n1 As Integer, n2 As Integer, n3 As Integer
n = Val(InputBox("请输入一个三位数"))
n1 = n Mod 10
n2 = n \ 10 Mod 10
n3 = n \ 100
MsgBox "个位数、十位数、百位分别是:" & n1 & "," & n2 & "," & n3 & ",三位之和是" & n1 + n2 + n3
End Sub
温馨提示:答案为网友推荐,仅供参考