이차 방정식은 "ax^2 + bx + c = 0" 형식을 갖는 2차 다항식입니다. "a", "b" 및 "c"는 상수이고 "x"는 변수입니다. 이차 방정식을 풀 때 상수 값이 있어야 하고 x에 대해 풀어야 하며, 이는 항상 "근"이라고 하는 두 개의 값을 산출합니다. 에 Visual Basic에서는 사용자에게 a, b 및 c 값을 입력하고 근을 찾은 다음 값을 표시하는 프로그램이나 함수를 작성할 수 있습니다. 형태.
1 단계
새 Visual Basic 프로그램을 엽니다. "Button" 도구를 두 번 클릭하여 Button1을 폼에 추가합니다. 양식에 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)
처음 세 줄은 사용자에게 상수 값을 묻는 메시지를 표시합니다. 그런 다음 "Quadratic"이라는 하위를 호출하고 상수를 인수로 전달합니다.
3단계
Button1 하위 외부에 커서를 삽입합니다. 다음 코드를 입력합니다.
Private Sub Quadratic (ByVal a As Decimal, ByVal b As As Decimal, ByVal c As Decimal) Dim root (1) As String Dim x1, x2, disk As Decimal disk = b ^ 2 - 4 * a * c
첫 번째 줄은 Quadratic 하위를 만들고 세 개의 인수를 허용합니다. 그런 다음 두 개의 루트에 대해 두 개의 항목이 있는 배열을 정의합니다. 그런 다음 세 개의 소수 변수를 만들고 이차 방정식의 근 수를 결정하는 판별식의 값을 할당합니다.
4단계
다음 코드를 입력합니다.
디스크 >= 0이면 x1 = (-b + Math. Sqrt(디스크)) / (2 * a) x2 = (-b - 수학. Sqrt(디스크)) / (2 * a) 루트(0) = x1.ToString 루트(1) = x2.ToString Else 루트(0) = "(-" & b. ToString & "+Sqrt(" & 디스크. ToString & "))/(2_" & a. ToString & ")" 루트(1) = "(-" & b. ToString & "-Sqrt(" & 디스크. ToString & "))/(2_" & a. ToString & ")" 종료
"if" 함수는 판별식의 값이 0보다 크거나 같은지 확인합니다. 이는 방정식에 하나 또는 두 개의 근이 있음을 의미합니다. 그런 다음 x에 대해 풉니다. 판별식이 0보다 작으면 방정식에 실수근이 없고 "else" 부분이 실행되어 복소근 방정식을 표시합니다.
5단계
다음 코드를 입력합니다.
Label1.Text = 루트(0) Label2.Text = 루트(1) End Sub
이 코드 줄은 레이블에 루트를 표시한 다음 Quadratic 하위의 코드 블록을 닫습니다.
6단계
Visual Basic 프로그램을 저장하십시오. "F5"를 눌러 실행하십시오.