| Главная » Файлы » Ұстаздарға көмек » Информатика |
Визуал бейсикде отчет есептеу
| [ Скачать с сервера (121.4 Kb) ] | 20.12.2015, 20:21 |
| 1. Форманы жасаймыз: 2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d = Val(Text4) x = 100 / (a + b + c + d) * (a + b + c) y = 100 / (a + b + c + d) * (a + b) z = (5 * a + 4 * b + 3 * c + 2 * d) / (a + b + c + d) Text5 = Mid(x, 1, 5) Text6 = Mid(y, 1, 5) Text7 = Mid(z, 1, 4) End Sub 3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" End Sub 4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command3_Click() End End Sub | |
| Просмотров: 746 | Загрузок: 278 | | |
| Всего комментариев: 0 | |