Помогите составить программу в VBA, условие следующее:
Определить делится ли число нацело на 3, если да то вывести сообщение, что число делится на 3, если нет то вывести остаток от деления на 3.
Заранее спасибо

1

Ответы и объяснения

  • Участник Знаний
2014-04-12T13:21:01+04:00
Sub Z()
Dim n, ost As Integer
n = InputBox("Введите число:")
ost = n Mod 3
If ost = 0 Then MsgBox ("Делится на 3") Else: MsgBox ("Остаток " & ost)
End Sub