Сумма столбцов в таблице умножения - VBA

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

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

Есть код, который выводит таблицу умножения, дали задание, чтобы под каждым столбцом посчитали его сумму, код у меня может и примитивный, но подскажите куда вписать код суммы, я уже всю голову сломал, или можно сделать ещё 1 циклом?

Решение задачи: «Сумма столбцов в таблице умножения»

textual
Листинг программы
Sub Form_Load()
 
Dim i As Integer, S#
Dim j%, k As Integer
Dim N As Variant
Dim A(1 To 99, 1 To 99) As Integer
 
Do
If N <> "" Then MsgBox "error"
N = InputBox("Введите положительное число", "ВВОД ДАННЫХ")
Loop While IsNumeric(N) = False Or N <= 0
 
k = N
Range(Cells(2, 1), Cells(99, 99)).ClearContents
 
For i = 1 To k
  For j = 1 To k
    A(j, i) = i * j
    S = S + A(j, i)
  Next j
A(j, i) = S: S = 0
Next i
 
Range(Cells(2, 1), Cells(2 + k, k)) = A
 
End Sub

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


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

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

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