Utilice vb para escribir código de programa que coincida con constelaciones
En lo que respecta al desarrollo actual, debido al aumento sustancial de la velocidad de la computadora y el espacio de almacenamiento, la legibilidad y la estructura de los programas (algoritmos) son requisitos principales.
Una vez dije que usar una línea de código para resolver un problema o usar 1000 líneas de código (el ejemplo es extremo) no tendrá ningún impacto en los sentimientos de las personas cuando la computadora esté funcionando.
Existen múltiples soluciones a tu problema. Por supuesto, se utilizarán matrices y declaraciones If complejas.
Estoy usando un método ahora. ¿Podrías ver si es simple?
Agrega dos cuadros combinados Combo1 y Combo2, un botón y un cuadro de texto Texto1 al formulario:
El código es el siguiente:
¿Opción? Explícito
¿Privado? ¿XZ? ¿Como? Línea
¿Privada? ¿Sub? Command1_Click()
¿Atenuar? ¿metro? ¿Como? Línea
¿Oscura? ¿d? ¿Como? Línea
¿Oscura? d1? ¿Como? Fecha
¿Oscuro? d2? ¿Como? Fecha
¿Oscuro? ¿yo? ¿Como? Entero
m? =?Combo1. texto
d? =? Combinación 2. texto
l? =?instrumento(XZ,m)
Si? ¿d? lt=?Mid(XZ,?l??3,?3)?Entonces
Texto1. ¿Palabra? =?¿Cuál es tu signo del zodíaco? ¿amperio? Medio(XZ,?l?-?3,?3)
Otro
Texto1. ¿Palabra? =?¿Cuál es tu signo del zodíaco? ¿amperio? Medio(XZ,?l??6,?3)
¿Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Form_Load()
¿Atenuado? ¿I? ¿Como? Entero
Combo1. Claro
¿Para qué? ¿I? =?1?¿Adónde ir? 12
¿Y si? ¿I? ¿Es? 10? Entonces
Combo1. ¿Agregar artículo? ¿"0"? CStr(1)? ¿amperio? "Luna"
Otro
Combo1. ¿Agregar artículo? CStr(1)? ¿amperio? "Luna"
¿Fin? ¿Y si
Siguiente? Yo
Combo1. ¿Palabra? =?Combo1. Lista(0)
Combinación 2. Claro
¿Para qué? ¿I? =?1?¿Adónde ir? 31
¿Y si? ¿I? ¿Es? 10? Luego
combina 2. ¿Agregar artículo? ¿"0"? CStr(1)? ¿amperio? "Día"
Otros
Combinación 2. ¿Agregar artículo? CStr(1)? ¿amperio? "Día"
¿Fin? ¿Y si
Siguiente? iCombo2. Texto = Combo2. Lista (0)
XZ = "Capricornio 065438 20 de octubre, Acuario, 19 de febrero, Piscis, 20 de marzo, Aries, 20 de abril, Tauro, 21 de mayo, Géminis, 21 de junio, Cáncer";_
"22 de julio Leo 23 de agosto Virgo 23 de septiembre Libra 23 de octubre Escorpio 22 de octubre Sagitario 21 de febrero Capricornio"
Conector final
No utilicé matrices ni declaraciones If complejas en este programa, pero utilicé la función Instr(), que tiene una legibilidad relativamente pobre.
Al mismo tiempo, febrero no tiene en cuenta los años bisiestos ni los meses grandes y pequeños.