Определить сумму элементов одномерного массива - VB
Формулировка задачи:
здравствуйте
нужна помощь: решить 2 задачи в VB
1) дан одномерный массив чисел. Определить сумму его элементов
2) найти сумму элементов каждой строки
имеются коды к этим задачам
1)
2)
Решение задачи: «Определить сумму элементов одномерного массива»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Integer, summ() Dim n As Integer, i As Integer, j As Integer Randomize Cls n = InputBox("vvedite razmer massiva ", , 3) ReDim A(1 To n, 1 To n), summ(1 To n) For i = 1 To n For j = 1 To n A(i, j) = Rnd * (20) Print vbTab; A(i, j); Next j Print Next i Print For i = 1 To n For j = 1 To n summ(i) = summ(i) + A(i, j) Next j Print i & " summa = " & summ(i) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д