杭州交通信息网电动机撞电动车:请高手帮我解决VB不能运行的原因!!!
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 05:12:31
Private Sub Command1_Click()
Dim strChar As String
strChar = Text1.Text
If UCase(strChar) >= "A" And UCase(strChar) <= "Z" Then
Text2.Text = "字母"
ElseIf strChar >= "0" And strChar <= "9" Then
Text2.Text = "数字"
Else
Text2.Text = "其他字符"
End Sub
VB在运行时提示我 编译错误：块If没有 End If
Dim strChar As String
strChar = Text1.Text
If UCase(strChar) >= "A" And UCase(strChar) <= "Z" Then
Text2.Text = "字母"
ElseIf strChar >= "0" And strChar <= "9" Then
Text2.Text = "数字"
Else
Text2.Text = "其他字符"
End Sub
VB在运行时提示我 编译错误：块If没有 End If
请高手帮我解决VB不能运行的原因!!!
悬赏分：0 - 离问题结束还有 14 天 21 小时
Private Sub Command1_Click()
Dim strChar As String
strChar = Text1.Text
If UCase(strChar) >= "A" And UCase(strChar) <= "Z" Then
Text2.Text = "字母"
ElseIf strChar >= "0" And strChar <= "9" Then
Text2.Text = "数字"
Else
Text2.Text = "其他字符"
end if
End Sub
多明显的错误呀。。。。没有写END IF ，，，。。。。
加上就OK了。。。。
字符串比较就是ASCII码的比较，你可以把代码写成：
Private Sub Command1_Click()
Dim strChar As String
strChar = Text1.Text
If ASC（UCase(strChar)） >= ASC（"A"） And ASC（UCase(strChar)） <= ASC（"Z"） Then
Text2.Text = "字母"
ElseIf ASC（strChar） >= "0" And ASC（strChar） <= ASC（"9"） Then
Text2.Text = "数字"
Else
Text2.Text = "其他字符"
End Sub
应该就行了