Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
Dim m As Integer,x1 As Integer,x2 As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
m = b ^ 2 - 4 * a * c
If a = 0 Then
Print wrong
Else
Select Case m
Case Is > 0
x1 = (-b + Sqr(m) / (2 * a))
x2 = (-b - Sqr(m) / (2 * a))
Print "不相等的两根 x1=" & x1 & ",x2=" & x2
Case 0
x1 = x2 = (-b / (2 * a))
Print "相等的两根 x1=x2 =" & x1
Case Is < 0
Print "No Real"
End Select
End If
End Sub
一元二次方程ax^2+bx+c=0的解x VB怎么写?
一元二次方程ax^2+bx+c=0的解x VB怎么写?
数学人气:386 ℃时间:2019-09-29 15:58:58
优质解答
我来回答
类似推荐
猜你喜欢
- 1质量为2kg的物体,自30m高处自由下落2s时,物体的重力势能为(g取10m/s^2,取地面为零势能面))
- 2已知数轴上有顺次三点ABC其中A表示的为-20,C点表示的数为40,一电子蚂蚁从C点出发,以每秒2个单位的速度向左移动
- 3电路中有电灯、电压表(并联在电路上)、电流表(与电灯串联)、如果将它们位置互换,将会发生什么现象
- 4用比喻的修辞手法写一句话.
- 5爸爸经常鼓励我和外国人交谈的英文怎么说
- 6找一个数的因数和倍数的方法有哪些?
- 7what is he like?what dose he like what dose he look like?的区别
- 8数学题找规律1,8,27,64( ),( )
- 9公园里有1块边长10米的正方形草坪,他的四周铺一条1米宽的小路,小路多少平方米
- 10《三峡》的结尾引用了渔歌,引用渔歌的作用是什么