Помогите написать программу в VBasic

Question

Составить программу, предусматривающую вывод сообщения «Утвержде 
ние верно» , если приведенное утверждение является истинным, и вывод 
сообщения «Утверждение неверно» в противном случае. 
 
Дано целое число А. Проверить, верно ли утверждение: «Число А является 
четным».

Евгений Сергеевич · Accepted Answer

Dim strOut As String 
 
If A Mod 2 = 0 Then strOut = "Correct" Else strOut = "Wrong" 
 
MsgBox strOut

Людмила Туркина · Answer

Private Sub CommandButton1_Click() 
 Dim A As Integer 
 A = InputBox("Введите число") 
 If A Mod 2 = 0 Then 
 MsgBox ("Число А является четным") 
 Else 
 MsgBox ("Число А является нечетным") 
 End If 
End Sub