March 23, 2012

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
Personal Category: Uncategorized Articles Topic: feeling / personal / murmur
[Trackback URL]

Reply
  • 1樓

    1樓搶頭香

    (゚д゚)ウ-(゚Д゚)マー(゚A゚)イ-…ヽ(゚∀゚)ノ…ゾォォォォォ!!!!

  • 全雅芬 at April 19, 2012 10:31 AM comment | email Homepage
  • 2樓

    2樓頸推

    (▽〃)。oO

  • 何復國 at April 30, 2012 10:14 AM comment | email Homepage
  • 3樓

    3樓坐沙發

    (*>∀<*)

  • 焦佩珊 at May 1, 2012 05:11 AM comment | email Homepage
  • 4樓

    福樓

    o(*゚∀゚*)o

  • 毛嘉慧 at May 3, 2012 10:42 PM comment | email Homepage
  • 5樓

    專業的5樓

    o(´∀`o三o´v`)o

  • 徐離春美 at May 7, 2012 11:53 AM comment | email Homepage
  • 6樓

    6樓

    (●ゝ▽・●)ヽ

  • 譚智偉 at May 10, 2012 07:57 AM comment | email Homepage
  • 7樓

    7樓

    (°ー°*)

  • 俞雅芬 at June 29, 2012 11:38 PM comment | email Homepage
  • 8樓

    8樓

    ^(┬(●●)┬ )^ イヤイヤ ^( ┬(●●)┬)^

  • 農靜宜 at December 11, 2012 01:13 AM comment | email Homepage
  • 9樓

    9樓

    |・ω・*)ノ|Юガチャ ただいまぁ!

  • 王欣怡 at December 11, 2012 09:34 AM comment | email Homepage
  • 10樓

    10樓

    は(* ̄(エ) ̄)ノろぉ(* ̄(エ) ̄)ノ

  • 萬俊宏 at January 12, 2013 07:13 AM comment | email Homepage
  • 11樓

    11樓

    [。゚+.ァリガトン。゚+.]*´3`)ノ゛

  • 尤怡婷 at January 26, 2013 02:45 AM comment | email Homepage
  • 12樓

    12樓

    └(―_―;)_―;)―;);))┐こっそり退却!

  • 山美華 at February 5, 2013 02:54 PM comment | email Homepage
  • 13樓

    13樓

    *・ω・)ノ*・ω・)ノ*・ω・)ノコンチコンチコンチッ♪

  • 伍淑惠 at February 16, 2013 03:25 AM comment | email Homepage
  • 14樓

    14樓

    オ♥(・ω・)♡ハ

  • 瞿心怡 at March 17, 2013 01:10 AM comment | email Homepage
  • 15樓

    15樓

    (‡▼益▼)

  • 令狐淑芬 at April 3, 2013 11:53 PM comment | email Homepage
  • 16樓

    16樓

    |_□∨Ε...φ(´ω`●)

  • 權淑芬 at May 15, 2013 05:19 AM comment | email Homepage
  • 17樓

    17樓

    (^^ゞ カキカキ

  • 宰韻如 at June 21, 2013 03:58 AM comment | email Homepage
  • 18樓

    18樓

    ('0'*)あ('-'*)い('-'*)し('▽'*)て('o'*)る♪

  • 桂慧婷 at June 23, 2013 11:23 PM comment | email Homepage
  • 19樓

    19樓

    ヽ(。>д<)p【+。・オハヨウゴザイマス。・+】q(・д・`)ノ

  • 喻淑美 at June 24, 2013 10:09 PM comment | email Homepage
  • 20樓

    20樓

    :。+゜馬路ぁ⌒㌧p∀`◎)ノ☆.*o

  • 秋俊明 at July 11, 2013 10:26 PM comment | email Homepage
  • 21樓

    21樓

    *。【◎´・∪・】b゚+。最高。+゚d【・Å・`#】。*゚ 

  • 常志明 at August 10, 2013 08:00 PM comment | email Homepage
  • 22樓

    22樓

    (○'U'○)HELLO☆ミ

  • 宦淑芳 at August 16, 2013 02:30 AM comment | email Homepage
  • 23樓

    23樓

    。:+゜゜+(●´v`☆)゜:+゜(*・∀・)ノ:*・゚☆Ηёισσ☆.。.:*・

  • 侯靜宜 at August 25, 2013 05:15 PM comment | email Homepage
  • 24樓

    24樓

    (((((((((汗´c`))))))))))))

  • 季俊宏 at September 30, 2013 06:32 PM comment | email Homepage
  • 25樓

    25樓

    (○'ω'○)ん?

  • 陸佳琪 at October 1, 2013 02:08 AM comment | email Homepage
Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0