UC知道懂vb的进来帮个忙！！！！！！！！！！！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/05 13:31:52
在第一个TextBox中任意输入一个三位的正整数，在第二个TextBox中显示其逆序的数（例如输入345，则输出543）帮忙看下代码错误！！！
Private Sub command1_Click()
a = text1.Text
b = Fix(a / 100)
c = Fix((a - 100 * b) / 10)
d = a Mod 10
If Val(a) >= 100 And Val(a) <= 999 Then
Text2.Text = d & c & b
ElseIf Val(a) < 100 And Val(a) > 999 Then
Text2.Text = "sorry.请输入一个三位整数"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub command1_Click()
a = text1.Text
b = Fix(a / 100)
c = Fix((a - 100 * b) / 10)
d = a Mod 10
If Val(a) >= 100 And Val(a) <= 999 Then
Text2.Text = d & c & b
ElseIf Val(a) < 100 And Val(a) > 999 Then
Text2.Text = "sorry.请输入一个三位整数"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
没有问题，但是输入数字不是三位则无反应
ElseIf Val(a) < 100 And Val(a) > 999 Then
改为else即可
＝＝or改成＝＝
If IsNumeric(Text1) Then
Text1 = Int(Text1)
If Len(Text1) > 3 Then Text1 = Left(Text1, 3) Else Text2 = "请输入三位整数"
For i = Len(CStr(Text1)) To 1 Step -1
j = j & Mid(Text1, i, 1)
Next i
Text2 = j
Else
Text2 = "请输入数字"
End If
楼上的程序只能处理3个字符阿。
Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
text2.text=asc(keycode) & text2.text
end sub