Question

vb 中判断数据类型

如何判断 text文本框中的数据类型
求代码最好有注释 谢谢

Answer 1

VB可使用TypeName 函数来判断某变量的数据类型。

TypeName 函数，返回一个 String，提供有关变量的信息。

TypeName 函数示例

本示例使用 TypeName 函数返回有关变量的信息。

' 声明变量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null   ' 设置变量值为 Null。
MyType = TypeName(StrVar)   ' 返回 "String"。
MyType = TypeName(IntVar)   ' 返回 "Integer"。
MyType = TypeName(CurVar)   ' 返回 "Currency"。
MyType = TypeName(NullVar)   ' 返回 "Null"。
MyType = TypeName(ArrayVar)   ' 返回 "Integer()"。

Answer 2

Private Sub Command1_Click()
Dim s As String
If IsNumeric(Text1.Text) Then '判断text是否是数字格式
s = "数字"
Else
s = "字符串" '否则是字符串
End If

Print s
End Sub