在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：
Dim S1 As String,S2 As String
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=S2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S2
Text2.Text=S1
S1=""
S2=""
End Sub
程序运行时，在Text1中输入abc后单击命令按钮，在文本框Text1和Text2中显示的内容分别为
A．abc和ABC
B．abc和abc
C．ABC和abc
D．ABC和ABC