Private Sub Form_click()

If UCase(strC) >= "A" And UCase(strC) <= "Z" Then
Print strC + "是字母字符"
ElseIf strC >= "0" And strC <= "9" Then
Print strC + "是数字字符"
Else
Print strC + "是其他字符"
End IF
End Sub

Private Sub Text1_Change()
Dim strC As String
strC = Text1.Text
End Sub

整个if语句是从书上看到的，其他的是我自己加上去的
怎么得不到是字母字符和是数字字符？

Private Sub Form_click()

楼上的同志说的对，strC是在 Text1_Change()这一过程中声明的局部变量，当这一过程完成后它就从内存中消失了。下面是我该后的（只要把strC改为全局变量就好了）

Dim strC As String '要使用全局变量
If UCase(strC) >= "A" And UCase(strC) <= "Z" Then
Print strC + "是字母字符"
ElseIf strC >= "0" And strC <= "9" Then
Print strC + "是数字字符"
Else
Print strC + "是其他字符"
End IF
End Sub

Private Sub Text1_Change()

strC = Text1.Text
End Sub

就是没有定义成全局变量的问题。

Private strC As String

Private Sub Form_click()

If UCase(strC) >= "A" And UCase(strC) <= "Z" Then
Print strC + "是字母字符"
ElseIf strC >= "0" And strC <= "9" Then
Print strC + "是数字字符"
Else
Print strC + "是其他字符"
End IF
End Sub

Private Sub Text1_Change()
Dim strC As String
strC = Text1.Text
End Sub

[此贴子已经被作者于2006-12-19 9:43:34编辑过]