好吧问答库 > vb输入一元二次方程ax^2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个实根x1,x2.

vb输入一元二次方程ax^2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个实根x1,x2.

2024年11月23日 02:09

有2个网友回答

网友（1）：

VB纯小数的输出，默认的都是不输出整数0的。
0.12就输出为.12
-0.12就输出 -.12
如要输出的话，要自己编写代码：
Private Sub Command1_Click()
x = Val(InputBox(""))
If x > 0 And x < 1 Then
Print "0" & x
Else
If x < 0 And x > -1 Then
Print "-0" & -x
Else
Print x
End If
End If
End Sub

网友（2）：

默认不显示，判断下，自己加0