想判断输入的数是否是一个数字，而不是字符，该如何用if语句

判断能不能转成数字型就行了，能转换过去就是，不能就不是

用 Isnumeric 来断
例:
点一个按钮 输入一个数字或字符来判断

private sub button1_clik(byval sender as system.object,byval e as system.eventargs)handles button1.click
dim x
x=inputbox("请输入")
if not IsNumeric(x) then
msgbox("不是数字")
else
msgbox("是数字")
end if
end sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If IsNumeric(Me.TextBox1.Text) Then
Label1.Text = "数字"
Else
Label1.Text = "字符"
End If
End Sub

如果是用键盘输入的话可以对按键的ASCII进行判断.

四楼，五楼得有什么区别吗？

Isnumeric

if val(Temp)=temp then msgbox temp & "是数字" else msgbox temp & "不是数字"

if Isnumeric (value) then
...