Private Sub Command1_Click()
If Len(Text1.Text) <> 3 Then
MsgBox "请输入一个三位数的数", 48, "提示"
Else
x = Text1.Text
b = x Mod 10
c = ((x Mod 100) - b) / 10
d = (x - 10 * c - b) / 100
MsgBox "个位数为" & b & Chr(13) & Chr(10) & "十位数为" & c & Chr(13) & Chr(10) & "百位数为" & d, 48, "答案"
End If
End Sub
嗯,当然还有用len()的计算方法,这个就留给大家思考了