回覆列表
  • 1 # 使用者1118407943813

    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 是否對了!

  • 中秋節和大豐收的關聯?
  • 機選車牌號技巧?