Главная /
Старшие классы /
Информатика и ИКТ
Автор: Ташходжаев Султанмурат Акмалович
Прогрессия
Скачать
5.14 КБ, 1432009.rar Автор: Ташходжаев Султанмурат Акмалович, 16 Фев 2016
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
n = Val(Text3)
d = b - a
s = 0
i = a
While i <= n
s = s + i
i = i + d
Wend
Text4 = s
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
n = Val(Text3)
d = b - a
s = 1
i = a
While i <= n
s = s * i
i = i + d
Wend
Text4 = s
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Автор: Ташходжаев Султанмурат Акмалович
Похожие материалы