Найти сумму тех элементов, которые кратны данному значению K. - VB
Формулировка задачи:
Помогите решить на языке Visual Basic!!! Плиз!!!! Очень нужно!!!В массив A(n) занесены натуральные числа. Найти сумму тех элементов, которые кратны данному значению K.
Решение задачи: «Найти сумму тех элементов, которые кратны данному значению K.»
textual
Листинг программы
Private Sub CommandButton1_Click()
Dim A() As Integer
Dim n, k, i As Integer
Dim sum As Long
n = Val(InputBox("Введите размерность массива:")) 'а вдруг не число засунут
k = Val(InputBox("Введите число K:")) 'а вдруг не число засунут
ReDim A(n) ' переопределяем массив
sum=0
For i = 1 To n
A(i) = Val(InputBox("Введите елемент А(" & i & ")")) ' Заполняем массив
If A(i) Mod k = 0 Then 'Если остаток от деления равен 0
sum = sum + A(i)
End If
Next i
MsgBox "Сумма элементов, кратных числу " & k & " =" & sum
End Sub