Санок тизими

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(c)

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