如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d))

来源：学生作业帮助网编辑：作业帮时间：2024/05/06 09:45:54

如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d))
如何用vb设计计算二次方程的根的程序
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
Label8.Caption = (-b + Sqr(d)) / (2 * a)
Label10.Caption = (-b - Sqr(d)) / (2 * a)
Else
If d = 0 Then
Label8.Caption = -b / (2 * a)
Label9.Caption = -b / (2 * a)
Else
If d < 0 Then
tl = MsgBox("无实数根!",vbOKOnly + vbExclamation,"系统提示")
End If
End Sub
帮忙看看哪里出错了?

如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d))
elseif连起来就行了
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
Label8.Caption = (-b + Sqr(d)) / (2 * a)
Label10.Caption = (-b - Sqr(d)) / (2 * a)
ElseIf d = 0 Then
Label8.Caption = -b / (2 * a)
Label9.Caption = -b / (2 * a)
ElseIf d < 0 Then
tl = MsgBox("无实数根!",vbOKOnly + vbExclamation,"系统提示")
End If
End Sub

如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d)) 一元二次方程求根公式式如何用VB程序编辑如何用C＋＋设计一个计算圆面积的程序如何用vb设计一个程序,可以将输入的10个以上的数字按大小顺序排列出来,可以给我思路,也可以给我答案. 如何用vfp设计猜奇偶数的简单程序二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值.提示：为简单起见,可二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值. 如何用VB求一元二次方程的虚数解（一定是虚数解）. 如何用vB程序随机产生30个不同的字母? 用VB程序编写：问题;创建一个工程来计算一元二次方程的根.要求输入一元二次方程的系数,求出方程的根如何用VB编 “求任意两个数的和”的程序主要需要中间的英文程序谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）设计一个VB程序,计算整数各位数上的和用VB设计一个程序计算物理,英语,数学三门课的绩点. 如何用vb设计极坐标曲线的画法把笛卡尔叶形线做个例子吧如何用Fix(N)和Int(N)实现四舍五入取整?用VB,完整的程序.不能用IF语句. 如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如：01235689, 如何用C语言设计程序排列6个数字的大小顺序?