这个小程序的错误怎么解决?
Dim E As Double
Public Type road
l As Double
s As Double
wind As Double
End Type
Public Type wheel
m As Double
cw As Double
End Type
Dim wh As wheel
Private Sub Command1_Click()
wh.m = 0.85
wh.cw = 0.0382
ef wh, 5, 100, 12.5
Text1.Text = E
End Sub
Private Sub ef(wh As wheel, vw As Double, s0 As Double, v0 As Double)
E = E + 3.12981052631579 * s0 + 4.12631578947368E-02 * s0 * wh.m + 0.645263157894737 * (0.323156844 + 0.34442 * wh.cw) * (v0 + vw) * (v0 + vw) * s0
v0 = v0
End Sub