составить программу в вижуал бэйсик:
1) среди всех трехзначных положительных чисел выбрать и вывести на экран только кратные трем и подсчитать их количество.
2)найти произведение К членов последовательности: -1,3,7....

1. Строка получается слишком длиной, поэтому разбиваем ее на две частиSub Z1()Dim n As IntegerDim i As IntegerDim s1 As StringDim s2 As StringFor i = 100 To 999  If i Mod 3 = 0 Then    n = n + 1    If Len(s1) < 1024 Then        s1 = s1 & i & " "        Else            s2 = s2 & i & " "        End If    End IfNext iMsgBox (s1)If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)MsgBox ("Их количетво: " & n)End Sub1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событиюPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim n As IntegerDim i As IntegerFor i = 100 To 999  If i Mod 3 = 0 Then    n = n + 1    Cells(n, 1) = i    End IfNext iMsgBox ("Их количество: " & n)End Sub2.Sub z2()Dim k As IntegerDim p As Doublek = InputBox("Введите k:")p = 1For i = 1 To k    p = p * (-1 + 4 * (i - 1))Next iMsgBox ("Произведение: " & p)End Sub