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

Dim sx

Seleccione una de las dos líneas siguientes para usarla según sea necesario.

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

Sx = Split("Zishu, Chou Niu, Silver Tiger, Mao Rabbit, Chen Long, Sishe, Wuma, Weiyang, God Queen, Youyouji, Red Dog, Haizhu",",")

In Introduzca el año en cuadro de texto 1.

TextBox1 limita el número de palabras a 4 (propiedad MaxLength=4) y solo se pueden ingresar números (códigos).

Sub cuadro de texto privado 1 _ KeyPress(ByVal KeyAscii como entero)

Si KeyAscii ltvbKey0 o KeyAscii gtvbKey9 entonces KeyAscii = 0

Conector final

Utilice 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.

Botón de subcomando privado 1_Click()

Dim sxIndex es un número entero

sx index = ABS(en el año 1900)mod 12 'Calcular el índice de nombre de el signo del zodíaco, 1900 es el número de años del Año de la Rata.

Label1 = sx(sxIndex)' muestra el nombre de la carta del zodíaco.

Imagen1. imagen = cargar imagen (libro de trabajo activo. Ruta y ruta. " \ sxpic \ sx " ampsxIndex amp".jpg))' muestra la imagen del zodíaco, usando un nombre de archivo similar a "sx0.jpg". Requisitos: 1. El archivo debe tiene Guardar; 2. Debe colocar la imagen del zodíaco en la subcarpeta "sxpic" de la carpeta donde se encuentra el archivo

Conector final