Программирование на алгоритмическом языке - VB

Узнай цену своей работы

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

Спасите, помогите! В первые с Visual basic сталкиваюсь! Необходимо подготовить вычисление и вывод на печать результатов решения задачи. Составить алгоритм и программу для вычисления и вывода на печать в общепринятом виде элементов матрицы Zij. После вычисления элементов матрицы определить сумму значений элементов, больший единицы, в главной диагонали этой матрицы. В работе должны быть представлены: - программный код (текст программы) - результаты основных операторов, используемых в программе. Заранее благодарю!

Решение задачи: «Программирование на алгоритмическом языке»

textual
Листинг программы
Sub matrix()
        Dim MyMatrix(3, 3) As Integer
        Dim CalcValue, value As Integer
        Dim i, j As Integer
        For i = 0 To 3
            For j = 0 To 3
                MyMatrix(i, j) = Rnd() * 10 - 10
            Next
        Next
 
        
        For i = 0 To 3
            For j = 0 To 3
                value = MyMatrix(i, j)
                If (value > 1 And i = j) Then
                    CalcValue = CalcValue + MyMatrix(i, j)
                End If
            Next
        Next
End Sub

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

8   голосов , оценка 4.25 из 5
Похожие ответы