Question

VB中在左侧文本框输入字符串，单击“大小写转换”按钮 将原字符串第2个字符大小写转换后，在右侧文本输出

Private Sub Command5_Click()
If Asc(Mid(Text5.Text, 2, 1)) > 64 And Asc(Mid(Text5.Text, 2, 1)) < 91 Then
Text6.Text = LCase(Mid(Text5.Text, 2, 1))
ElseIf Asc(Mid(Text5.Text, 2.1)) > 96 And Asc(Mid(Text5.Text, 2, 1)) < 123 Then
Text6.Text = UCase(Mid(test5.Text, 2, 1))
Else
Text6.Text = "非字母"
End If
End Sub
这样编程错在哪里，跪求大神指教 。给个正确答案 谢谢！

Answer 1

第5行 test5.text 应该是 text5.text

Answer 2

Private Sub Command5_Click()
Dim s As String
s = Mid(Text5.Text, 2, 1)
Select Case Asc(s)
Case 65 To 90
s = LCase(s)
Case 97 To 122
s = UCase(s)
Case Else
s = "非字母"
End Select
Text6.Text = s
End Sub