在窗体中添加两个文本框,其名称分别为Text1和Text2;两个标签,其名称分别为Label1和Label2。编写程
A.Private Sub Form. Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub
B.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub
C.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub
D.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub