Private Sub Command2 Click () Text1.Text =r Text2 Text End sub Private Sub Command3 Click () End End sub 请单属标左键换页Private Sub Command2_Click（） Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click（） End End Sub