二次方程式は、「ax ^ 2 + bx + c = 0」の形式の2次多項式です。 「a」、「b」、「c」は定数、「x」は変数です。 二次方程式を解くときは、定数の値を取得し、xを解く必要があります。これにより、常に「根」と呼ばれる2つの値が得られます。 の Visual Basicでは、ユーザーにa、b、cの値を入力し、ルートを見つけて、に値を表示するように求めるプログラムまたは関数を作成できます。 形。
ステップ1
新しいVisualBasicプログラムを開きます。 「ボタン」ツールをダブルクリックして、Button1をフォームに追加します。 「ラベル」ツールを2回ダブルクリックして、Label1とLabel2をフォームに追加します。
今日のビデオ
ステップ2
フォームの「Button1」をダブルクリックして、コードウィンドウを開きます。 次のコードを入力します。
Dim a As Decimal = InputBox（ "Enter A："）Dim b As Decimal = InputBox（ "Enter B："）Dim c As Decimal = InputBox（ "Enter C："）2次（a、b、c）
最初の3行は、定数の値の入力をユーザーに求めます。 次に、「Quadratic」と呼ばれるサブを呼び出し、定数を引数として渡します。
ステップ3
Button1サブの外側にカーソルを挿入します。 次のコードを入力します。
Private Sub Quadratic（ByVal a As Decimal、ByVal b As Decimal、ByVal c As Decimal）Dim roots（1）As String Dim x1、x2、disc As Decimal disc = b ^ 2-4 * a * c
最初の行は2次サブを作成し、3つの引数を受け入れます。 次に、2つのルートに対して2つの項目を持つ配列を定義します。 次に、3つの10進変数を作成し、判別式の値を割り当てます。これにより、2次方程式の根の数が決まります。
ステップ4
次のコードを入力します。
ディスク> = 0の場合、x1 =（-b + Math。 Sqrt（disc））/（2 * a）x2 =（-b-数学。 Sqrt（disc））/（2 * a）roots（0）= x1.ToString roots（1）= x2.ToString Else roots（0）= "（-"＆b。 ToString＆ "+ Sqrt（"＆ディスク。 ToString＆ "））/（2 _"＆a。 ToString＆ "）" roots（1）= "（-"＆b。 ToString＆ "-Sqrt（"＆ディスク。 ToString＆ "））/（2 _"＆a。 ToString＆ "）" End If
「if」関数は、判別式の値がゼロ以上であるかどうかを確認します。これは、方程式に1つまたは2つの根があることを意味します。 次に、xを解きます。 判別式がゼロ未満の場合、方程式には実数の根がなく、「else」部分が実行され、複素数の根の方程式が表示されます。
ステップ5
次のコードを入力します。
Label1.Text = roots（0）Label2.Text = roots（1）End Sub
これらのコード行は、ラベルにルートを表示してから、Quadraticサブのコードブロックを閉じるだけです。
ステップ6
VisualBasicプログラムを保存します。 「F5」を押して実行します。
