If IsNumeric(Text1.Text) = True Then MsgBox "純數字"Else MsgBox "非純數字"End If。
byval eassystem.eventargs)handles button1.click.
dim x x=inputbox("請輸入").if not IsNumeric(x) then.msgbox("不是數字").
elsemsgbox("是數字")。
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 = "數字"。
ElseLabel1.Text = "字元"End If End Sub iif (Isnumeric("123-"),"數字","不是數字")數字?iif(val("123-")="123-","數字","不是數字")不是數字
iif(val("-123")="-123","數字","不是數字")數字看這三個判斷就知道Isnumeric 是否對了!
If IsNumeric(Text1.Text) = True Then MsgBox "純數字"Else MsgBox "非純數字"End If。
byval eassystem.eventargs)handles button1.click.
dim x x=inputbox("請輸入").if not IsNumeric(x) then.msgbox("不是數字").
elsemsgbox("是數字")。
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 = "數字"。
ElseLabel1.Text = "字元"End If End Sub iif (Isnumeric("123-"),"數字","不是數字")數字?iif(val("123-")="123-","數字","不是數字")不是數字
iif(val("-123")="-123","數字","不是數字")數字看這三個判斷就知道Isnumeric 是否對了!