¿Cómo calcular el signo del zodíaco en VB?

Agregue un botón y un cuadro de texto para ingresar el año.

Subiendo las escaleras: Aunque el calendario lunar y el calendario solar son muy diferentes, definitivamente corresponden a un año. Hay muy pocos días en el año lunar, por lo que el sistema de años bisiestos se estableció para evitar que el año lunar fuera más lento que el año del calendario gregoriano.

Establecer sonido Xiao (12) como una cadena

Subcomando privado 1_Click()

Cls

Imprimir sonido Xiao (Val (Texto1 .Text)Modelo 12)

Conector final

Subform_Load() privado

(0) = "vaca"

Xiao Sheng( 1) = "rata"

Xiao Sheng(2) = "cerdo"

Xiao Sheng(3) = "perro"

Xiao Sheng(4) = "Pollo"

Xiao Sheng(5) = "Mono"

Xiao Sheng(6) = "Oveja"

( 7) = "Caballo"

Xiao Sheng(8) ="Serpiente"

Xiao Sheng(9) ="Dragón"

Xiao Sheng(10) = "Conejo"

Xiao Sheng(11) = "Tigre"

Conector final