在窗口中加两个TEXT控件,一个输入中文,一个显示英文 Private Sub Form_Load() Text1.Text = "你好" End Sub Private Sub Command1_Click() Text2.Text = GetPY(Text1.Text) End Sub