1. Форманы жасаймыз:
2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command1_Click()
a1 = Val(Text1)
d = Val(Text2)
n = Val(Text3)
an = a1 + (n - 1) * d
s = n * (a1 + an) / 2
Text5 = s
Text4 = an
End Sub
3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub
4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command3_Click()
End
End Sub