Private Sub Command2_Click()
Yes = cal()
End Sub
------------------------------------------------------------------------
Function cal() As Double
这个yes语句是啥意思哈，cal()是不是自行定义的变量啊

Yes是变量，cal()是函数，Yes = cal()表示把函数cal()的返回值赋给变量Yes