您所在位置：主题：新手求助
liangqwert
[专家分：0] 发布于 2010-05-15 15:36:00
我想在界面中输出计算结果，但是调试过不去，请高手帮忙看一下
Private Sub Form_Load()
Dim a, b As Integer
a = Val(Text1.Text)
b = Val(Text3.Text)
If Option2 = True Then
Text4.Text = 175 * (1 / (b / 88.4) ^ 1.234) * (1 / a ^ 0.179)
Else
Text4.Text = 175 * (1 / (b / 88.4) ^ 1.234) * (1 / a ^ 0.179) * 0.79
End If
End Sub
Private Sub Form_Load()
Dim a, b As Integer
a = Val(Text1.Text)
b = Val(Text3.Text)
If Option2 = True Then
Text4.Text = 175 * (1 / (b / 88.4) ^ 1.234) * (1 / a ^ 0.179)
Else
Text4.Text = 175 * (1 / (b / 88.4) ^ 1.234) * (1 / a ^ 0.179) * 0.79
End If
End Sub
