Арифметик прогрессияны есептеу - Информатика - Ұстаздарға көмек - Скачать Рефераты, слайды, тесты - Қазақстандық оқушыларға тегін рефераттар сайты
MENU
Главная » Файлы » Ұстаздарға көмек » Информатика

Арифметик прогрессияны есептеу
[ Скачать с сервера (64.2Kb) ] 21.12.2015, 14:30
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
Категория: Информатика | Добавил: sultantashhodjaev | Теги: Арифметик, прогрессияны, ЕСЕПТЕУ
Просмотров: 330 | Загрузок: 85 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar