Question

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 1

Answer:

sr7isri64s6eise7o6ise7osesuisdkudssourosruoussro

Answer 2

Answer:

Hi Can we be friends please