UC知道vb数据输出问题
来源：百度知道 编辑：UC知道 时间：2024/05/08 23:02:19
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c >= 0 And a > 0 Then
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Label6.Caption = "x1=" & x & ""
Label7.Caption = "x2=" & y & ""
Else
Label6.Caption = "无解"
Label7.Caption = "无解"
End If
End Sub
我设计的解一元二次方程程序，但当输出的数据是0点几时，0总是显示不出来，直接是.12345之类的
a = Val(Text1.Text)
b = Val(text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c >= 0 And a > 0 Then
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Label6.Caption = "x1=" & x & ""
Label7.Caption = "x2=" & y & ""
Else
Label6.Caption = "无解"
Label7.Caption = "无解"
End If
End Sub
我设计的解一元二次方程程序，但当输出的数据是0点几时，0总是显示不出来，直接是.12345之类的
Label6.Caption = "x1=" & format(x,"0.#######") & ""
Label7.Caption = "x2=" & format(y,"0.#######") & ""
这种方法最好,因为###能使当没有小数时不保留小数位.而下面的就会一直保留3位小数.建议用上面的方法.
Label6.Caption = "x1=" & format(x,"0.000") & ""
Label7.Caption = "x2=" & format(y,"0.000") & ""
用格式函数format 格式一下 format(x,#.#######)
x 是数据，#号部分填你想让它变的形式
Label6.Caption = "x1=" & format(x,"0.#######") & ""
Label7.Caption = "x2=" & format(y,"0.#######") & ""
修改这里！
修改这两行就可以了
Label6.Caption = "x1=" & format(x,"0.000") & ""
Label7.Caption = "x2=" & format(y,"0.000") & ""
Label6.Caption = iif (x < 0 , "x1=" & "0" & x & "" , "x1=" & x & "" )
Label7.Caption = iif