código vb, seleccione el año y luego aparecerán los signos del zodíaco y las imágenes de animales correspondientes. Calcular los signos del zodíaco

Seleccione Caso intSX

Caso 0

strSX = "Mono"<

Caso 1

strSX = "Pollo"

Caso 2

strSX = "Perro"

Caso 3

strSX = "Cerdo"

Caso 4

strSX = "Rata"

Caso 5

strSX = "Vaca"

Caso 6

strSX = "Tigre"

Caso 7

strSX = "Conejo"

Caso 8

strSX = "Dragón"

Caso 9

strSX = "Serpiente"

Caso Imprimir strSX amp "Año"

'Mostrar el imagen en el cuadro de imagen de la derecha para mostrar la imagen. Antes de esto, debe colocar la imagen del zodíaco preparada con el nombre del zodíaco (como "Monkey.jpg") en la carpeta donde se encuentra la aplicación.

Imagen1.Picture = LoadPicture(App.Path y "\" y strSX y ".jpg")

End Sub

Subcombo privado1_Change ()

Si Len(Combo1.AddItem (i)

Siguiente

Combo1.Text = Año(Ahora)

End Sub