在窗体上画一个命令按钮和一个文本框，并把窗体的 KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll= SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入 “abcdefg”,单击命令按钮，则文本框显示为( )。
举一反三
- 把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的“A”键(即不按住Shift键)，则在窗体上输出的字符分别是______和______。
- 在窗体上画一个命令按钮Command1，编写事件代码如下： Public x As Integer Private Sub Command1_Click() x=3 Call f1 Call f2 MsgBox x End Sub Private Sub f1() x=x*x End Sub Private Sub f2() Dim x As Integer x=x+4 End Sub 运行窗体后，单击命令按钮，则消息框的输出结果为______。
- 在窗体上画一个命令按钮，然后编写如下程序： Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_CliCk() inc2 inc3 inc4 Msgbox x； End Sub 程序执行后，单击Command1命令按钮，消息框显示结果是 【14】
- 在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码： Public x as integer Private Sub Command1_Click( ) x=5 Call s1 Call s2 MsgBox x End Sub Private Sub s1( ) x=x+10 End Sub Private Sub s2( ) Dim x as integer x=x+10 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______
- 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是