Question

vb 输入框内容判断是否为数值

sub 判断是不是数值（）
dim a as variant
a=textbox1.text
if application.isnumber(a) then
msgbox "你输入的是数字"
exit sun
else
msgbox "你输入的不是数字，请重新输入"
end if
end sub

这句代码不对，textbox 里输入文字，它提示不是数字，输入数字，提示 也不是数字

谁能帮我看下怎么改

Answer 1

判断是否为数字或字符

Private Sub Command1_Click()
If IsNumeric(Text1.tex1) = True Then
MsgBox "数字"
Else
MsgBox "字符"
End If
End Sub