Ficha5-2

Private Sub cmd1_Click()
resultado.Caption = Val(oper1.Text) Mod 3

If resultado.Caption = 0 Then
resultado.Caption = "É multiplo de 3"
Else
resultado.Caption = "Não é multiplo de 3"

End If
End Sub

Private Sub cmd2_Click()
resultado.Caption = Val(oper1.Text) Mod 5

If resultado.Caption = 0 Then
resultado.Caption = "É multiplo de 5"
Else
resultado.Caption = "Não é multiplo de 5"
End If

End Sub

Private Sub cmd3_Click()

resultado.Caption = (Val(oper1.Text) Mod 3) + (Val(oper1.Text) Mod 5) / 2


If resultado.Caption = 0 Then
resultado.Caption = "É multiplo de 3 e 5"
Else
resultado.Caption = "Não é multiplo de 3 e 5"
End If

End Sub
Private Sub cmd4_Click()
End
End Sub