如何用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/11/29 07:23:00
如何用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))
xTk@W m4> ~t%6.M&Տ" + 2u& Njpo<{77_:-N ߵ§GFaDwj͛5|Jkjٺ\LmM̙ULl$[-dK #8 B"H Ҽ@[0 Kb_GXJ\tlJgS\'9\qm1B~cԈ1]b|83 dX!1$ /oGY0cRgFuᕯ: w^}H/ku"DUӤ7>hd7zAWz3Xnv;.DŽY-򌹲7g*^8n/5ݯ:r8'XTx̲Ǻ)X  $P!,eQVp!2 DJk*$

如何用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个数字的大小顺序?