/ / l / ハ \ 、 ヽ ヽ i /l l /l / / \ ヽ 、 ヽ i i i ヽ l l i l __l_l_l_|i___| ll. リ i li__A-ナ、 l l lリ l l i l l ヽ\ ¨ヾー-- レl ナレ l /l / /l/ / l ハ ヽ ヽ,ヽ- ,==-_ ノ /_,∠、l/ //ノ l l ヘ ヽ iヾ`(::ヽ-ー)`  ̄ '7ヽつ,ヾィ' '/イ リ ヘ \ ヽ  ̄ ̄ ̄ `ー-' / / l / ∧ ヘ \ヽυ 丶 .i / lヘ / / ヘ i ヽヽ __ / / il \ / ´ 〉 l ヽヽ '、二二ン / / l \ ./ / ヘl ヽヽ 、 _ ¨¨ , ・ '/ / ヘ \ , - 、/ l ヽヽニ―=、' l¨¨, `l / ヘ \ / l i i\ /ヘ l / l i ヘ、_ ヽ / l l l \ゝ'-'-- 、l l \ヽ l l
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d, x1, x2, x3 As Double a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text)
ListBox1.Items.Add("[" & a & "]x^2+[" & b & "]x+[" & c & "]=0の解") d = b * b - 4.0 * a * c If d > 0 Then