mencari akar aka pada persamaan kuadrat dengan Visual Bsic

berikut adalah langkah langkah untuk menghitung akar akar pada persamaan kuadrat menggunakan visual editor
1. buat userform menggunakan m.excel dengan langkah sebperti sebelumnya.
2. tambahkan nilai a b dan c seperti pada gambar dibawah ini

 3.tulis program pada commandbutton. programnya sebagai berikut :

Private Sub CommandButton1_Click()

Dim a, b, c, D, r1, r2 As Double
' baca input

a = Texta.Text
b = Textb.Text
c = Textc.Text

' hitung determinant
D = (b * b) - (4 * a * c)

'untuk akar imaginer
If D < 0 Then
MsgBox " Akar - akarnya imaginer !"

Else
' kedua akar real
r1 = (-b + Sqr(D)) / (2 * a)
r2 = (-b - Sqr(D)) / (2 * a)

Label3.Caption = r1
Label4.Caption = r2



End If

End Sub
4. tekan f5 untuk runing program. hasil programnya sebagai berikut :