题目
用VB编写一个解一元二次方程 AX2+BX+C=0的程序
提问时间:2021-02-14
答案
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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1In the end,I only miss you
- 2求解释高二一道化学选择题的一个选项``谢谢
- 3有一个直角三角形,将其以ab为轴旋转一周,得到一个立体图形,这个立体图形的体积是多少呢?ab:3c
- 4以后我最爱上您的英语课,因为您总有办法让我们(),神奇的把它们变成();也有办法把那些(),让我们
- 5CO与NO反应的方程式为什么?
- 6下列食物不能被消化道直接吸收的是( ) A.脂肪、维生素 B.矿泉水、蛋白质 C.面包、蛋白质 D.食盐、葡萄糖
- 7a very easy question
- 8有红花42朵、黄花35朵,若要将红花和黄花分别扎成朵数相等的若干束花束,每束中最多有几朵花?一共可以分成
- 9钱塘江大潮是天下奇观改为感叹句
- 10闲云迷雾 彩虹日晕的意思
热门考点