题目
求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.
提问时间:2021-03-16
答案
Private Sub Command1_Click()
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Sub
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1舟行碧波上,人在画中游.意思是什么?
- 2求语文学霸
- 3设x->0时,e^tanx-e^x与x^n是同阶无穷小,则n=( ).
- 4珍惜时间的小故事
- 5开学第二天的日记
- 6谁能帮忙找找高考常考的特殊物质的摩尔质量和分子中的中子数 的归纳?例如氕氘氚、重水这样的.
- 7关于用水制取二级能源氢气,以下研究方向不正确的是( ) A.构成水的氢和氧都是可以燃烧的物质,因此可以研究在水不分解的情况下,使所含的氢成为二级能源 B.设法使太阳光聚焦,
- 8There will be less snow this year.改为反意疑问句
- 9爸爸从家里骑车去上班,每分钟行120米,下班回家每分钟行150米,这样上下班在路上共用去18分钟.家里离单
- 10求雅思大作文写作!Happiness is considered very important in life.Why is it difficult to define?
热门考点
- 1x的二次方(a-1)+4(.1-a)急!
- 2f(x)=2cos(wx+π/6)周期为10π,w=1/5,为什么是cos的函数还可以用2π/w来计算周期?不是只有sin形式才可以吗 还有y=1/2-1/2sin2x的周期为什么是π 怎么看出来的
- 3高一函数求值域的题~
- 4门前——前门 讲演——演讲 算__——__算 树___---树 菜__---__菜
- 5礼貌用语的名言警句
- 6繁体汉字有什么优点,简体汉字有什么缺点?
- 7在a和b之间插入n个数构成一个等差数列,则其公差为( )
- 8怎样判断烷烃的一卤代物;二卤代物同分异构体的种类?
- 9在山林深处白云缭绕的地方,隐约有几户人家.要求缩句应该怎么写?
- 10丨2a-4丨+(2a+3b-13)²=0