例9-1将输入到文本框Text1的文本转换为大写,并将输入的原始 字符显示在Tex2中。程序运行结果如图9-1所示 Option explicit Dim StrI As string Private Sub Textl_KeyPress(Key Ascii As Integer)( stl=Chr( KeyAscii)"蒋按键的ASC值转换为字符 KeyAscii=Asc(UCae(Str1)将字符转换为大写并重置Iex的字符 Iext2.Text=Text2.Text&Strl"将输入的原始字符复制到rext2中 End sub YOU PRESSED A, B, C 请按 You Pressed a,b,c键 例9-1 Key press用法例9-1 将输入到文本框Text1的文本转换为大写，并将输入的原始 字符显示在Text2中。程序运行结果如图9-1所示。 Option Explicit Dim Str1 As String Private Sub Text1_KeyPress(KeyAscii As Integer) Str1 = Chr(KeyAscii) '将按键的ASCII值转换为字符 KeyAscii = Asc(UCase(Str1)) '将字符转换为大写,并重置Text1的字符 Text2.Text = Text2.Text & Str1 '将输入的原始字符复制到Text2中 End Sub 例9-1 KeyPress的用法