Question

在vb中如何判断text1.text的内容是字符串

如提！快的再加分，保证给到满分！！

Answer 1

其实在里面的东西都是叫字符串，我觉得楼主可能对数据类型还不是很了解。
a=123 那么a数值型的，可能是interger、long、double等
a="123" 那么a是字符型的

text1.text=a
你在text1.text中看到的都是123，你实在想知道类型可以用这个函数typename和vartype，具体代码：MsgBox TypeName(Text1.Text)

你是不是以为123的这样的就不是字符串？而是数值型？如果你期望的是判断是不是数字可以用IsNumeric这个函数，具体代码：MsgBox IsNumeric(Text1.Text)

Answer 2

如果你除数字外都算作是字符串的话那就看下面的
If IsNumeric(Text1.Text) = True Then
MsgBox"这是个数字"
End If
如果你想判断里面是不是都是字母的话可以这样
For a = 1 To Len(Text1.Text) Step 1
If Asc(Mid(Text1.Text, a, a + 1)) <= Asc("A") Or Asc(Mid(Text1.Text, a, a + 1)) >= Asc("z") Then
Exit For
End If
Next a
If a >= Len(Text1.Text) Then
MsgBox "都是字母"
End If

Answer 3

检测是否纯字符串
if cstr(val(text1.text)) = "" then msgbox "纯粹是字符窜,其中没有数字"
检测是否为字符串,数字混合,包括纯字符串
if cstr(val(text1.text)) <> "" then msgbox "这不纯粹是字符串,其中还包含数字"
或
if isnumeric(text1.text) = false then msgbox "这是字符串"
检测是为数字
if isnumeric(text1.text) then msgbox "这是数字"

Answer 4

text1 是文本框控件，它的text属性，默认就是字符串格式的。

不信的话，可以使用

MsgBox TypeName(Text1.Text)

将会显示是 String 类型的

Answer 5

textbox默认都是字符串，用不着判断
一般是判断是否为数字
用以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack '允许0~9数字和退格键

Case Asc(".") '允许一个小数点
If Instr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else '其他的键入无效并发出Beep声音
KeyAscii = 0
Beep
End Select
End Sub