Сумма элементов одномерного массива - VB

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

Помогите плиз с такой задачей для чайника (Visual Basic). Нужно ввести числа в два одномерных массива (одна кнопка) и посчитать их (другой кнопкой). С вводом вроде нормально, а посчитать не получается. Подскажите что нужно писать в cmdsumm

Dim i As Single, j As Single, s As Single, a(18) As Single, b(18) As Single
Const n = 18
 
Private Sub cmdvvod_Click()
 
'Ввод массива А
For i = 1 To n
a(i) = Val(InputBox("Введите" + Str(i) + "число массива A"))
txtA.Text = txtA.Text + " " + Str(a(i))
Next i
 
'Ввод массива B
For j = 1 To n
b(j) = Val(InputBox("Введите" + Str(j) + "число массива B"))
txtB.Text = txtB.Text + " " + Str(b(j))
Next j
End Sub
 
Private Sub cmdsumm_Click()

End Sub

Решение задачи: «Сумма элементов одномерного массива»

textual
                            Листинг программы 
                        

                            Private Sub cmdsumm_Click()
sum1=0
sum2=0
For j = 1 To n
sum1=sum1+b(j)
sum2=sum2+a(j)
Next j
msgbox s1
msgbox s2
End Sub
                        

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

15 голосов , оценка 3.933 из 5

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