Ввод количества чисел, ввод самих чисел с MsgBox и нахождение их суммы - VBA/Excel
Формулировка задачи:
Задача в Excel vba
Решение задачи: «Ввод количества чисел, ввод самих чисел с MsgBox и нахождение их суммы»
textual
Листинг программы
Sub asdas()
Dim A()
Dim kol As Integer
r:
kol = InputBox("Задайте количество чисел", Title)
If kol = 0 Then GoTo r 'если введен 0 повторяем запрос
l = 1
ReDim A(1 To kol, 1 To l) 'задаем размерность массива исходя из количества чисел
'цикл заполнения массива числами и суммирования
s = 0
For i = 1 To kol
A(i, 1) = InputBox("Введите число " & i, Title)
s = s + A(i, 1)
Next
MsgBox "Сумма всех чисел = " & s
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д