VB determina el signo del zodíaco

¿Dim?a(1?To?12)?As?String

Privado?Sub?Command1_Click()

n?=?Combo1.Text

Si?n?<=?0?Entonces?MsgBox?"¡Ingrese un número mayor que 0!" :?Salir?Sub

Si?n?

n?=?n?+?12

Fin?Si

Si?n?>=?12?Entonces

r?=?n?Mod?12

Seleccionar?Caso?r

Caso?Rata"

Caso?5:?Vaca"

Caso?6:?sx?=??"Tigre"

Caso?7:?sx?=?"Conejo"

Caso?8:?sx?= ?"Dragón"

Caso 9: ?sx?=?"Serpiente"

Caso 10: ?sx?=?"Caballo"

Caso ?11 :?sx?=?"Oveja"

Caso?0:?sx?=?"Mono"

Caso?1:?sx?=?"Pollo"

Caso?2:?sx?=?"perro"

Caso?3:?sx?=?"cerdo"

Fin?Seleccionar

Fin?Si

Label1.Caption?=?sx

Fin?Sub

Privado?Sub?Form_Load()

Label1.Caption?

Label1.FontSize?=?30

Label1.ForeColor?=?vbBlue

¿Fin?