用vb画一元二次方程的图,怎样让画出的图中坐标轴的
发布网友
发布时间:2022-05-29 19:34
我来回答
共2个回答
热心网友
时间:2023-11-12 14:01
以下是画一元二次方程的图的代码:(假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800)
Private Sub Command1_Click()
Cls
Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)
Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)
Dim x
Dim xx
Dim y
Dim yy
Dim a
Dim b
Dim c
a = InputBox("请输入二次项系数(a)", "录入")
b = InputBox("请输入一次项系数(b)", "录入")
c = InputBox("请输入常数项(c)", "录入")
For x = -4800 To 4800 Step 0.5
y = a * x ^ 2 + b * x + c
xx = x + 2400
yy = -y + 2400
PSet (xx, yy), RGB(0, 0, 255)
Next x
End Sub
Private Sub Form_Activate()
Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)
Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)
End Sub
基于计算机的计算能力问题,画出来的图可能不准确,如果代入a=0的话就会画出直线,就可以说明我的代码是正确的了
热心网友
时间:2023-11-12 14:02
Private Sub init_Click()
Form1.Cls *清屏
Picture1.Cls
Picture2.Cls
Text1 = ""
Text2 = ""
Label6 = ""
Dim a#, b#, c#
a = Val(InputBox("输入系数a"))
If a = 0 Then MsgBox "一元2次方程,系数a不能为0": Exit Sub
b = Val(InputBox("输入系数b"))
c = Val(InputBox("输入系数c"))
Picture1.Print ""; a; "x^2+"; b; "x+("; c; ")=0"
Open "d:\date.txt" For Output As #1
Write #1, a, b, c
Close #1
End Sub
Private Sub quit_Click()
End
End Sub
Private Sub solve_Click()
If Dir("d:\date.txt") = "" Then
MsgBox "请先系数初始化 ": Exit Sub
End If
Open "d:\date.txt" For Input As #1
Dim a#, b#, c#
Do While Not EOF(1)
Input #1, a, b, c
Loop
Close #1
delta = b ^ 2 - 4 * a * c
If delta > 0 Then
Picture2.Print "有两个不同的实根"
X1 = Val((-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a))
X2 = Val((-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a))
Text1 = Format(X1, "0.00000")
Text2 = Format(X2, "0.00000")
ElseIf delta = 0 Then
Picture2.Print "有两个相同的实根"
Text1 = -b / (2 * a)
Text2 = Text1
Else
Picture2.Print "方程无实根"
End If
End Sub
这个是代码
VB程序编程:画出求一元二次方程的流程图
以下是画一元二次方程的图的代码:(假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800)Private Sub Command1_Click()Cls Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)Dim x Dim xx Dim y Dim yy Dim a Dim b Dim c a ...
VB6.0实现一元二次方程的求解
打开VB6.0,新建一个工程,在窗体中添加两个命令按钮,caption分别改为“计算”、“输出”,将窗体Form1的caption属性改为“解一元二次方程”,添加5个标控件,将其caption属性分别改为“a”、"b”、“c”、“X1”、“X2”,添加5个文本框,并将其Text属性清空,将界面设置成下图 一元二次...
用VB怎么编一元二次方程计算?
利用公式法来解Private Sub Command1_Click()Dim a As Double, b As Double, c As Double a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then MsgBox "a不能为0"GoTo r End If If b ^ 2 - 4 * a * c < 0 Then Label1.Caption = "实数范围内无...
如何用vb解一元二次方程,并先后得出x1和x2的值?
Text1.Text = "x1=" & x1 txet2.Text = "x2=" & x2 拆开赋值 改后如下试一下吧 Private Sub Command1_Click()Dim x, x1, x2 As Double For x = -10 To 10 Step 0.01 If CSng(2 * x * x + 3 * x + 1) == 0 Then Text1.Text = "x1=" & x For x = x+0.0...
如何利用vb制作一元二次方程求根系统?
启动VB编程程序。可以到官方网上下载visual basic程序,然后进行安装,安装结束,双击打开程序,新建一个工程。设计求根系统面板。这个面板由6个标签控件,6个文本框和两个命令按钮组成。单击标签控件A,在form面板上插入6个标签。命名标签。右击标签1,打开属性窗口。把标签名称改为a,同样的把标签2,3,,...
如何用vb解决一元二次方程。我要具体方法,谢谢。
加三个变量,和一对X1,X2,,,并斌值,,,先判断,B*B-4AC是否小于0(无解) 或等于0就有一个答案,如果大于0则,按公式并计算.计算公式,自己写了,,我就不写了,呵呵,a=2 b=3 c=4 dim x1,x2 if b*b-4*a*c<0 then print"无解"else if b*b-4*a*c=0 then x1= x2=x1 else x1...
用VB制作“计算一元二次方程ax^2+bx+c=0”的根(a,b,c的值由键盘...
Private Sub Command1_Click()Dim a#, b#, c#, x1#, x2 a = Text1.Text b = Text2.Text c = Text3.Text x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)Print x1, x2 End Sub ...
Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根
Private Sub Command1_Click()Dim a#, b#, c#, d#, x1#, x2 a = Val(InputBox("a=", "数据输入框", 1))b = Val(InputBox("b=", "数据输入框", 2))c = Val(InputBox("c=", "数据输入框", 1))If a = 0 Then If b = 0 Then If c = 0 Then Print "解得:x有...
用vb求一元二次方程的根,根的结果用Msgbox函数表示
这种是相对简单的解法,直接用求根公式。而且没加化简解的公式,直接输出小数结果了。Private Sub Command1_Click()Dim a, b, c, x1, x2, deltaIf Text1.Text = "" Then a = 1 Else a = Val(Text1.Text)If Text2.Text = "" Then b = 1 Else b = Val(Text2.Text)If Text1....
VB 解一元二次方程程序设计
一、按钮“求一元二次方程”的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...