Главная » Файлы » Ұстаздарға көмек » Информатика

---

[ Скачать с сервера (35.2 Kb) ]	22.12.2015, 20:19
1. Форманы жасаймыз: 2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command1_Click() a = Val(Text1) c = Oct(Text1) d = Hex(Text1) Text3 = c Text4 = d For i = 1 To Len© k = Mid(c, i, 1) If k = 0 Then Text2 = Text2.Text + "000" Else If k = 1 Then Text2 = Text2.Text + "001" Else If k = 2 Then Text2 = Text2.Text + "010" Else If k = 3 Then Text2 = Text2.Text + "011" Else If k = 4 Then Text2 = Text2.Text + "100" Else If k = 5 Then Text2 = Text2.Text + "101" Else If k = 6 Then Text2 = Text2.Text + "110" Else If k = 7 Then Text2 = Text2.Text + "111" End If End If End If End If End If End If End If End If Next End Sub 3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" End Sub 4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз: Private Sub Command3_Click() End End Sub http://www.referati.kz/load/ustazdarga/informatika/vizual_bejsikde_sanak_tizimi/120-1-0-4207
1 2 3 4 5 Категория: Информатика | Добавил: tashxodjaev2 | Теги: бейсикте, Визуал, Санак, тізімі
Просмотров: 838 | Загрузок: 317 | Рейтинг: 0.0/0

Всего комментариев: 0