各位高人你们好：本人打算让Text44.Text文本框中，在计算数值大于零时显示计算值，而在计算数值小于零时显示“0”。如下是本人编的语句，问题是在按Command键计算时（在Text44.Text文本框中得数应该是负数的条件下），按一下得“0”、再按一下就得“负数”。如何实现按计算Command键时，程序正确判断得到唯一得数？
If Val(Text44.Text) >= 0 Then
fg = (Val(Text1.Text) + Val(Text2.Text)) - Val(Text3.Text) * (Val(Text1.Text) + Val(Text2.Text)) * (Val(Text1.Text) + Val(Text2.Text)) / (Val(Text1.Text) * Val(Text9.Text) + Val(Text2.Text) * Val(Text10.Text) + 0.000001)
Text44.Text = Format(fg, "##.0")
ElseIf Val(Text44.Text) < 0 Then
Text44.Text = "0"
End If

你是先计算 然后把值放到text44。 现在还没算就先用text44做判断当然不对了

这样就不会错了：

fg = (Val(Text1.Text) + Val(Text2.Text)) - Val(Text3.Text) * (Val(Text1.Text) + Val(Text2.Text)) * (Val(Text1.Text) + Val(Text2.Text)) / (Val(Text1.Text) * Val(Text9.Text) + Val(Text2.Text) * Val(Text10.Text) + 0.000001)

If fg >= 0 Then
Text44.Text = Format(fg, "##.0")
Else
Text44.Text = "0"
End If

楼上OK

顶！