我是一个运算的程序``在文本框里输入的一定要是数字,而且要是正数

如果输入的不是数字就会弹出```这个``

o=msgbox("请输入正数","","输入错误")

请问怎么写哦````

Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_Change()

Dim tx
If Text1.Text <> "" Then
tx = Right(Text1.Text, 1)
If Not IsNumeric(tx) Then
tx = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.Text = tx
MsgBox "请输入正数", vbOKOnly + vbInformation, "输入错误"

Text1.SetFocus
SendKeys "{end}"
Exit Sub
End If
End If
End Sub

楼上`````
<>这个是代表什么意思？

Text1.SetFocus
SendKeys "{end}"

``这个什么意思哦```
`
``?~`````看样子你这个新手``蛮厉害的嘛`?~`

`嘿嘿``写得比较完美啊``~!~~

Text1.SetFocus
SendKeys "{end}"

使文本框获得焦点,后面的就相当于按END键,使光标落到文本框最后


<>是不等于的意思