Заполнить два массива случайными числами, вычислить их сумму - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д