Составьте программу, определяющую является ли данное число кратным 4. 

VB.Dim x as Integerx=InputBox("Введите x:")If x mod 4 =0 then MsgBox("Число кратно 4") else MsgBox("Число  НЕ кратно 4")