当前位置:首页
问题标题

VB解一元二次方程,VB 解一元二次方程程序设计

2021-3-7来自ip:17.198.144.16的网友咨询 浏览量:448 手机版

问题补充:

VB解一元二次方程,VB 解一元二次方程程序设计 有人知道吗?有大神在线吗,能不能帮忙解答一下这个问题,我先在此谢谢了!

相关问题:
网友答案
Private Sub Command1_Click()
a = Val(Text1, Text) Text1, Text中间是.不是,
b = Val(Text2, Text) 同样
c = Val(taxt3, Text) 同样
X1 = Val(Text4, Text) 同样,这句删除32313133353236313431303231363533e78988e69d8331333236366237!
X2 = Val(Text5, Text) 同样,这句也删除!
d = b ^ 2 - 4 * a * c
If d > 0 Then X1 = (-b + Sqr(d)) / (2 * a): X2 = (-b - Sqr(d)) / (2 * a): k = 2 不能这样,应该:

If d > 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
k = 2

elself d=0 Then x1=(-b)/(2*a):x2=x1:k=1 不能这样,应该:

elself d=0 Then
x1=(-b)/(2*a)
x2=x1
k=1
Else
k = 0
End If

我不知道你的k是做什么的如果k没有用处,可以去掉,完整代码:
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(taxt3.Text)
d = b ^ 2 - 4 * a * c
If d >= 0 Then
Text4.Text = (-b + Sqr(d)) / (2 * a)
Text5.Text = (-b - Sqr(d)) / (2 * a)
else
Text4.Text = str(-b/ (2 * a)) & "+" & str(Sqr(-d)/ (2 * a)) & "i"
Text5.Text = str(-b/ (2 * a)) & "-" & str(Sqr(-d)/ (2 * a)) & "i"
msgbox"无实数解!"
End If
End Sub
网友答案
1.VB解一元二次方程
Private Sub Command1_Click() a = Val(Text1, Text... 2016-12-01 ZHRX15

2.VB 解一元二次方程程序设计
vb代码如下: Private Sub Command1_Click()Dim a As ... 2017-11-27 

我来回答
  • 验证码:    点击更换验证码    
大家还关注