提问时间:2021-01-27
这个我直接用的4个command控件,如果你学过应该能看懂
Dim a As Integer, b As Integer, c As Integer
Private Sub Command1_Click()
a = InputBox("请输入二次项系数", "输入")
End Sub
Private Sub Command2_Click()
b = InputBox("请输入一次项系数", "输入")
End Sub
Private Sub Command3_Click()
c = InputBox("请输入常数项", "输入")
End Sub
Private Sub Command4_Click()
If b ^ 2 - 4 * a * c >= 0 Then
If b ^ 2 - 4 * a * c > 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox "x1=" & Format(X1, "#0.00") & vbCrLf & "x2=" & Format(X2, "#0.00")
End If
If b ^ 2 - 4 * a * c = 0 Then
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox "x1=" & Format(X1, "#0.00")
End If
Else
d = (-b / (2 * a))
s = Sqr(-b ^ 2 + 4 * a * c)
MsgBox "x1=" & Format(d, "#0.00") & "+" & Format(s, "#0.0") & "i" & Chr(13) & "x2=" & Format(d, "#0.00") & "-" & Format(s, "#0.0") & "i"
End If
End Sub
- 1Tom,come (here),please.考点是什么?
- 2要除去氯化钾中的氯化铜,加入氢氧化钠至不再产生沉淀 这个方法对吗
- 3半偏法测电阻电源应该用电压大的还是小的
- 4已知方程x^3一(1一i)x^2十(1一i)x十i=0有一个根是-i,求这个方程在复数集中的解集.
- 5什么叫沸点和凝固点?外界压力对它们有无影响?
- 660摄氏度时硝酸钾的溶解度为50克,要制成硝酸钾饱和溶液175克时,取硝酸钾和水各多少克?
- 7to be used with charter party,提单上BILLS OF LADING下面的一句话 是租船提单的意思吗?
- 8落叶他乡树,
- 9把一张长150厘米,宽90厘米的长方形纸裁成相同的最大的正方形,无剩余,至少能裁多少张?
- 10盒子里装有同样数目的红球和白球,每次取出6个红球和4个白球,取了若干次以后,红球正好取完,白球还有10个.一共取了几次?盒子里原有红球多少个?
- 1平凸翼型、双凸翼型和凹凸翼型中哪一种做超轻型飞机的机翼最好,而且升力大呢?
- 2求1998个1998相乘的积除以8的余数,
- 3劳动收获的格言警句
- 4一个数除以36,商31余13,这个数是多少
- 5Many more.和Much more
- 6简算题774*(1/723+1/51)-723*(1/51-1/774)-51*(1/723-1/774)
- 7小玲沿某公路以每小时4千米速度步行上学,沿途发现每隔9分钟有一辆公共汽车从后面超过她,每隔7分钟遇到一辆迎面而来的公共汽车,若汽车发车的间隔时间相同,而且汽车的速度相同,
- 8关于二氯苯同分异构体的问题
- 9there are five swings in the garden.对there aer five swings提问怎么答
- 10升和毫升有什关系