'CTRL+T ==>Microsoft ScriptControl Option Explicit Public Y As Double Public X As Double '引用 Private Sub Command1_Click() Dim MathStr As String Dim TmpStr As String