Option Explicit

Private Sub cmdRK_click()

Dim x As Byte
Dim a, b, c, d, x1, x2 As Single

x = MsgBox("Podaj wspo³czynniki równania a, b ,c", vbInformation, "wprowadzenie danych")

a = InputBox("Podaj wspó³czynnik a")
b = InputBox("Podaj wspó³czynnik b")
c = InputBox("Podaj wspó³czynnik c")

d = b ^ 2 - 4 * a * c

 If d >= 0 Then
 
    x1 = (-b - Sqr(d)) /( 2 * a)
    MsgBox ("x1=" + Str(x1))
    
    x2 = (-b + Sqr(d)) / (2 * a)
    MsgBox ("x2=" + Str(x2))
 
  Else
    
     MsgBox ("brak pierwiastków ")
  
 End If

END

End Sub