Матричные операции - VB (170579)

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

Помогите пожалуйста написать программу к третьему заданию. Утром сдавать отчёт, а я вообще ничего не понимаю

Код к задаче: «Матричные операции - VB (170579)»

textual
Function Desc3A(ByVal n)
Dim A, i
i = 2
    Do While n - i > 3
        i = i + 3
    Loop
    n = i
ReDim A(n)
    For i = n To 2 Step -3
        A(i) = i
        s = s & Format(A(i)) & ","
    Next i
MsgBox "Каждые третий элемент матрицы А" _
            & vbNewLine & _
        "по убыванию начиная со второго:" _
            & vbNewLine & vbNewLine & _
        Left(s, Len(s) - 1), vbInformation, "В итоге"
End Function

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


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