Заполнить два массива случайными числами, вычислить их сумму - 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