TypeName 函數,返回一個 String,提供有關變量的信息。
TypeName 函數示例
本示例使用 TypeName 函數返回有關變量的信息:
<code>' 聲明變量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As CurrencyDim ArrayVar (1 To 5) As IntegerNullVar = Null ' 設置變量值為 Null。
MyType = TypeName(StrVar) ' 返回 "String"。
MyType = TypeName(IntVar) ' 返回 "Integer"。
MyType = TypeName(CurVar) ' 返回 "Currency"。
MyType = TypeName(NullVar) ' 返回 "Null"。
MyType = TypeName(ArrayVar) ' 返回 "Integer()"。/<code>
實例:
<code>Option Explicit/<code>
<code>Private Sub btn_Click()Dim x, y, z As Longy = TypeName(z)content.Text = CStr(y)End Sub/<code>
閱讀更多 小馬老師愛編程 的文章