123
Dim a, b, c As Integer
Dim ans1, ans2 As Double
a = Val(TextBox1.Text)
Select Case a
Case Is = (b ^ 2 - 4 * a * c) = 0
ans1 = -b / (2 * a)
TextBox4.Text = "有兩個等根" & ans1
End Select
b = Val(TextBox2.Text)
Select Case b
Case Is = (b ^ 2 - 4 * a * c) < 0
TextBox4.Text = "有兩個虛根"
End Select
c = Val(TextBox3.Text)
Select Case c
Case Else
ans1 = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
ans2 = (-b - Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
TextBox4.Text = "有兩個實根:" & ans1 & "," & ans2
End Select
End Sub
Today's Visitors: 0 Total Visitors: 18

1樓
1樓搶頭香
(゚д゚)ウ-(゚Д゚)マー(゚A゚)イ-…ヽ(゚∀゚)ノ…ゾォォォォォ!!!!
2樓
2樓頸推
(▽〃)。oO
3樓
3樓坐沙發
(*>∀<*)
4樓
福樓
o(*゚∀゚*)o
5樓
專業的5樓
o(´∀`o三o´v`)o
6樓
6樓
(●ゝ▽・●)ヽ
7樓
7樓
(°ー°*)
8樓
8樓
^(┬(●●)┬ )^ イヤイヤ ^( ┬(●●)┬)^
9樓
9樓
|・ω・*)ノ|Юガチャ ただいまぁ!
10樓
10樓
は(* ̄(エ) ̄)ノろぉ(* ̄(エ) ̄)ノ
11樓
11樓
[。゚+.ァリガトン。゚+.]*´3`)ノ゛
12樓
12樓
└(―_―;)_―;)―;);))┐こっそり退却!
13樓
13樓
*・ω・)ノ*・ω・)ノ*・ω・)ノコンチコンチコンチッ♪
14樓
14樓
オ♥(・ω・)♡ハ
15樓
15樓
(‡▼益▼)
16樓
16樓
|_□∨Ε...φ(´ω`●)
17樓
17樓
(^^ゞ カキカキ
18樓
18樓
('0'*)あ('-'*)い('-'*)し('▽'*)て('o'*)る♪
19樓
19樓
ヽ(。>д<)p【+。・オハヨウゴザイマス。・+】q(・д・`)ノ
20樓
20樓
:。+゜馬路ぁ⌒㌧p∀`◎)ノ☆.*o
21樓
21樓
*。【◎´・∪・】b゚+。最高。+゚d【・Å・`#】。*゚
22樓
22樓
(○'U'○)HELLO☆ミ
23樓
23樓
。:+゜゜+(●´v`☆)゜:+゜(*・∀・)ノ:*・゚☆Ηёισσ☆.。.:*・
24樓
24樓
(((((((((汗´c`))))))))))))
25樓
25樓
(○'ω'○)ん?