Código
Sub Test() Dim iNumero As Integer iNumero = 4 Select Case iNumero Case 1, 5, 8, 9 MsgBox "El número es valido: " + Str(iNumero) Case Else MsgBox "El número no es Valido" End Select End Sub
Saludos
|
|||
|
Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET |
|
|