例子: Private Sub Command1_Click() Text1.Text = Text1.Text & "1" End Sub Private Sub Command2_Click() Text1.Text = Text1.Text & "2" End Sub Private Sub Command3_Click() Text1.Text = Text1.Text & "3" End Sub Private Sub Command4_Click() Text1.Text = Text1.Text & "4" End Sub