Private Sub Form_Click()
Dim a As Integer, b As Integer, i As Integer
If Text1 <> "" Then
a = Val(Text1)
If a < 100 Or a > 999 Then GoTo 1234
Else
1234
MsgBox "请在文本框中输入一个三位数字!", vbOKOnly + vbCritical
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
b = a
Form1.Cls
Print "个位数、十位数、百位数分别是:"
For i = 1 To 3
Print b Mod 10; Space(5);
b = b \ 10
Next
End Sub
已经运行过。
运行结果:
追问谢谢,么么哒
追答我手慢,等发完就发现已经有最佳答案了~~~~
追问我帮别人问,赶着要结果,所以就把最佳答案给第一个给答案的了,么么哒,再次谢谢你
我帮别人问,赶着要结果,所以就把最佳答案给第一个给答案的了,么么哒,再次谢谢你