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

@Kreator · Регистрация: 29.06.2017

Author24 — интернет-сервис помощи студентам

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

С вводом вроде нормально, а посчитать не получается. Подскажите что нужно писать в cmdsumm

Visual Basic

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

@БурундукЪ · 24.12.2009, 18:55

Visual Basic

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

	24.12.2009, 18:55