Сумма элементов одномерного массива - 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

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

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

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