当前位置:首页 > 作业习题
问题标题

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

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

问题补充:

VB 解一元二次方程程序设计
写成INPUT那种的

相关问题:
网友答案
vb代码如下:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox(请输入一元二次方程的系数a)
b = InputBox(请输入一元二次方程的系数b)
c = InputBox(请输入一元二次方程的系数c)
If a = 0 Then
a = InputBox(因为a≠0,你输入的a=0,请重新输入系数a)
End If
d = b * b - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print 系数为; a; b; c; 的一元二次方程的根分别为; x1
Print 系数为; a; b; c; 的一元二次方程的根分别为; x2
Else
Print 此方程在实数范围内无解
End If
End Sub
一、按钮“求一元二次方程”的vb代码如下:
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If d >= 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = X1
Label5.Caption = X2
Else
Label4.Caption = 在实数范围内无解
End If
End Sub
二、按钮“重置”的vb代码如下:
Private Sub Command2_Click()
Text1.Text =
Text2.Text =
Text3.Text =
Label4.Caption =
Label5.Caption =
End Sub
三、按钮“退出”的vb代码如下:
Private Sub Command3_Click()
End
End Sub
特殊例子(指定系数c的值为5):
在窗体“Form1.frm”的“Command1_click“事件中编写代码(请不要随便更改其它代码),使之能够实现如下功能:在Text1输入整数a、、Text2输入b,判断一元二次方程ax2+bx+5=0有无实数根.并在Text3文本框中显示判断结果,即有实数根则在Text3文本框中输出“有”,否则输出“无”.
VB程序代码如下:
Private Sub Command1_Click()
dim a as single,b as single
a = Text1.Text
b = Text2.Text
d = b * b - 4 * a * 5
If d >= 0 Then
Text3.Text=有
Else
Text3.Text=无
End If
End Sub
如果不用dim定义变量,则上面的输入部分语句改为下面的语句,这样可以把字符变量类型转化为数值类型:
a =val(Text1.Text)
b =val(Text2.Text)
楼主.给你写这么呢多你不给加点分吗?= =||
我来回答
  • 验证码:    点击更换验证码