Cara memprogram persamaan kuadrat dalam Visual Basic

Visual Basic dapat memecahkan persamaan kuadrat

Langkah 1

Buka program Visual Basic baru. Klik dua kali pada tombol alat untuk menambahkan Button1 ke formulir. Klik dua kali pada alat "Label" dua kali untuk menambahkan Label1 dan Label2 ke formulir.

Langkah 2

Klik dua kali pada "Button1" di formulir untuk membuka jendela kode. Tulis kode berikut: Dim a As Desimal = InputBox ("Enter A:") Dim b As Desimal = InputBox ("Enter B:") Dim c As Desimal = InputBox ("Enter C:") Kuadrat (a, b, c)

Tiga baris pertama meminta pengguna untuk nilai konstanta. Kemudian dia pergi ke sub yang disebut "Kuadrat" dan meneruskan konstanta sebagai argumen kepadanya.

Langkah 3

Ambil kursor dari sub Button1. Tuliskan kode berikut: Private Sub Quadratic (ByVal ke Desimal, ByVal b As Desimal, ByVal c As Desimal) Dim roots (1) Sebagai String Dim x1, x2, disc As Desimal disc = b ^ 2 - 4 * a * c

Baris pertama menciptakan sub Quadratic dan menerima tiga argumen. Kemudian tentukan pilihan dengan dua elemen untuk dua akar. Kemudian buat tiga variabel desimal dan tetapkan nilai diskriminan, yang menentukan jumlah akar yang memiliki persamaan kuadrat.

Langkah 4

Tuliskan kode berikut: Jika disc> = 0 Kemudian x1 = (-b + Math.Sqrt (disc)) / (2 * a) x2 = (-b - Math.Sqrt (disk)) / (2 * a) akar (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

Fungsi "jika" diatur jika nilai diskriminan lebih besar dari atau sama dengan nol, yang berarti persamaan memiliki satu atau dua akar. Lalu selesaikan x. Jika diskriminan kurang dari nol, persamaan tidak memiliki akar asli dan bagian "lain" dijalankan, menunjukkan persamaan akar yang rumit.