题目不难,但有陷井哦。
因为有可能按下回退删除键,所以应当每次都将text1字符串全串转换后付值给text2.单字符式的转换会出现text1,text2不一样长的情况。
在text1对应的小写字母+32,在赋值给text2就得相应的大写字母了,在判断力,不属于大小写字母的ASCLL,就转换成*,不就行了。不难啊!
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