Question

vb输入三位数 显示倒序

Dim s, n, m, p, t As String
If IsNumeric(Text1.Text) Then
n = Text1.Text
m = n \ 100
s = (n Mod 100) \ 10
t = (n Mod 100) Mod 10
p = t + s * 10 + m * 100
Text2.Text = p
Else
If Not IsNumeric(Text1.Text) Then
MsgBox "输入非法数据,请重新输入"
Text1.Text = ""
SetFocus
End If
错在哪了。。

Answer 1

Dim s, n, m, p, t As String
If IsNumeric(Text1.Text) Then
    n = Text1.Text
    m = n \ 100
    s = (n Mod 100) \ 10
    t = (n Mod 100) Mod 10
    p = t + s * 10 + m * 100
    Text2.Text = p
    'text1.text=StrReverse(text1.text) '其实倒序的话有个专门的函数，
Else
'If Not IsNumeric(Text1.Text) Then '这个条件句不必了
    MsgBox "输入非法数据,请重新输入"
    Text1.Text = ""
    SetFocus
End If

Answer 2

Dim s, n, m, p, t As String
If IsNumeric(Text1.Text) Then
n = Text1.Text
m = int(n \ 100)
s = int((n Mod 100) \ 10)
t = (n Mod 100) Mod 10
p = t *100+ s * 10 + m
Text2.Text = p
Else
If Not IsNumeric(Text1.Text) Then
MsgBox "输入非法数据,请重新输入"
Text1.Text = ""
SetFocus
End If

Answer 3

If Not IsNumeric(Text1.Text) Then 这一句是多余的

还有是没有逆序，p = t * 100 + s * 10 + m 改了一下

Dim s, n, m, p, t As String
If IsNumeric(Text1.Text) Then
n = Text1.Text
m = n \ 100
s = (n Mod 100) \ 10
t = (n Mod 100) Mod 10
p = t * 100 + s * 10 + m
Text2.Text = p
Else
MsgBox "输入非法数据,请重新输入"
Text1.Text = ""
SetFocus
End If

Answer 4

If Not IsNumeric(Text1.Text) Then
这句删掉