当前位置: 萬仟网 > IT编程>UI设计>Illustrator > VB6.0如何实现一元二次方程的求解? 用vb求一元二次方程的根

VB6.0如何实现一元二次方程的求解? 用vb求一元二次方程的根

2021年12月30日 Illustrator 我要评论
在vb6.0编程中,我们可以解决很多数学上的问题,极大的方便了我们的数学计算,下面我们就来看看求解一元二次方程是一个经典例子,在国家计算机二级中也常考,今天我们就详细介绍如何用vb6.0编程实现一元二

在vb6.0编程中,我们可以解决很多数学上的问题,极大的方便了我们的数学计算,下面我们就来看看求解一元二次方程是一个经典例子,在国家计算机二级中也常考,今天我们就详细介绍如何用vb6.0编程实现一元二次方程的求解。

首先打开vb6.0软件,在打开的界面上,点击【标准exe】按钮,建立一个标准的exe可执行文件,然后点击【打开】,如图所示。

然后,可以看到,界面上新弹出来一个form1,在这个form1里面,可以进行界面的设计及对应代码的编写,如图所示。

我们根据一元二次方程的公式,需要3个系数,这里分别设为a,b,c,然后我们需要两个实数解的输出结果,这里设置为x1,x2,然后加上相应的文本框及计算按钮,这些控件都在左侧工具箱里可以找到,只需点击某个控件,然后在form1上绘制出来即可。

我们需要在form1的代码编辑窗口,编辑一段代码:

private sub form_load()
dim a as single, b as single, c as single, x1 as double, x2 as double, r as double
end sub

以上代码,定义了变量a,b,c,x1,x2,r,其中r是用于计算是否存在实数解。

private sub command1_click()
a = text1.text: b = text2.text: c = text3.text
r = b ^ 2 - 4 * a * c
if r < 0 then
msgbox ("方程无实数根!")
else
x1 = (-b + sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - sqr(b ^ 2 - 4 * a * c)) / (2 * a)
text4.text = x1
text5.text = x2
end if

以上代码是计算,点击按钮后,能否存在实数解,以及如果存在实数解,就计算出来,将结果赋值给对应的文本框。

全部编辑完成之后,我们点击上方的【运行】按钮,然后再点击下方的【启动】按钮,启动程序,如图所示。

在启动的窗口中,分别输入三个系数,a,b,c,然后点击【计算】按钮。如果存在实数解,则会在右侧文本框输出,如果不存在,会弹框提醒不存在。

如果觉得有用,记得点赞或投票支持!

注意事项:

需要控制好,所有系数的输入必须是数字。需要先判断有无实数解,再计算值。

以上就是用vb求一元二次方程的根,希望大家喜欢,请继续关注萬仟网。

(0)
打赏 微信扫一扫 微信扫一扫

相关文章:

版权声明:本文内容由互联网用户贡献,该文观点仅代表作者本人。本站仅提供信息存储服务,不拥有所有权,不承担相关法律责任。 如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2386932994@qq.com 举报,一经查实将立刻删除。

发表评论

验证码:
Copyright © 2017-2022  萬仟网 保留所有权利. 粤ICP备17035492号-1
站长QQ:2386932994 | 联系邮箱:2386932994@qq.com