необходимо составить код на Циклический алгоритм

[илья1992]

Циклический алгоритм. Для N введенных с клавиатуры чисел найти сумму положительных, квадратных 3м

помогите буду очень благодарен. Язык прграммы VBA

[Stilet]

Пробовал сам как-нибудь?

[Bugrimov]

Язык программирования какой используете?

[илья1992]

Сообщение от Stilet

Пробовал сам как-нибудь?

Пробовал... уже неделю не вылезаю с этого бейсика, только понял одно- я полный нуб в программировании, не помогают даже книги(

[Stilet]

Попытки в студию )
Не стесняйся, тут все свои.

[илья1992]

Сообщение от Stilet

Попытки в студию )
Не стесняйся, тут все свои.

Private Sub CommandButton1_Click()
    Dim i As Integer, sum As Long, Dig As Integer
    For i = 1 To InputBox("Введите количество чисел")
        Dig = InputBox("Введите число")
        If Dig > 0 And Dig Mod 3 = 0 Then sum = sum + Dig
    Next i
    MsgBox ("Сумма равна " & sum)
End Sub

появляется окно где необходимо ввести данные ввожу и не чего не происходит

[Stilet]

Ну-у-у... Красотень )
Поправим слегонца:

Private Sub CommandButton1_Click()
    Dim i As Integer, sum As Long, Dig As Integer
    For i = 1 To InputBox("Введите количество чисел")
        Dig = CInt(InputBox("Введите число"))
        If (Dig > 0) And (Dig Mod 3) = 0 Then sum = sum + Dig
    Next i
    MsgBox ("Сумма равна " & sum)
End Sub

[Smitt&Wesson]

Сообщение от илья1992

Циклический алгоритм. Для N введенных с клавиатуры чисел найти сумму положительных, квадратных 3м

помогите буду очень благодарен. Язык прграммы VBA

Ой мама. У меня и так крышу сносит, а тут ещё и VBA.

[илья1992]

Сообщение от Stilet

Ну-у-у... Красотень )
Поправим слегонца:

Private Sub CommandButton1_Click()
    Dim i As Integer, sum As Long, Dig As Integer
    For i = 1 To InputBox("Введите количество чисел")
        Dig = CInt(InputBox("Введите число"))
        If (Dig > 0) And (Dig Mod 3) = 0 Then sum = sum + Dig
    Next i
    MsgBox ("Сумма равна " & sum)
End Sub

Спасибо), со скрипом но заработала)