Среди всех натуральных четырехзначных чисел
подсчитать количество таких,
сумма квадратов цифр которых
кратна двум или трем.
Ответ записать целым числом.

У меня получилось 6216

Dim i As Integer 
Dim s As Integer
Dim d As Integer

For i = 1000 To 9999       
     s = CInt((CInt(Mid(CStr(i), 1, 1))) ^ 2 + (CInt(Mid(CStr(i), 2, 1))) ^ 2 + (CInt(Mid(CStr(i), 3, 1))) ^ 2 + (CInt(Mid(CStr(i), 4, 1))) ^ 2)     
      If s Mod 2 = 0 Or s Mod 3 = 0 Then d += 1      
  Next
        MsgBox(d)

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.