Вычисление суммы VBA

@karida · Регистрация: 28.02.2013

Студворк — интернет-сервис помощи студентам

Даны значения n и m( ввести через окно ввода) Вычислить:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?B=\sum_{k=1}^{n}\sum_{j=1}^{m}\left(k + j \right)$
Результаты поместить в ячейки рабочего листа.

Комментарий модератора

karida, читаем правила
и
учимся!

@Казанский · 28.02.2013, 20:35

Visual Basic

Sub zz()
Dim n&, m&
n = InputBox("n=", , 3)
m = InputBox("m=", , 5)
[A1:B3] = Application.Transpose(Array(Split("n= m= B="), Array(n, m, m * n * (1 + (n + m) / 2))))
End Sub

@Sasha_Smirnov · 28.02.2013, 20:54

То же самое с отчётом по каждому значению k и j (как болванка для "заточки" под вкус пользователей):

Visual Basic

Option Explicit
Option Base 1
 
Sub TripTrap()
Dim k, j, n, m, B
Cells.Clear 'очистка ячеек
 
n = 3 'окном ввода считаем окно... кода
m = 5 '(тем паче что ввод описан выше, у Казанского)
 
    For k = 1 To n              'номера строк
        For j = 1 To m          'номера столбцов
            B = B + k + j '- 2      '(k + j)-я сумма плюсуется к B
            Cells(k, j) = k & "+" & j & "=" & k + j
        Next
    Next
 
    Cells(k, 1) = "B = " & B    'вывод результата в следующей строке
End Sub

Опции темы