改了，还是不行啊。
![hx.jpg]()
13216
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t13216%22%2C%22tid%22%3A%2213216%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%22424%22%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
[VB]运行到这里卡了，麻烦大家指点
我想编辑一个可以解出复数根的一元二次方程计算器，结果老是卡在第二个else这里。
麻烦大家帮我看下究竟该怎么改，谢谢！
Private Sub CmdSolve_Click()
Dim a As Single: a = Val(Text1.Text)
Dim b As Single: b = Val(Text2.Text)
Dim c As Single: c = Val(Text3.Text)
Dim p As Single: p = b ^ 2 - 4 * a * c
Dim x1 As Single, X2 As Single, e As Single, f As Single
If a = 0 Then
Text4.Text = "无解"
Text5.Text = "无解"
Else: If p >= 0 Then x1 = (-b + Sqr(p)) / (2 * a): X2 = (-b - Sqr(p)) / (2 * a): Text4.Text = x1: Text5.Text = X2
Else: e = -b / (2 * a): f = (Sqr(-p)) / (2 * a): Text4.Text = Str(e) & "+" & Str(f) & "i": Text5.Text = Str(e) & "+" & Str(f) & "i"
End If
End If
End Sub
麻烦大家帮我看下究竟该怎么改，谢谢！
Private Sub CmdSolve_Click()
Dim a As Single: a = Val(Text1.Text)
Dim b As Single: b = Val(Text2.Text)
Dim c As Single: c = Val(Text3.Text)
Dim p As Single: p = b ^ 2 - 4 * a * c
Dim x1 As Single, X2 As Single, e As Single, f As Single
If a = 0 Then
Text4.Text = "无解"
Text5.Text = "无解"
Else: If p >= 0 Then x1 = (-b + Sqr(p)) / (2 * a): X2 = (-b - Sqr(p)) / (2 * a): Text4.Text = x1: Text5.Text = X2
Else: e = -b / (2 * a): f = (Sqr(-p)) / (2 * a): Text4.Text = Str(e) & "+" & Str(f) & "i": Text5.Text = Str(e) & "+" & Str(f) & "i"
End If
End If
End Sub
搞好了，非常感谢楼上诸位！
我一开始多那么长个尾巴真累最……
请问为什么这里
Text4.Text = x1
Text5.Text = x2
不要Str(x1)，而这里
Text4.Text = Str(e) & "+" & Str(f) & "i"
Text5.Text = Str(e) & "-" & Str(f) & "i"
需要Str？![hx.jpg]()
我一开始多那么长个尾巴真累最……
请问为什么这里
Text4.Text = x1
Text5.Text = x2
不要Str(x1)，而这里
Text4.Text = Str(e) & "+" & Str(f) & "i"
Text5.Text = Str(e) & "-" & Str(f) & "i"
需要Str？
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
carneades
笔友
笔友
200字以内，仅用于支线交流，主线讨论请采用回复功能。