Создать массив согласно условию - VBA

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

Создать массив, на четных местах в которых стоят единицы, а на нечетных местах - числа, равные остатку от деления своего номера на 5. Често скажу ,сам вообще не пойму как решить,в техе препод ни какого материала не предоставляет для того что бы решать, сам еще чайник.Ищу подмоги тут,буду благодарен!

Решение задачи: «Создать массив согласно условию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub massiv()
 
Dim arr(10) As Integer
Dim i As Integer
 
For i = 0 To UBound(arr)
    If i Mod 2 = 0 Then
        arr(i) = 1
      Else
        arr(i) = i Mod 5
    End If
Next
 
End Sub

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы