Помогите решить задачку в visual basic

[saleens7]

Люди, помогите пожалуйста зделать задачку в exele в Visual basic? Я полный ноль в программировании и поэтому незнаю даже эллементорного! Срочно нужно здать зачет а я немагу зделать! так вот задание: "Вычислить сумму квадратов тех четырехзначных чисел, которые при делении на 5 дают в остатке 2" Помогите плиз! буду очень благодарен!

[EducatedFool]

Sub SumOfNumbers()
    Dim sum As Double, i As Long
    sum = 0
    For i = 1000 To 9999
        If i Mod 5 = 2 Then sum = sum + i * i
    Next i
    MsgBox "Сумма квадратов чисел равна  " & sum
End Sub

Или, что по сути то же самое:

Sub SumOfNumbers2()
    Dim sum As Double, i As Long
    sum = 0
    For i = 1002 To 9999 Step 5: sum = sum + i * i:    Next i
    MsgBox "Сумма квадратов чисел равна  " & sum
End Sub

[saleens7]

Спасибо за помощь! Но то что вы зделали это не совсем то... Как бы после того как вы зделали код,мы переходим в exel и через мастер функции задаём 3 ячейки,первые 2 ячейки это куда вводим числа! 3 -это вывод результата. при вводе чисел в 2 ячейки ,должно вывести результат в 3... если выполняется условие то должен вывести ответ, если же это число не даёт в остатке 2 при делении на 5 то вывести -ошибка.Переделайте пожалуйста плиз! очень прошу...

[EducatedFool]

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

Люди, помогите пожалуйста зделать задачку в exele в Visual basic?

Для Вас существует специальный раздел на форуме

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

Я полный ноль в программировании и поэтому незнаю даже эллементорного! Срочно нужно здать зачет а я немагу зделать!

Учиться, учиться и ещё раз учиться (как завещал дедушка Ленин)
Вам в том числе и русский язык подучить не помешает.