Private Sub Command1_Click() Dim a As Integer a = val (Text1.Text - 1 ) If (option1.Value = True) Then If, (a Mod 2=0) Then Text2.Text = "Even Number" Else Text2.Text "Odd Number" End If ElseIf (Option2.Value = True) Then If (a > 0) Then Text2.Text = "Positive Number" Else Text2.Text tt = "Negative Number" End It End If End Sub

Private Sub Command1_Click() Dim a As Integer a = val (Text1.Text - 1

1.	Private Sub Command1_Click() Dim a As Integer a = val (Text1.Text - 1 ) If (option1.Value = True) Then If, (a Mod 2=0) Then Text2.Text = "Even Number" Else Text2.Text "Odd Number" End If ElseIf (Option2.Value = True) Then If (a > 0) Then Text2.Text = "Positive Number" Else Text2.Text tt = "Negative Number" End It End If End Sub
Answer» sr7isri64s6eise7o6ise7osesuisdkudssourosruoussro