Question

vb编辑一个大小写转换程序，上下两个文本框，一个如果是大写，那么另外一个显示小写

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) >= "a" & Chr(KeyAscii) <= "z" Then
Text2.Text = Text2.Text & Chr(KeyAscii - 32)
Else
If Chr(KeyAscii) >= "A" And Chr(KeyAscii) <= "Z" Then
Text2.Text = Text2.Text & Chr(KeyAscii + 32)
End If
End If
end sub 为什么这个代码，在大写转换为小写时总不行，只有小写转换为大写行？

Answer 1

病情分析：
你好，中医上说面神经瘫痪是由于风寒邪侵犯经络所致；可以由于疱疹病毒感染侵犯神经所致。

指导意见：

病毒性引起的需要抗病毒、营养神经治疗。加于规范针灸等中医理疗进行治疗。一般预后较好。以后避免吹风，受寒。

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
Text2.Text = Text2.Text & Chr(KeyAscii - 32)
ElseIf Chr(KeyAscii) >= "A" And Chr(KeyAscii) <= "Z" Then
Text2.Text = Text2.Text & Chr(KeyAscii + 32)
End If
End Sub

Answer 3

If Chr(KeyAscii) >= "a" & Chr(KeyAscii) <= "z" Then 这个错了，应该是If Chr(KeyAscii) >= "a" and Chr(KeyAscii) <= "z" Then ,vb中与运算用and哦，可能你是打错了
由于 Chr(KeyAscii) >= "a" & Chr(KeyAscii) <= "z" 恒为true，所以不管ascii为何值，都执行Text2.Text = Text2.Text & Chr(KeyAscii - 32)，在你看来就是只有小写转大写行