Заполнить два массива случайными числами, вычислить их сумму - VB

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

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

Заполнить два массива случайными числами, вычислить их сумму.

Решение задачи: «Заполнить два массива случайными числами, вычислить их сумму»

textual
Листинг программы
Sub main()
Dim A() As Single, b() As Single, sum As Single, i As Integer
Dim n As Integer, m As Integer
n = InputBox("Размерность 1 массива")
m = InputBox("Размерность 2 массива")
ReDim A(1 To n)
ReDim b(1 To m)
For i = 1 To n
A(i) = InputBox("Введите элемент " & i & " первого массива"): Cells(i, 1) = A(i)
sum = sum + A(i)
Next i
For i = 1 To m
b(i) = InputBox("Введите элемент " & i & " второго массива"): Cells(i, 2) = b(i)
sum = sum + b(i)
Next i
MsgBox sum
End Sub

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


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

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

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