VB编程.......................

显示全部楼层 · 2010-6-11 11:19:53

Private Sub Command6_Click()
Dim a As Integer
Dim b As Integer
a = Val(Text4.Text) * (((Val(Text4.Text) / Text3.Text) ^ (1 / 3) + Val(Text5.Text)) / 2)
Text6.Text = a
b = Val(Text6.Text) / Val(Text7.Text)
Text8.Text = b
End Sub
怎么出错呢

千问 · 2010-6-11 11:19:53

dim a as float;a=Val(Text4.Text) * (((Val(Text4.Text) / val(Text3.Text) ^ (1 / 3) + Val(Text5.Text)) / 2);c=val(text7.text);b=a/c;还有前面几个text里面一定要有有效数据，否则默认为零就必然出错

千问 · 2010-6-11 11:19:53

a = Val(Text4.Text) * (((Val(Text4.Text) / Text3.Text) ^ (1 / 3) + Val(Text5.Text)) / 2)你定义的a 是integer 而赋值的时候却可能是 double float型！！b也是这样。

千问 · 2010-6-11 11:19:53

帮你小小测试了一下。这里可能是因为你text7值的问题。你的text4,3,5,7一定要有数值。。。

千问 · 2010-6-11 11:19:53

把a赋值那句的text3.text也用val包含起来。