Visual Basic에서 이차 방정식을 프로그래밍하는 방법

이차 방정식은 "ax ^ 2 + bx + c = 0"형식의 2 차 다항식입니다. "a", "b"및 "c"는 상수이고 "x"는 변수입니다. 2 차 방정식을 푸는 경우 상수의 값을 가져야하고 항상 "뿌리"라는 두 값을 산출하는 x를 계산해야합니다. Visual Basic에서는 a, b 및 c 값을 입력하고 루트를 찾은 다음 폼에 값을 표시하라는 메시지를 표시하는 프로그램이나 함수를 작성할 수 있습니다.

1 단계

새 VBA 프로그램을 엽니 다. "Button"도구를 두 번 눌러 양식에 Button1을 추가하십시오. "Label"도구를 두 번 두 번 눌러 Label1과 Label2를 양식에 추가하십시오.

2 단계

폼에서 "Button1"을 두 번 클릭하여 코드 창을 엽니 다. 다음 코드를 입력하십시오.

Dim a As Decimal = 입력 상자 ( "Enter A :") Dim b As Decimal = 입력 상자 ( "Enter B :") Dim c As 십진수 = InputBox ( "Enter C :") Quadratic (a, b, c)

처음 세 줄은 사용자에게 상수 값을 묻습니다. 그런 다음 "Quadratic"이라는 하위를 호출하고 상수를 인수로 전달합니다.

3 단계

커서를 Button1 서브 바깥에 삽입하십시오. 다음 코드를 입력하십시오.

Private Sub Quadratic (십진수 ByVal a ByVal 십진수 ByVal c 십진수로) Dim roots (1) String Dim x1, x2, as 디스크 Decimal disc = b ^ 2 - 4 에이 기음

첫 번째 줄은 Quadratic 하위를 만들고 세 개의 인수를 허용합니다. 그런 다음 두 개의 루트에 대해 두 개의 항목이있는 배열을 정의합니다. 그런 다음 세 개의 십진 변수를 만들고 이차 방정식에있는 뿌리의 수를 결정하는 판별 자의 값을 할당합니다.

4 단계

다음 코드를 입력하십시오.

디스크> = 0이면 x1 = (-b + Math.Sqrt (disc)) / (2 a) x2 = (-b-Math.Sqrt (disc)) / (2 = "(-"& b.ToString & "+ Sqrt ("& disc.ToString & ")) / (2) = x1.ToString roots (1) = x2.ToString "& a.ToString &") "roots (1) ="(- "& b.ToString &"-Sqrt ( "& disc.ToString &")) / (2 "& a.ToString &") "End If

"if"함수는 discriminant의 값이 0보다 크거나 같은지 확인합니다. 즉 방정식에 하나 또는 두 개의 근이 있음을 의미합니다. 그런 다음 x를 해결합니다. 판별자가 0보다 작 으면 방정식에 실제 루트가없고 "else"부분이 실행되고 복소수 방정식이 표시됩니다.

5 단계

다음 코드를 입력하십시오.

Label1.Text = 뿌리 (0) Label2.Text = 뿌리 (1) End Sub

이 코드 줄은 단순히 레이블에 루트를 표시 한 다음 이차 서브 코드 블록을 닫습니다.

6 단계

Visual Basic 프로그램을 저장하십시오. "F5"를 눌러 실행하십시오.