Помогите написать текст программы в Visual Basic.ПОЖАЛУЙСТА!!!! Написать программу, которая выводит на экран Да или Нет

Question

Написать программу, которая выводит на экран Да или Нет, в зависимости от того, является ли сумма цифр данного 3-х значного числа N четной 
или скажите как четность хотя бы показать????

Гуис · Accepted Answer

Module Module1 
 Sub Main() 
 Dim N, Sum, Result As Integer 
 Sum = 0 
 Console.Write("Введите трёхзначное число: ") 
 N = Console.ReadLine() 
 Do While N <> 0 
 Sum += N Mod 10 
 N /= 10 
 Loop 
 Result = Sum Mod 2 
 If Result = 0 Then 
 Console.WriteLine("Да") 
 Else 
 Console.WriteLine("Нет") 
 End If 
 Console.Read() 
 End Sub 
End Module