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