VB程序编程:画出求一元二次方程的流程图1:应该有实根的解2:应该有虚根的解
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 19:13:14
VB程序编程:画出求一元二次方程的流程图1:应该有实根的解2:应该有虚根的解
VB程序编程:画出求一元二次方程的流程图
1:应该有实根的解
2:应该有虚根的解
VB程序编程:画出求一元二次方程的流程图1:应该有实根的解2:应该有虚根的解
以下是画一元二次方程的图的代码:(假设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的话就会画出直线,就可以说明我的代码是正确的了