Матричные операции - 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.6 из 5

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