Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根
题目
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有无穷解" Else Print "x无解"
Else
Print "解得:x=" & -c / b
End If
Else
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = -b / (2 * a)
If d = 0 Then Print "解得:x=" & x1
If d < 0 Then
Print "无实根"
End If
End If
End If
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 你怎样看待读书把文章抄写六七遍这件事?
- 草履虫是单细胞生物,这是因为它由( )构成
- 一道数学题:用数字0,5,8,9可以组成多少个没有重复数字的四位数?若数字可以重复呢?只含有重复数字的四位数有多少个?
- After they had arrived campus a girl was sssigned to take them on a tour of the halls
- 已知曲线L是x*x + y*y = 1的正向,则∫ydx-∫xdy是多少
- 如何做探究影响摩擦力大小的因素
- a hundred 序数词
- 一个旅游团乘车去西安世园会参观,每辆客车中乘坐30名游客,途中一辆客车发生了故障,把这辆车上的游客转移到其他车上,每辆车要多坐5人,算一算,这个旅游团一共有多少人?
- 语文文言文翻译,司空图,字表圣,本临淮人.图咸通十年登进士第,主司王凝于中尤奇之.凝左授商州刺史,
- 一件商品,按成本价提高百分之三十后出售,后来因为换季又打八折销售,降价后每件商品卖一百另四元,这...