IsArray函数返回一个布尔值,指示指定的输入变量是否是数组变量。
IsArray(variablename)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click()
Dim a,b as Variant
a = array("Red","Blue","Yellow")
b = "12345"
msgbox("The IsArray result 1 : " & IsArray(a))
msgbox("The IsArray result 2 : " & IsArray(b))
End Sub
执行上述功能时,会产生以下输出。
The IsArray result 1 : True
The IsArray result 2 : False