vb中 Dim a As Double,b As Double,sn As Double,tn As Double pi