运行程序,单击 Commandl按钮,在下面的 Labell中显示 Labell 五、程序填空。(共24分,每空2分) 1.编写一个对输入字符进行转换的程序。转换规则为,将其中的大写 字母转换成小写字母,小写字母转换成大写字母,空格不转换,其余转换成 *"。要求每输入一个字符,马上就进行判断和转换 “输入字符串“文本框对象 TextI对应的 Key Press事件代码为 Private Sub Textl Key Press(KeyAscii As Integer) Dim aa As (1) aa= Chrs(Key Ascii) Select case aa Case"A"To"Z 大写转换成小写 aa= Chrs(KeyAscii+ 32) Case"a"To"z 小写转换成大写 Case" Case Else a=_(3) En nd select Text2. Text= Text2 Text aa End Sub 清屏按钮 Command l的 Click事件代码为 Private Sub Commandl Click Text 1. Text= Text2. Text End Sub “结束按钮 Command的 Click事件代码为 Private Sub Command2 Click End Sub (1)运行程序，单击 Command1 按钮，在下面的 Label1 中显示 Label1 五、 程序填空。（共 24 分, 每空 2 分） 1. 编写一个对输入字符进行转换的程序。转换规则为，将其中的大写 字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成 “＊“。要求每输入一个字符，马上就进行判断和转换。 “输入字符串“文本框对象 Text1 对应的 KeyPress 事件代码为： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim aa As (１) aa = Chr$(KeyAscii) Select Case aa Case "A" To "Z" ‘大写转换成小写 aa = Chr$(KeyAscii + 32) Case "a" To "z" ‘小写转换成大写 aa = (２) Case " " aa = " " Case Else aa = (３) End Select Text2.Text = Text2.Text & aa End Sub “清屏”按钮 Command1 的 Click 事件代码为： Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" End Sub “结束”按钮 Command2 的 Click 事件代码为： Private Sub Command2_Click() (４) End Sub (1) (2)