哪位高手能帮小弟我调试一下啊 小弟我的VB调试不了
谁能帮我调试一下啊 我的VB调试不了
Public aa As Single
Public dd As Single
Public h As Single
Public A As Single
Public q As Single
Public x As Integer
Public p As Single
Public nl As Integer
Public n2 As Integer
Private Sub Commandl_Click()
MsgBox "1:载荷变动小，轻载启动，KA=1.2； 2：载荷变动小，重载启动，KA=1.3. 3：载荷变动较大，轻载启动，KA=1.3； 4：载荷变动较大，重载启动，KA=1.5. 5：载荷变动很大，轻载启动，KA=1.4； 6：载荷变动很大，重载启动，KA=1.6．"
End Sub
Private Sub yhsj(x As Integer, p As Single, nl As Integer, n2 As Integer)
Dim Pca As Single
Dim KA As Single
Dim dmin As Integer
x = Val(Textl.Text)
p = Val(Text2.Text)
nl = Val(Text3.Text)
n2 = Val(Text4.Text)
Select Case x
Case l
KA = 1.2
Case 2
KA = 1.3
Case 3
KA = 1.3
Case 4
KA = 1.5
Case 5
KA = 1.4
Case 6
KA = 1.6
Case Else
MsgBox "输入错误，请重新输入！"
End Select
Pca=KA*p ，确定计算功率
If (nl>=424*Pca) And(0<=Pca<=5)Then 7根据Pca和nl选择带
型，并确定主动轮最小直径
dmin = 50
Elself (127.8*Pca<=nl<=424*Pca) And (O<=Pca<=10) Then
dmin = 75
Elself (47*Pca<=nl<=127.8}Pca) And (1<=Pca<=20) Then
dmin = 125
Elself (16.6}Pca<=nl<=47}Pca) And (3<=Pca<=40) Then
dmin = 200
Elself (2.9*Pca<=nl<=16.6}Pca) And (8<=Pca<=200) Then
dmin = 200
Elself (2.9*Pca<nl) And (50<=Pca<250) Then
dmin = 500
Else
End If
If dmin = 50 Then
h=6：A= 47:q=0.06 ′根据带型确定其高度，截面积和单位长
度质量以计算应力
Elself dmin=75 Then
h = 8: A = 81: q = 0.1
Elself dmin=125 Then
h = 11: A = 143: q = 0.18
Elself dmin=200 Then
h = 14: A = 237: q = 0.3
Elself dmin=355 Then
h = 19: A = 476: q = 0.61
Elself dmin=500 Then
h = 25: A = 722: q = 0.92
Else
End If
Dim i As Single
Dim j As Single
Dim dl As Single
Dim d2 As Single
Dim MAX As Double
Dim b As Double
Dim Fec As Double
Dim vl As Single
Dim W As Single
Dim r As Single
b = 900000000
Fec = 30000
MAX = 640000000
For j = 50 T0 5000 Step 2 '中心距范围
For i = 20 T0 1000 Step l '小径范围
d2 = nl * i / n2
vl = 3.14 * i * nl / 60 * 1000
W = (d2 - 1) / j
If 0.7 * r <= j <= 2 * r And (3.1416 - 57. 3 * w >=3.1416 * 120
/ 180) And (p <= Fec * vl / 1000) And (gl(A) + g2 (h) + g3(q, A) < MAX)
And (i >= dmin) And (5 <= vl <= 25) Then
If i * j < b Then
b = i * j
dd = i
aa = j
End If
End If
Next i
Next j
End Sub
Function gl(x) ′拉应力条件，相应公式：fl/A
Dim fl As Double
fl = 10000
gl = fl / x
End Function
Function g2 (x) ′弯曲应力，相应公式：E*h/dl
Dim E As Long
E = 1200000000
dl = 20
g2 = E * x / dl
End Function
Function g3 (x,y) ′离心拉应力，相应公式：q*v*v/A
g3 = x * vl * vl / y
End Function
Private Sub command3_click() ′设置''退出"按钮
End
End Sub
Private Sub command2_click() ′设置"计算"按钮
Call yhsj(x, p, nl, n2)
Labe19.Caption = aa
Labe112.Caption = dd
End Sub
Private Sub command4-click() ′设置"清除"按钮
Textl.Text = 〝〞
Text2.Text = 〝〞
Text3. Text = 〝〞~
Text4.Text = 〝〞
Labe19.Caption = 〝〞
Public aa As Single
Public dd As Single
Public h As Single
Public A As Single
Public q As Single
Public x As Integer
Public p As Single
Public nl As Integer
Public n2 As Integer
Private Sub Commandl_Click()
MsgBox "1:载荷变动小，轻载启动，KA=1.2； 2：载荷变动小，重载启动，KA=1.3. 3：载荷变动较大，轻载启动，KA=1.3； 4：载荷变动较大，重载启动，KA=1.5. 5：载荷变动很大，轻载启动，KA=1.4； 6：载荷变动很大，重载启动，KA=1.6．"
End Sub
Private Sub yhsj(x As Integer, p As Single, nl As Integer, n2 As Integer)
Dim Pca As Single
Dim KA As Single
Dim dmin As Integer
x = Val(Textl.Text)
p = Val(Text2.Text)
nl = Val(Text3.Text)
n2 = Val(Text4.Text)
Select Case x
Case l
KA = 1.2
Case 2
KA = 1.3
Case 3
KA = 1.3
Case 4
KA = 1.5
Case 5
KA = 1.4
Case 6
KA = 1.6
Case Else
MsgBox "输入错误，请重新输入！"
End Select
Pca=KA*p ，确定计算功率
If (nl>=424*Pca) And(0<=Pca<=5)Then 7根据Pca和nl选择带
型，并确定主动轮最小直径
dmin = 50
Elself (127.8*Pca<=nl<=424*Pca) And (O<=Pca<=10) Then
dmin = 75
Elself (47*Pca<=nl<=127.8}Pca) And (1<=Pca<=20) Then
dmin = 125
Elself (16.6}Pca<=nl<=47}Pca) And (3<=Pca<=40) Then
dmin = 200
Elself (2.9*Pca<=nl<=16.6}Pca) And (8<=Pca<=200) Then
dmin = 200
Elself (2.9*Pca<nl) And (50<=Pca<250) Then
dmin = 500
Else
End If
If dmin = 50 Then
h=6：A= 47:q=0.06 ′根据带型确定其高度，截面积和单位长
度质量以计算应力
Elself dmin=75 Then
h = 8: A = 81: q = 0.1
Elself dmin=125 Then
h = 11: A = 143: q = 0.18
Elself dmin=200 Then
h = 14: A = 237: q = 0.3
Elself dmin=355 Then
h = 19: A = 476: q = 0.61
Elself dmin=500 Then
h = 25: A = 722: q = 0.92
Else
End If
Dim i As Single
Dim j As Single
Dim dl As Single
Dim d2 As Single
Dim MAX As Double
Dim b As Double
Dim Fec As Double
Dim vl As Single
Dim W As Single
Dim r As Single
b = 900000000
Fec = 30000
MAX = 640000000
For j = 50 T0 5000 Step 2 '中心距范围
For i = 20 T0 1000 Step l '小径范围
d2 = nl * i / n2
vl = 3.14 * i * nl / 60 * 1000
W = (d2 - 1) / j
If 0.7 * r <= j <= 2 * r And (3.1416 - 57. 3 * w >=3.1416 * 120
/ 180) And (p <= Fec * vl / 1000) And (gl(A) + g2 (h) + g3(q, A) < MAX)
And (i >= dmin) And (5 <= vl <= 25) Then
If i * j < b Then
b = i * j
dd = i
aa = j
End If
End If
Next i
Next j
End Sub
Function gl(x) ′拉应力条件，相应公式：fl/A
Dim fl As Double
fl = 10000
gl = fl / x
End Function
Function g2 (x) ′弯曲应力，相应公式：E*h/dl
Dim E As Long
E = 1200000000
dl = 20
g2 = E * x / dl
End Function
Function g3 (x,y) ′离心拉应力，相应公式：q*v*v/A
g3 = x * vl * vl / y
End Function
Private Sub command3_click() ′设置''退出"按钮
End
End Sub
Private Sub command2_click() ′设置"计算"按钮
Call yhsj(x, p, nl, n2)
Labe19.Caption = aa
Labe112.Caption = dd
End Sub
Private Sub command4-click() ′设置"清除"按钮
Textl.Text = 〝〞
Text2.Text = 〝〞
Text3. Text = 〝〞~
Text4.Text = 〝〞
Labe19.Caption = 〝〞