Visual Basic で二次方程式をプログラムする方法

二次方程式は、「ax^2 + bx + c =0」という形式の 2 次多項式です。 「a」、「b」、「c」は定数で、「x」は変数です。二次方程式を解くときは、定数の値を取得して x を解く必要があります。これにより、常に「根」と呼ばれる 2 つの値が得られます。 Visual Basic では、ユーザーに a、b、c の値を入力し、ルートを見つけて、値をフォームに表示するように求めるプログラムまたは関数を作成できます。

ステップ 1

新しい Visual Basic プログラムを開きます。 「ボタン」ツールをダブルクリックして、フォームに 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:") Quadratic(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, disk As Decimal ディスク =b ^ 2 - 4 * a * c

最初の行は Quadratic サブルーチンを作成し、3 つの引数を受け入れます。次に、2 つのルートに対して 2 つの項目を持つ配列を定義します。次に、3 つの 10 進変数を作成し、2 次方程式の根の数を決定する判別式の値を割り当てます。

ステップ 4

次のコードを入力してください:

ディスクの場合>=0 の場合 x1 =(-b + Math.Sqrt(ディスク)) / (2 * a) x2 =(-b - Math.Sqrt(ディスク)) / (2 * a) roots(0) =x1 .ToString roots(1) =x2.ToString Else roots(0) ="(-" &b.ToString &"+Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" roots(1) ="(-" &b.ToString &"-Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" End If

「if」関数は、判別式の値が 0 以上かどうかを確認します。これは、方程式に 1 つまたは 2 つの根があることを意味します。次に x を解きます。判別式が 0 より小さい場合、方程式には実根がなく、"else" 部分が実行され、複素根方程式が表示されます。

ステップ 5

次のコードを入力してください:

Label1.Text =roots(0) Label2.Text =roots(1) End Sub

これらのコード行は、単純にラベルにルートを表示してから、Quadratic サブルーチンのコード ブロックを閉じます。

ステップ 6

Visual Basic プログラムを保存します。 「F5」を押して実行してください。