В одномерном массиве найти число кратное 7, если таковы есть, вывести на экран.

решение на VBA:
Sub zad1()
Dim a(10) As Integer
Dim otvet As String
otvet = "Massiv: "
Randomize
For i = 0 To 10
    a(i) = Fix(Rnd * 1000)
    otvet = otvet + "[" + CStr(a(i)) + "] "
Next i
otvet = otvet + vbCrLf + "kratno 7: "
For i = 0 To 10
    If a(i) Mod 7 = 0 Then otvet = otvet + "[" + CStr(a(i)) + "] "
Next i
MsgBox (otvet)
End Sub

Результат: