с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3

Question

с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3

Answer 1

Dim Massiv(9) as integer
Dim x as integer
Dim msg as string
For x=0 to 9
Massiv(x)=InputBox("Введите число №" & x+1)
If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf
Next
MsgBox (msg)