Главная » Файлы » Ұстаздарға көмек » Информатика
Визуал бейсикте арифметик прогрессия шешу программасы
[ Скачать с сервера (64.2 Kb) ] 22.12.2015, 20:25
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
Категория: Информатика | Добавил: tashxodjaev2 | Теги: бейсикте, Визуал, программасы, прогрессия, Арифметик, шешу
Просмотров: 825 | Загрузок: 300 | Рейтинг: 0.0/0
Всего комментариев: 0
ComForm">
Войдите:
avatar