Page 139 - 4192

Програмний код:
Private Sub Command1_Click()
Dim R(1 To 15) As Integer
For i = 1 To 15
If i Mod 2 = 0 Then
R(i) = 1
Else
R(i) = 0
End If
Picture1.Print R(i); " ";
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

КОНТРОЛЬНІ ЗАПИТАННЯ
1. Способи введення елементів одновимірного масиву?
2. Чому при введенні масиву краще використовувати
функцію INPUTBOX? А не текстове вікно TEXTBOX?
3. Куди можна виводити елементи одновимірних
масивів?
4. Як вивести елементи одновимірного масиву у
стовпчик?
5. Як вивести елементи одновимірного масиву у рядок?

138