到哪一步时提示除数为零啊?用单步运行来调试一下吧。Dim j1 As Integer, j2 As Integer, j3 As Double, j As Double Dim w1 As Integer, w2 As Integer, w3 As Double, w As Doub'这两句可以把J1,J2,w1,w2,都定义为 Double. Private Function switch(ByVal x As Double) As DoubleDim a As Integer, b As Integer, c As Doublea = Fix(x)b = Fix((x - a) * 100)c = ((x - a...
|