Red de conocimiento informático - Problemas con los teléfonos móviles - 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

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