一道VB综合应用题 创建一个应用程序，窗体Form1上有2个文本框Text1、Text2.要求当Text1中输入字符时

Question

创建一个应用程序，窗体Form1上有2个文本框Text1、Text2.要求当Text1中输入字符时，将Text1中的字符转换后写入Text2，转换规则为：
1）Text1中的大写字母转换为小写字母
2）Text1中的小写字母转换为大写字母
3）Text1中的空格不转换
4）Text1中的其他字符转换为星号（*）
注：大写字母ASCII码在65~90之间，比相应的小写字母大32；当文本框Text1中输入字符时会触发事件Private Sub Text1_KeyPress(KeyAscii As Integer),其中KeyAscii为输入字符的ASCII码

Answer 1

题目不难，但有陷井哦。
因为有可能按下回退删除键，所以应当每次都将text1字符串全串转换后付值给text2.单字符式的转换会出现text1,text2不一样长的情况。

Answer 2

在text1对应的小写字母+32，在赋值给text2就得相应的大写字母了，在判断力，不属于大小写字母的ASCLL，就转换成*，不就行了。不难啊！

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
Text2.Text = Text2.Text + LCase(Chr(KeyAscii))
Case 97 To 122
Text2.Text = Text2.Text + UCase(Chr(KeyAscii))
Case 32
Text2.Text = Text2.Text + UCase(Chr(KeyAscii))
Case Else
Text2.Text = Text2.Text + "*"
End Select
End Sub本回答被提问者采纳