vb里怎样判断 是否数字型 或者 是否字符型

e = Val(Text2.Text)
If e < Asc("0") Or e > Asc("9") Then
e = 0
k = MsgBox("学号中只能输入数字，不包含其他字符！ ", vbExclamation)
Text2.Text = ""
Exit Sub

End If

比如你的变量为a
则用IsNumeric(a)来判断是否为数字，返回布尔变量True or False