Programación VBA, el usuario ingresa un año, determina el signo del zodíaco y genera la imagen correspondiente

'Definir matriz del zodíaco

Dim sx

'Elija una de las siguientes dos líneas según sus necesidades

sx = Split( "Rata, Buey, Tigre, Conejo, Dragón, Serpiente, Caballo, Oveja, Mono, Gallo, Perro, Cerdo", ",")

'sx = Split("Rata, Buey Chou, Tigre Yin , Conejo, Dragón, Serpiente, Caballo, Oveja, Mono, Gallo, Perro, Cerdo", ",")

'Ingrese el año en TextBox1,

'TextBox1 limita el número de caracteres de entrada a 4 (atributo MaxLength=4) y solo puede ingresar números (código)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer)

If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Luego KeyAscii = 0

End Sub

'Use CommandButton1 para calcular el índice del zodíaco, muestre el nombre del zodíaco en Etiqueta1 y muestre la imagen del zodíaco en Imagen1

Private Sub CommandButton1_Click()

Dim sxIndex As Integer

sxIndex = Abs(inYear - 1900) Mod 12 'Calcula el índice de nombres del zodíaco, 1900 es el número de año del Año del Rat

Label1 = sx(sxIndex) 'Mostrar el nombre del zodíaco

Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") 'Muestre la imagen del zodíaco, signo del zodíaco. Utilice un nombre de archivo como "sx0.jpg" para las imágenes. Requisitos: 1. El archivo debe guardarse; 2. La imagen del zodíaco debe colocarse en la subcarpeta "sxpic" de la carpeta donde se encuentra el archivo

End Sub