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
Texto) Mod 12
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