1. Форманы жасаймыз:

2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = b * b - 4 * a * c

Text4 = d

If d > 0 Then

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Text5 = X1

Text6 = X2

Else

Text5 = "Жауабы жоқ"

Text6 = " Жауабы жоқ "

End If

End Sub

3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command3_Click()

End

End Sub

1. Форманы жасаймыз:

2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = b * b - 4 * a * c

Text4 = d

If d > 0 Then

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Text5 = X1

Text6 = X2

Else

Text5 = "Жауабы жоқ"

Text6 = " Жауабы жоқ "

End If

End Sub

3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command3_Click()

End

End Sub