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

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

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

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

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.250 из 5


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