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

2024-12-23 08:10:48
推荐回答(3个)
回答1:

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

回答2:

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

回答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