Работа с массивом - VB

Формулировка задачи:

День добрый , подскажите пожалуйста , правильно ли я составил массив и присвоил ему значение, для проверки массив вывожу на Debug.Print , он выводится , но не уверен что я сделал это правильно, код прилагаю:
'******************************************************************
'------------------Объявление переменных---------------------------
Dim A As Byte, B As Byte, C As Byte  ' Переменные для инкремента
Dim Massiv(0 To 2) As Integer ' Переменная для массива
Dim I As Integer, J As Integer, L As Integer ' Переменные для цикла
 
'******************************************************************
'------------------Объявление кнопки №1----------------------------
Private Sub Command1_Click()
Do 'Делать
      A = A + 1 ' Инкремент переменной "A"
Loop While N >= 255 'До тех пор пока выполнится условие
Text1.Text = A ' Выводим на табло значение переменной
For I = 0 To 2: Massiv(I) = I: Next
Massiv(0) = A 'Присваиваем массиву(0) значение "A"
Debug.Print Massiv(0) ' Выводим значение массива(0)

Код к задаче: «Работа с массивом - VB»

textual
Loop While N >= 255 'До тех пор пока выполнится условие

13   голосов, оценка 4.077 из 5


СОХРАНИТЬ ССЫЛКУ