IsNumericIsArrayIsDateIsEmpty

ノIsXXX耞琌计皚ら戳┪⊿Τ狥﹁

If IsNumeric(1) Then
    Print "琌计"
Else
    Print "ぃ琌计"
End If

If IsNumeric("1") Then
    Print "琌计"
Else
    Print "ぃ琌计"
End If

挡狦常"琌计"

If IsNumeric("abc") Then
    Print "琌计"
Else
    Print "ぃ琌计"
End If

挡狦常 "ぃ琌计"

    Dim a(3)
    If IsArray(a) Then
        Print "琌皚"
    Else
        Print "ぃ琌皚"
    End If

挡狦"琌皚"

    If IsArray(b) Then
        Print "琌皚"
    Else
        Print "ぃ琌皚"
    End If

挡狦"ぃ琌皚"

If IsEmpty(text1.text) Then
    Print "⊿Τ狥﹁"
Else
    Print Text1.Text
End If

If IsDate(#12/12/99#) Then
    Print "Is Date"
Else
    Print "Not Date"
End If