Question

vb新手 求解惑

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim x1 As String
Dim x2 As String

Text7.Text = a
Text8.Text = b
Text9.Text = c

If a = 0 Then x1 = -c / b
If b ^ 2 - 4 * a * c = 0 Then x2 = x1 = -b / 2 * a
If b ^ 2 - 4 * a * c < 0 Then x2 = x1 = "无解"
If b ^ 2 - 4 * a * c > 0 Then x1 = [-b + sqr(b*b - 4 * a * c )] / 2 * a
If b ^ 2 - 4 * a * c > 0 Then x2 = [-b - sqr(b*b - 4 * a * c )] / 2 * a

Text10.Text = x1
Text11.Text = x2
End Sub
错在哪

Answer 1

你这样a,b,c没有数值，或者说都是0
应该这个样
a = Text7.Text
b = Text8.Text
c = Text9.Text

追问

还是显示外面部命未定义

追答

不能识别中括号，只能继续用小括号，系统自动从最内层的括号算起

Answer 2

1 最好先看看基本的代码规范。变量名最好有意义。
2 进行数值运算时，需验证能否进行数值运算。
3 赋值运算是把后面的赋给前面的。
4 x2 = x1 = -b / 2 * a有意义？既是新手，请分开写。

Answer 3

我知道你这段代码要实现什么功能，我们上学的时候这是很典型的例子 求一元二次方程的根

首先变量的类型你就定义错误了。应该都为single 单精度实数

代码如下 对比一下你自己的代码 看哪里不一样 鉴于你是新手 复杂的话就不说了

Private Sub Command1_Click()
Dim a As single
Dim b As single
Dim c As single
Dim x1 As single
Dim x2 As single

a=Val(Text7.Text)
b=Val(Text8.Text)
c=Val(Text9.Text)

If a = 0 Then x1 = -c / b
If b ^ 2 - 4 * a * c = 0 Then x1 = -b / 2 * a : x2 =x1' x2=x1=某值 是VB典型的错误，只能分开写。: 这个符号可以在同行书写多句代码
If b ^ 2 - 4 * a * c < 0 Then Text10.Text= "无解" : Text11.Text="无解" : End Sub'俩文本框 显示无解 直接退出事件 即本句后所有模块内代码不执行
If b ^ 2 - 4 * a * c > 0 Then x1 = （-b + sqr(b*b - 4 * a * c )） / 2 * a :x2 = （-b - sqr(b*b - 4 * a * c )） / 2 * a

Text10.Text = str(x1) '用Str()函数将数值转化成字符串输出
Text11.Text = str(x2)
End Sub