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

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

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

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Sub example_02()
Dim Dbl_Array(1 To n, 1 To m) As Single
Dim i As Integer, j As Integer
For i = 1 To n
For j = 1 To m
Dbl_Array(i, j) = InputBox("Ввод целого числа для " & " элемента(&i&, &j&)", "Ввод элементов массива для строки" & i)
Next j
Next i
L(i) = Rnd
mes = mes & "" & L(i)
Dim s As Single
s = 0
s = s + L(i)
End Sub

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы