Cómo escribir un programa vb
Basic es un lenguaje informático y es la abreviatura de Código de instrucción universal para principiantes. Se puede decir que es un lenguaje diseñado para principiantes.
Por supuesto, no conocía el código hasta que aprendí VB. Aunque el código está en inglés, sigue siendo relativamente sencillo. Después de todo, este idioma está diseñado para principiantes.
El siguiente es el código de programa de una calculadora, que solo puede realizar operaciones de suma, resta, multiplicación, división y resto, por lo que no lo explicaré en detalle.
¿Opciones? Explícito
¿Privado? ¿Sub? Command1_Click()
Texto2. ¿Palabra? =?Texto1. Texto
SMS 3. ¿Palabra? =?"+"
Texto1. ¿Palabra? =?""
Texto1. Establecer enfoque
¿Fin? Submarino
¿Privado? ¿Sub? Command2_Click()
Texto2. ¿Palabra? =?Texto1. Texto
SMS 3. ¿Palabra? =?"-"
Texto1. ¿Palabra? =?""
Texto1. Establecer enfoque
¿Fin? Submarino
¿Privado? ¿Sub? Command3_Click()
Texto2. ¿Palabra? =?Texto1. Texto
SMS 3. ¿Palabra? =?"*"
Texto1. ¿Palabra? =?""
Texto1. Establecer enfoque
¿Fin? Submarino
¿Privado? ¿Sub? Command4_Click()
Texto2. ¿Palabra? =?Texto1. 'Texto' El texto en texto2 es igual al texto en texto1.
SMS 3. ¿Palabra? =?"/"?El contenido del texto 3 se cambia a "/"
Texto1. ¿Palabra? =?" " 'Texto sin formato 1
Texto1. ¿Establecer enfoque? Una vez que el texto se enfoca.
¿Fin? Submarino
¿Privado? ¿Sub? Command5_Click()
¿Atenuar? ¿respuesta? ¿Como? "Doble" se definirá como doble precisión.
¿Elegir? ¿caso? SMS 3. ¿Palabra? Determina el contenido del Texto 3.
¿Caso? ¿"+"? Si es "+"
¿Respuesta? =?Val(Texto2.Texto)? +?Val(Text1.Text)' luego texto1 se agrega a texto2 y su valor se asigna a a.
Texto1. ¿Palabra? =?¿Respuesta? ¿Se asignará el texto 1 al caso? "-"? Si es "-"
¿Respuesta? =?Val(Texto2.Texto)? -?Val(Text1.Text)' Luego texto1 se resta de texto2 y se asigna su valor.
Texto1. ¿Palabra? =?¿Respuesta? ¿Se asignará el texto 1 al caso? "*"? Si es "*"
¿Respuesta? =?Val(Texto2.Texto)? *?Val(Text1.Text)'Multiplica texto1 por texto2 y asigna su valor.
Texto1. ¿Palabra? =?¿Respuesta? '
¿Caso? "/"? Si es "/"
¿Respuesta? =?Val(Texto2.Texto)? /?Val(Text1.Text)' Divide texto1 por texto2 y asigna su valor.
Texto1. ¿Palabra? =?¿Respuesta? '
¿Caso? "\"? Si es "\"
¿Respuesta? =?Val(Texto2.Texto)? \?Val(Text1.Text)' Luego texto1 se puede dividir por texto2 y su valor se asigna a a.
Texto1. ¿Palabra? =?¿Respuesta? '
¿Caso? ¿"Modificación"? Si es "Mod"
¿Respuesta? =?Val(Texto2.Texto)? Mod? Val(Texto1.Texto)? El texto 1 se divide por el texto 2 para obtener el resto, cuyo valor se asigna a.
Texto1. ¿Palabra? =?Un
Fin? Seleccione 'Terminar sentencia'.
¿Fin? Submarino
¿Privado? ¿Sub? Command6_Click()
Texto2. ¿Palabra? =?Texto1. Texto
SMS 3. ¿Palabra? =?"\"
Texto1. ¿Palabra? =?""
Texto1. Establecer enfoque
¿Fin? Submarino
¿Privado? ¿Sub? Command7_Click()
Texto2. ¿Palabra? =?Texto1. Texto
SMS 3. ¿Palabra? =?" Mod "
Texto1. ¿Palabra? =?""
Texto1. Establecer enfoque
¿Fin? Submarino
¿Privado? ¿Sub? CXDM_Click()
Tabla 2. ¿Fin del espectáculo
? Submarino
Si estás empezando, ¿puedo sugerirte que lo leas? La Introducción a la programación de Génesis 5 de Hong En tiene VB (Introducción), por lo que puede encontrar otros tutoriales. Genesis eDonkey es algo bueno. He encontrado muchos tutoriales, información y materiales en él...