请问如何判断数组中的每个元素是否都是数字?

Question

各位大虾,请问如何判断数组temp中的每个元素是否都是数字?

Answer 1

把数组中的每个元素用"+"号运算后
再用isnumeric()函数判断

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim Temp(0 To 10) As String
    Temp(1) = 123
    Temp(2) = "str"
    Temp(3) = 3.14
    Temp(4) = 65536
    Temp(5) = Me.Caption
    Dim i As Long
    For i = LBound(Temp) To UBound(Temp)
        If Len(Temp(i)) > 0 Then
            If Not IsNumeric(Temp(i)) Then Debug.Print i & "--->" & Temp(i)
        End If
    Next
End Sub