为什么说我除数为零。。。

如题。。
Private Sub Form_Load()Dim d1 As SingleDim f As SingleDim p As SingleDim a As SingleDim d2 As DoubleDim l As SingleDim d3 As SingleDim pi As SingleDim k As SingleDim s As SingleDim sp As Single
End Sub
Private Sub Option1_Click()k = 1.1308s = 0.0075sp = 889End Sub
Private Sub Option2_Click()k = 1.133s = 8sp = 895End Sub
Private Sub Option3_Click()k = 1.1361s = 7.8sp = 885End Sub
Private Sub Command1_Click()
d1 = Val(Text1(0).Text)f = Val(Text2.Text)p = Val(Text3.Text)a = p / (sp * s * 1800)d2 = Sqr(4 * f / (3.14 * k * p))d3 = d2l = (a * ((d2 / 2) ^ 2)) / (d1 - d3) / 2 + d3Text4.Text = Format(a, "0.00000")Text5.Text = Format(d2, "0.00000")Text6.Text = Format(l, "0.00000")End Sub
问题出在a = p / (sp * s * 1800)这一句上

Private Sub Form_Load()
Dim d1 As Single
Dim f As Single
Dim p As Single
Dim a As Single
Dim d2 As Double
Dim l As Single
Dim d3 As Single
Dim pi As Single
Dim k As Single
Dim s As Single
Dim sp As Single
End Sub
呵呵

贴代码上来也不整理一下你这样子会有人鸟你打死我都不信

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

4回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六