Вычислить сумму элементов массива, сумма индексов которых равна 4 - VB

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

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

В двумерном массиве произвольных чисел C(4,4) вычислить сумму элементов, сумма индексов которых равна 4. Ввод элементов массива осуществить с клавиатуры. Исходный и результирующий массив распечатать на форме.

Решение задачи: «Вычислить сумму элементов массива, сумма индексов которых равна 4»

textual
Листинг программы
Option Explicit
Dim i As Integer, j As Integer, sum As Integer
Dim A(1 To 4, 1 To 4) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 4
 For j = 1 To 4
   A(i, j) = InputBox("Введите A(" + Str(i) + "," + Str(j) + ")", , Int(100 * Rnd))
   If i + j = 4 Then sum = sum + A(i, j)
   Print A(i, j); vbTab;
 Next
 Print
Next
Print "Сумма ="; sum
Command1.Enabled = False
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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