1.程序运行时，在text1文本框中输入一个字符，单击“类型判断”按钮，判断该字符是字母字符、数字字符还是其他字符，判断结果显示在text2中。程序中有2处局部错误，分别在不同的语句中，请调试程序（没有电脑的同学用脑分析），用
正确的
部分代码替换错误的部分代码（以一个完整标识符或数字为单位）。本题满分4分，找出一个错误得2分。注意：(1)凡涉及到英文字母一律用大写。(2)两个答案按错误出现的先后顺序分两行书写（就像单元测试的填空题有两个空，答案写在两行一样）。(3)不要增减语句或语句的一部分。
PrivateSubCommand1_Click()
Dimstr1AsString*1
str1=LCase(Text1.Text)
SelectCaseStr
Case"A"To"Z"
Text2.Text="输入的是一个字符"
Case"0"To"9"
Text2.Text="输入的是一个数字"
CaseElse
Text2.Text="输入的是其它字符"
EndSelect
EndSub
求正解各位大佬

select case str1
case "a" to "z"