¿Cómo escribir un programa para determinar el tamaño usando VBS? (Gracias por tu respuesta)

No recuerdo dónde descargué el siguiente tutorial. Espero que te sea útil.

Un libro de texto para novatos que ha causado sensación en la comunidad hacker---Aprende. Serie para programar conmigo

Aprende series de programación conmigo

¡La publicación original de fragmentos de memoria de nueva área en blanco y negro! ¡Vuelve a publicarlo para que todos puedan aprender! ! !

Descubrí que la mayoría de los amigos blancos y negros no saben programar, lo cual no es bueno, así que esta vez escribí un tutorial de programación simple, hablando sobre VBScript. Es principalmente para principiantes y amigos que. Sepa programar, no pierda el tiempo. Si desea ponerse en contacto con el siguiente VBScript, puede hacerlo, pero como tiene una base de programación, se recomienda leer algunos libros de referencia directamente, lo que será más rápido.

¿Qué es VBScript? El nombre completo de VBScript es: Microsoft Visual Basic Script Editon (versión de script Visual BASIC de Microsoft Corporation, VBS (abreviatura adicional de VBScript). Lenguaje basado en Visual Basic Permítanme explicarles más, Microsoft Visual Basic es producido por Microsoft Corporation. Un conjunto de herramientas de programación visual, la sintaxis se basa en el lenguaje de secuencias de comandos, es decir, no está compilado en un archivo binario, el código fuente. El código es interpretado y ejecutado directamente por el host. En pocas palabras, no es necesario compilar el programa que escribe en .exe, sino que envía el programa fuente .vbs directamente al usuario y el usuario puede ejecutarlo. p>

Sé que lo que más preocupa a los novatos ahora es qué herramienta usar para desarrollar programas VBS. La respuesta es: Bloc de notas. No es broma, de hecho, se puede usar cualquier editor de texto para desarrollar programas VBS. El Bloc de notas viene con el sistema y es más fácil de encontrar. A pesar de esto, le recomiendo que descargue un editor de texto profesional. Debido a que estas herramientas pueden proporcionar "resaltado de sintaxis" y otras funciones, son más convenientes para el desarrollo. Depende de usted. Prefiero Edit Plus (2.10).

OK, primero escribamos un programa VBScript.

REM Ingrese y haga eco de su nombre.

'Usar funciones de InputBox y Msgbox

Dim nombre, msg

msg= "Por favor ingresa tu nombre:"

name=Inputbox(msg, "name" )

Msgbox(nombre)

Ingrese la lista de programas anterior en el Bloc de notas y luego guárdela como un archivo con una extensión .vbs (seleccione "Todos los archivos" en "Guardar como tipo"). Luego haga doble clic para ejecutar y observe los resultados de la ejecución. Nota: Ingrese usted mismo a la lista de programas, ¡no copie-gt; pegue!

Déjeme explicarle este programa. El primero y el segundo Las líneas comienzan con la declaración "REM" y "'" respectivamente. Estas dos cosas tienen la misma función, lo que indica que esta línea es una línea de comentario, lo que significa que estas dos líneas no hacen más que explicar la función de este programa. , información de derechos de autor, etc. La línea de comentarios es una de las partes más importantes del programa. Aunque no es necesaria, es útil para otras personas que leen el código fuente. Es muy beneficioso leer el código y analizarlo usted mismo. Un buen hábito es agregar comentarios claros y concisos cuando sea necesario.

Dim se usa para declarar una variable. En VBS, el tipo de variable no es tan importante, es decir, VBS lo hará automáticamente. Identifique el tipo de variable por usted y no es necesario declarar la variable antes de usarla. El programa asignará dinámicamente el espacio de la variable. En VBS, no es necesario considerar si el nombre almacena un número entero o un decimal (nombre científico). Llamado "número de punto flotante"), no es necesario considerar si se trata de una cadena (una cadena de caracteres, como: "Hola Wor

ld"), VBS lo hará automáticamente por usted. Por lo tanto, la tercera línea de declaraciones se puede eliminar y el efecto no cambiará, pero me opongo firmemente a esto. El principio básico de una variable es: declarar primero, luego usar. El nombre de la variable comienza con una letra. Puede usar guiones bajos y números, pero no puede usar palabras que hayan sido definidas por vbs, como dim, y no pueden ser números puros.

La siguiente línea se llama ". asignación", "=" es un símbolo de asignación, no el signo igual en matemáticas, aunque parece igual. Esta es la comprensión ortodoxa. Tienes que entenderlo como igual. No tiene nada de malo. El lado izquierdo del El signo de asignación es una variable y el lado derecho es el valor que se asignará a la variable. Después de la asignación, msg La variable es equivalente a la cadena "Ingrese su nombre:" en el programa, pero cuando se copia el mensaje nuevamente, el valor original desaparecerá. No solo las cadenas, cualquier otra variable se asigna de esta manera, por ejemplo: a=2, b=12.222, etc.

Más abajo, Inputbox y Msgbox son funciones integradas. de VBS. Una función es equivalente a una "caja negra" con entrada (parámetros) y salida (valor de retorno). No es necesario comprender cómo funciona la función, solo comprender qué puede hacer la función. funciones propias, pero eso esperará hasta más tarde. Ahora solo necesitamos entender que una función puede tener un valor de retorno o no, puede tener parámetros o no. Por ejemplo, Inputbox es una función con un valor de retorno. a la izquierda del número de asignación para "captar" el valor de retorno de InputBox, que es el contenido que ingresa. Entre corchetes a la derecha del cuadro de entrada está la lista de parámetros. Cada parámetro está separado por ",". funciones Por ejemplo, el primer parámetro se mostrará en el mensaje. Pasamos la variable msg como primer parámetro a la función Inputbox y msg=" Ingrese su nombre:", por lo que veremos "Ingrese su nombre:". " en la barra de mensajes del cuadro de diálogo. El segundo parámetro es el título del cuadro de diálogo. Usamos una cantidad directa (el nombre científico es "constante", aquí hay una "constante de cadena") pasada a la función, por supuesto que usted También puede pasar variables. El cuadro de entrada también tiene muchos parámetros, por ejemplo, agrega un "," después de "nombre" y luego ingresa una cadena de caracteres (cadena, use comillas dobles ""La cadena de caracteres envuelta se llama cadena) y luego ejecútelo para ver el resultado. Encontrará que el cuadro de texto utilizado para la entrada tiene un valor predeterminado, que es la función del tercer parámetro.

La función Msgbox es una función utilizada para la salida. No hay una función de salida especial en VBS (imprimir en BASIC, printf en C), por lo que solo podemos usar un cuadro de diálogo para observar los resultados de salida. Solo hay un parámetro necesario para Msgbox, que es el contenido de salida, en este caso. no necesitamos prestar atención al valor de retorno de msgbox. Discutiremos Msgbox y Inputbox en el futuro. Hoy es solo un calentamiento, termina aquí.

Puntos clave:

1) Las líneas de comentarios (que comienzan con REM o ') no tienen ningún efecto en el programa, pero hacen que su programa sea más fácil de leer para otros.

2) Una variable es como un cuadro, o A. El nombre en clave puede representar lo que desea representar. La asignación de variables utiliza "="

3) Los caracteres envueltos con "" se llaman "cadenas"

4) Función como una "caja negra". , tiene parámetros y valores de retorno Utilice la variable a la izquierda de "=" para capturar el valor de retorno

5) La función Inputbox muestra un cuadro de diálogo de entrada y Msgbox se utiliza para la salida

Asignación:

1) Pruebe el tercer parámetro de Inputbox

2) Escriba un programa para generar su edad

3) Escriba un programa para realizar Ingrese 3 veces, ingrese su nombre y el nombre de sus padres respectivamente (solicitud para mostrar el mensaje) y envíelo 3 veces

Parte 2

:

Realmente no esperaba que alguien no pudiera hacer la primera tarea.

Parece que necesita ser muy, muy detallado. Bueno, hoy lo haré. hablemos de varias "cantidades" y operaciones básicas

Hablemos primero de constantes, esto es relativamente simple

¿Qué es una constante? Una constante es una cantidad cuyo valor no se puede cambiar.

Las constantes se dividen en dos tipos: el primer tipo, constantes naturales. Se llama así porque son constantes en sí mismas. ¿Cómo se cambia el valor de 21? Siempre será 21 y no puede convertirse en 46.

Si lo usa en el programa "21=46", dicha declaración provocará un error. De manera similar, las cadenas también son constantes (¿recuerda las cadenas? Es una cadena de caracteres entre "") y "Hola". Mundo" es un ejemplo. Si utiliza una declaración como "Hola Mundo"="Adiós", también provocará un error. ¿Puede dar más ejemplos de constantes naturales?

El segundo tipo son constantes definidas Por nuestra cuenta, tales cantidades también usan códigos y también se les asignan valores, pero la diferencia con las variables es que se les asignan valores cuando se definen y no se pueden cambiar más adelante. Si intenta cambiarlos, se producirá un error. Para definir una variable, usamos "La palabra clave const" (la palabra clave significa que el sistema define palabras con funciones especiales y no se pueden usar como nombres de variables o nombres de constantes), el formato es: const nombre constante = valor constante

Por ejemplo:

const PI=3.1415926

const NAME="Fragmento de Memoria"

De esta forma definimos dos constantes, PI y NOMBRE. En términos generales, el nombre de la constante usa todas las letras mayúsculas, pero no es necesario, depende de usted. Es un buen hábito definir algunos valores que no necesitan cambiar en el programa como constantes. Esto puede evitar sorpresas innecesarias. Además, el uso de constantes personalizadas también puede reducir su cantidad de trabajo. Por ejemplo:

msgbox("Hello World")

msgbox("Hello World"). )

msgbox("Hola mundo")

msgbox("Hola mundo")

msgbox("Hola mundo")

Este programa genera Hello World cinco veces. Si desea cambiar la salida a Bye-Bye, debe modificar todo el programa. Por supuesto, puede modificarlo manualmente 5 veces, pero ¿qué pasa si desea generar 1000 veces? este problema para nosotros:

const hw="Hello World"

msgbox(hw)

msgbox(hw)

msgbox( hw)

msgbox(hw)

msgbox(hw )

De esta forma, cuando quieras modificar la salida, solo necesitas modificar el valor de hw.

Bien, ahora echemos un vistazo a la primera "piedra angular" importante de la programación: las variables. Creo que la mejor manera de explicar una variable es un "cuadro". , que solo puede contener una cosa. Cuando quieras poner algo más, debes sacar la cosa original. Este "cuadro" tiene un nombre. Cuando usas una variable en un programa, el sistema abrirá el cuadro y. Saque el contenido para permitir que estas cosas participen en el procesamiento, no la caja. Algunos idiomas dependen en gran medida del contenido de la "caja", por lo que busque una "caja" adecuada (como el lenguaje C), sino VBS. me proporciona una "caja mágica" que puede expandirse y contraerse automáticamente. No necesitamos preocuparnos por lo que se coloca en ella.

VBS ajustará automáticamente el tamaño de la caja. p>

Atenuar a1, a2, a3

Atenuar a1, a2, a3

Atenuar a1, a2, a3

Atenuar a1, a2, a3

p>

a1=14

a2=12.23

a3="Hola"

Sin los problemas del lenguaje C: O la versión formal de VB Declaración (VB puede declararla o no) así:

int a1; Dim a1 as integer

float a2; Dim a2 as Double

char* a3 ; atenuar a3 como cadena

a1=14; a1=14

a2=12.23; a2=12.23

a3="Hola"; "

Hmm... Estoy yendo demasiado lejos...

¿Cuáles son los usos de las variables? Vaya, eso es muy útil. Lo más simple es que no puedes determinar el valor de la variable cuando el programa se está ejecutando. Por ejemplo, en el programa que compilamos en la lección anterior para ingresar nombres, no está seguro de lo que devuelve el InputBox (¿recuerda el valor de retorno del Inputbox? Es lo que ingresa). ), por lo que no hay forma de lidiar con varias situaciones, pero usamos El nombre del "cuadro" contiene el nombre del usuario. Cuando se trata de usar, solo necesitamos saber el nombre del cuadro. y sacamos el contenido para su uso. Para otro ejemplo, escribimos un programa Calcula el área de un rectángulo, por ejemplo, este programa es para estudiantes de primaria:

dim a, b, s <. /p>

a=15

b=12

atenuar a, b, s

b=12

p >

s=a*b

msgbox(s)

De esta manera, puedes encontrar el área de un rectángulo con una longitud de 15 y un ancho de 12. ¿No es muy simple? Por supuesto, este programa también se puede escribir así:

dim s

s=15*12

msgbox(s)

De esta manera parece que el programa es mucho más corto y ahorra memoria, pero no es un enfoque recomendado. ¿Por qué?

Ahora, nuestro programa. debe convertirse en algo decente. ¿Quién escribió el programa? ¿Necesita que alguien más modifique el código fuente antes de poder usarlo?

Entonces, tenemos que aceptar la función InputBox. p>

El programa modificado es el siguiente:

dim a, b, s

a=inputbox("Ingrese la longitud del rectángulo:")

b=inputbox("Ingrese el ancho del rectángulo:")

s=a*b

msgbox(s)

ok, con esta modificación, podemos calcular el área del rectángulo sin importar los datos que ingrese el usuario. ¿Puedes cambiarlo si usas s=15*12? Creo que has descubierto que los cálculos matemáticos en VBS no son diferentes de la aritmética real, , -, *, /, (), [], {} se usan todos de la misma manera, por ejemplo:

dim ans

ans=12 32/4 [(23-10)*2]

msgbox(ans)

Las reglas de cuatro operaciones aritméticas también son eficaz en programación. Puedes recuperar la diversión que tenías en la escuela primaria en programación (¿odias las matemáticas? Entonces no aprendas informática).

Un operador interesante en programación es "mod". el "operador de resto", que es obtener el resto de una división, por ejemplo

dim a

a=16 mod 5

¿Tienes ¿Sabes a qué es igual a? ¡Bingo! Sí, es 1. Porque 16/5 = 3....1, entonces el resultado del cálculo mod es 1.

Otro operador es "

^" (la pequeña flecha encima de "6" en el teclado), que significa "multiplicar a una potencia" (o "cuadrado"). Por ejemplo:

dim a, b, c

a =2

b=a^2

c=a^3

msgbox(a)

msgbox( c)

Entonces b=a*a=4, c=a*a*a=8

No hablemos mucho de una vez, nos detendremos aquí en esto tiempo, y ahora resumiremos

p>

Puntos clave:

1) Las constantes se dividen en constantes naturales y constantes personalizadas, y los valores de las constantes no pueden. ser modificado

2) Las variables son como cuadros, no nos importa lo que hay en el cuadro. Qué es, pero debes saber el nombre del cuadro.

3) No hay diferencia en las cuatro operaciones aritméticas en programación

4) MOD es la operación restante

Asignación:

1) Escribe un programa para calcular el área de un círculo. El radio lo da el usuario (usando el cuadro de entrada El valor PI es 3.14159

2) Escribe un programa para obtener 20 / 3 Resto

El tercer artículo (* **seis artículos):

Primero que nada, déjame resolver algunas preguntas del último curso

Primero, el problema del resto, 16/5 = 3...1, es porque cambié la parte anterior y olvidé cambiar la última parte, lo siento

En segundo lugar, eche un vistazo a la lista de programas:

1)

Atenuar a, b, c

a=inputbox("a es:", "radio de entrada")

b= Inputbox("b es:", " radio de entrada")

c=a*2 b*2

Msgbox(c)

Esta entrada 1. 2 es 6

2)

Atenuar a, b, c

a=inputbox("a es:", "radio de entrada")

p>

b=Inputbox("b es:", "input radio")

c=(a b)*2

Msgbox(c)

Esto es 24 al ingresar 1 y 2

¿Por qué es diferente? Matemáticamente, c=(a b)*2 y c=a*2 b*2 son equivalentes. En VBS Lo mismo ocurre. ". En VBS, no solo significa el signo más sino que también significa concatenar dos cadenas. Por ejemplo, "Hello" "World"="HelloWorld", ¿has entendido? ¿Recuerdas que InoutBox es el valor de retorno de la función? Es un cadena! Esto muestra el problema, ¿verdad? En programación, "1" no es igual a (lt; gt;) 1. "1" es un carácter y 1 es un número, por lo que a, b son todas variables de cadena, " 1" "2"="12", esto es como cuando bromeábamos con nuestros amigos y les preguntábamos 1 1=?, siempre nos reíamos y decíamos "mal, debería ser 11". Pero por qué, una lata *2 pero no se produce ningún error. En este momento, VBS es más inteligente si el contenido de la cadena es un número y se realizan operaciones matemáticas en él, y la cadena se ve obligada a convertirse en un número para participar en la operación. Una cadena representa un número, pero no participa en operaciones matemáticas, sino que participa en operaciones de cadenas (fusión) y se trata como una cadena. Entonces ves a b = 12. En este momento, el resultado de a b (12). es una cadena. Cuando se multiplica por 2, se convierte en el número 12, por lo que obtengo el resultado 24.

¿Cómo modificar este programa? Necesitamos usar otra función incorporada: int, función int La función es convertir el valor de entrada en un valor entero. Lo modificamos así:

c=(int(a) int(b))*2

Esto significa pasar a como parámetro a la función int, la función int devolverá el número entero (su entrada valor), y luego dejar que el valor de retorno participe en la operación, para obtener la respuesta correcta. Por lo tanto, si usa la función inputbox en el futuro, es mejor usar la declaración int para procesarla: por ejemplo, c. =int(c) 'c eres tú mismo Variables

¿Crees que este curso es un poco aburrido? Jaja, la parte de variables y operadores es así, pero sería bueno practicar más esta vez. , escribimos sobre algo realmente interesante: declaraciones de control de procesos. Esta parte comienza con la programación real.

Primero presentamos la estructura de juicio.

Antes de eso, primero presentamos un tipo de variable simple: Booleana, este tipo de variable tiene sólo dos valores posibles: Verdadero, Falso, es decir, verdadero o falso. Este tipo de variable es muy útil en determinadas situaciones (como por ejemplo "definimos una variable bool de la misma manera"). como otras variables, y la asignación también es la misma, por ejemplo:

dim a, b

a=true

b=false

Tenga en cuenta que verdadero y "verdadero" son diferentes, "verdadero" es una cadena y verdadero es un valor booleano, que no debe confundirse.

Volviendo a la declaración if, veamos primero. Versión simplificada de la sentencia if: sentencia if, entonces. Veamos un ejemplo:

dim a, b

a=12

b=13

if bgt; a then msgbox("B es mayor que A")

Solo miramos la última línea, agt;b Esta fórmula (expresión) tiene un valor de retorno, que es tipo bool. Debido a que esta fórmula solo tiene dos posibilidades: b es mayor que a, b no es mayor que a, por lo que solo hay dos posibilidades para esta fórmula, a saber, verdadero o falso. La declaración if determina si el valor de retorno de esta expresión. es verdadero o falso, si es verdadero (verdadero), ejecute la siguiente declaración; si es falso, no se ejecutará. ¿Puede cambiar el valor de a a 14 y ver si aparece un cuadro de diálogo? p>

¿Qué debemos hacer cuando queremos ejecutar una declaración de varias líneas después del juicio? Necesitamos resolverlo con un bloque de declaración, que se puede llamar bloque si

dim a, b

a=12

b=13

if alt; entonces

msgbox("A es menor que B")

msgbox("B es mayor que A")

end if

Las dos funciones de msgbox están intercaladas entre if y end if. Esta parte es la declaración. bloque. Deje de 4 a 8 (un lt; Tabgt; clave) espacios antes de cada declaración en el bloque. Esto no es obligatorio, pero es un buen hábito para ver claramente la estructura del programa. Más de una declaración Preste atención a si... entonces... finalice si estas tres partes clave no se pierden. Está bien, salgo. Una pregunta, ingrese un número, si es menor que 100, se generará. "error", si es mayor que 100, el resultado será "correcto". Tengo dos versiones del programa aquí:

dim a

a =inputbox("Por favor, ingrese un número mayor que 100")

a=int(a) 'Inputbox devuelve una cadena, la convertimos en un número entero: )

if agt; 100 entonces msgbox("correct")

si alt; 100 entonces msgbox("wrong")

Hay uno más simple

atenuar a <

/p>

a=inputbox("Ingrese un número mayor que 100")

a=int(a) 'El cuadro de entrada devuelve una cadena, la convertimos en un número entero

si es agt; 100 entonces

msgbox("correcto")

else

msgbox("error")

fin if

Ves uno más. La función de else es ejecutar cuando la expresión a juzgar es falsa. De esta manera, el programa puede manejar dos situaciones diferentes. No olvides usar end if. end

Oye, soy un pervertido. Ahora quiero que te ocupes de tres situaciones, lt; 100, = 100, gt; 100, y las escribas en una estructura if. Te daré la respuesta:

dim a

a=inputbox("Ingresa un número mayor que 100")

a=int(a) 'inputbox Lo que se devuelve es una cadena, la convertimos en un número entero

si agt 100 entonces

msgbox("correct")

elseif a= 100 entonces

msgbox("Jefe, ¿estás bromeando?")

else

msgbox("Error")

fin if

Ingrese 100 esta vez para ver qué es. De lo contrario, la declaración if puede aparecer varias veces en la estructura if para juzgar de manera flexible diferentes situaciones (si desea juzgar demasiadas, utilice la "estructura de selección" , hasta (hablaré de ello más adelante), cuando se hayan procesado todos los elseif y no se cumpla ninguna condición, se ejecutan las declaraciones en else Otro ejemplo:

Dim a, b, c, d

Dim a, b, c, d

a=inputbox("a es:", "Radio de entrada")

b=Inputbox("b es:", "Radio de entrada")

d =Inputbox( "Respuesta:", "Ingrese respuesta")

c=a*2 b*2 'Aquí no hay problema, se convertirá automáticamente

si d= c luego

Msgbox("Eres tan inteligente")

else

Msgbox("Hola Zhutou, ¡todavía no sabes tus propias preguntas!" )

end if

Mira esto de nuevo, no importa cuán correcta sea tu respuesta, sigues siendo un cerdo Jaja, no te estoy engañando, ni el tipo de retorno del cuadro de entrada. al principio del artículo te está engañando. d es el valor de retorno de inputbox. Es una cadena, y c es el resultado de un cálculo entero, es un número entero. Una cadena no es igual a un número entero de ninguna manera. aunque son literalmente iguales: "8"lt;gt; (no es igual al signo) 8 Entonces el valor del juicio if siempre es falso, y la parte else de la declaración siempre se ejecuta así.

Atenuar a, b, c, d

a=inputbox( "a es:", "Radio de entrada")

b=Inputbox("b es:", "Radio de entrada")

d=Inputbox("Respuesta: "," Ingrese la respuesta")

d=int(d)

'Aquí sacamos el valor de d, lo convertimos en un número entero y lo volvemos a colocar en el cuadro "d"

c=a*2 b*2

if d=c then

Msgbox("Eres tan inteligente")

else

Msgbox("Hola cabeza de cerdo

¡Todavía no soy bueno con mis propias preguntas!")

finalizar si

Esto tiene éxito. Esta también es una parte molesta de la función Inputbox. No hay otra manera, no existe otro buen método de entrada en vbs.

Hablando de if, tenemos que hablar de operadores lógicos. Hoy presentaremos dos tipos, "y" y "o". Te daré un ejemplo.

dim a, b

a=inputbox("Ingresa un número; 10")

b=inputbox. ("Ingrese otro número gt;10")

a=int(a)

b=int(b)

if agt;10 and bgt; 10 entonces

msgbox("Correcto")

else

msgbox("Error")

finalizar si

Este programa le permite ingresar dos valores, los cuales deben ser mayores que 10. Siempre que uno de ellos no sea mayor, se generará un error

dim a, b

a=inputbox("Ingrese un número gt; 10 ")

b=inputbox("Ingrese otro número; 10")

a=int(a)

b=int(b)

si agt; 10 o bgt 10 entonces

msgbox("correct")

else

msgbox("wrong")

end if

Este programa le permite ingresar dos valores Siempre que uno sea mayor que 10, devolverá éxito. De hecho, y y o son fáciles de entender. Leí "si agt; 10 o bgt; 10 entonces" Esta oración en chino es así: "Si a es mayor que 10 o b es mayor que 10, entonces..." ¿No es fácil de entender?

Está bien, veamos una nueva estructura. La clase de hoy ya es medianoche y estoy agotado. tiene que manejar muchas situaciones de juicio diferentes, de lo contrario...entonces hará que el programa se vea muy desordenado, por lo que existe una estructura de caso selecto para manejar esta situación. La estructura de sintaxis de caso seleccionado es muy simple:

. seleccione caso nombre de variable

valor de caso

Declaración

valor de caso

Declaración

caso más

Declaración

end select

Podemos poner un ejemplo para explicarlo de forma muy sencilla:

dim a

a= inputbox("Ingrese un valor de 1 a 3")

a=int(a) 'Maneja el problema de que el cuadro de entrada devuelva una cadena

seleccione caso a

caso 1

msgbox("一")

caso 2

msgbox("二")

caso 3

msgbox("三")

case else

msgbox("Input error")

end select

Este ejemplo convierte los tres números arábigos 1, 2 y 3 en números chinos en mayúsculas, este programa está escrito en forma de if...elseif de la siguiente manera

dim a

a=inputbox

("Ingrese un valor de 1 a 3")

a=int(a)

si a=1 entonces

msgbox("一")

elseif a=2 entonces

msgbox("二")

elseif a=3 entonces

msgbox("三")

else

msgbox("Error de entrada")

end if

Qué, por favor, seleccione

Puntos clave:

1) El cuadro de entrada devuelve una cadena, no un número, debes usar un =int(a ) Esta forma se convierte en un número

2) Solo hay dos valores de variables bool: verdadero, falso

2.5) y las expresiones de ambos lados son verdaderas , luego devuelve verdadero. Si una de las expresiones en ambos lados de o es verdadera, entonces devuelve verdadero.

3) Formato de la declaración if

4) Formato de select...case.

Tarea:

1) Usa 3 valores bool para almacenar si tus 3 hermanos son varones (pista: sister1male=false)

2) Dado un número, si es mayor que 10 y menor que 20, generará "correcto", de lo contrario generará "error"

3) Ingrese 12 o 15, generará "correcto", de lo contrario generará "error"

4) Todos los números enteros positivos dentro de 5 se convierten en números chinos más grandes

5) Diseñe un programa usted mismo y aplique los conocimientos actuales

Cuatro artículos (***6):

p>

Hola a todos, ayer tuve un día libre, así que hoy escribiré el Capítulo 4: Estructura del bucle

Primero veamos una pregunta: el centro comercial realiza una liquidación diaria y debe sumar la facturación de hoy e ingresar un número cada vez. Esta pregunta es realmente muy simple, pero con el conocimiento que hemos aprendido ahora, es bastante problemático completarla. Esta pregunta, analicémosla, primero necesitamos saber la cantidad de compras y ventas, de esta manera se puede controlar la cantidad de entradas, pero este diseño es muy ineficiente. que hay 5 transacciones hoy El siguiente es el programa fuente:

dim sum

sum=0 'Inicializar variable

sum=sum int(inputbox(). "Ingrese el monto de la transacción"))

'sum =sum x Este formulario toma su propio valor, realiza una operación y luego lo vuelve a colocar en sí mismo. Este método es muy útil

'Aquí se utiliza el anidamiento de funciones, y el valor de retorno del cuadro de entrada es directamente Páselo a la función int y conviértalo en un número entero, lo mismo a continuación

sum=sum int(inputbox(" Ingrese el monto de la transacción"))

sum=sum int(inputbox("Ingrese el monto de la transacción"))

sum=sum int(inputbox("Ingrese el monto de la transacción) "))

sum=sum int(inputbox("Ingrese el monto de la transacción"))

msgbox(sum)

¿Lo viste? I Diseñé el programa copiando el proceso de cálculo 5 veces. Este tipo de programa todavía se usa en lugares con pocas transacciones, como los intercambios de automóviles. Se puede usar bien si lo ponemos en el supermercado. ¿No sería necesario copiar y pegar miles de veces? El contenido del que hablamos hoy puede superar esta deficiencia.

Hablemos de la siguiente declaración Do...Loop

La estructura de do...loop parece muy simple, es decir: do...loop, eso es todo. Esta estructura ejecuta continuamente do y loop. . declaración (nombre científico: cuerpo del bucle),

nunca se detiene. Por ejemplo:

do

msgbox("Este mensaje continuará aparece repetidamente. Para detenerse. el programa, utilice el administrador de tareas (Ctrl Alt Del) para finalizar el proceso de wscript")

bucle

Ejecute este programa. Cuando haga clic para cerrar un cuadro de diálogo, se abrirá Inmediatamente sale otro, nunca puedes terminarlo, siempre está el siguiente. ¿Quién ejecutaría tal programa a menos que sea para causar problemas a otros (he hecho este tipo de cosas), así que en do..loop? Hay otra declaración en la estructura: exit do. Esta declaración terminará el ciclo y saltará a la declaración después del ciclo para continuar

la ejecución. Según un ejemplo:

dim a. 'Nota: No es necesario declarar las constantes en formato tenue; de ​​lo contrario, se producirá un error

const pass="123456" 'Esta es una cadena, envuélvala con "". y no se puede cambiar

hacer

a=inputbox("Ingrese la contraseña")

si a=pass entonces

msgbox( "Verificación de contraseña exitosa")

salir do

finalizar si

bucle

Este programa seguirá pidiéndote tu contraseña hasta que ingrese la contraseña correcta hasta el momento (if puede anidarse dentro de otro if, o dentro de un bucle

, así que asegúrese de usar sangría para distinguir claramente cada parte del programa. Sí). , los primeros programas hicieron esto. Pero somos piratas informáticos, por lo que comprendemos que la seguridad del sistema es fácil de descifrar de manera exhaustiva. de la siguiente manera

dim a,ctr

ctr=0 'Establecer contador

const pass="pas123_" 'La de arriba es una contraseña débil esta vez. el cambio es más fuerte

hacer

si ctr=3 entonces

msgbox("Se ha alcanzado el límite de autenticación, el proceso de autenticación está cerrado")

salir hacer

else

a=inputbox("Por favor, ingrese la contraseña")

si a=pasar entonces

msgbox ("Autenticación exitosa")

msgbox("(Puedes agregar un mensaje aquí después del éxito)")

salir y hacer

else

else

p>

ctr=ctr 1 'Si la contraseña es incorrecta, agregue un recuento de autenticación de error

msgbox("Error de autenticación, verifique la contraseña ")

end if

end if

bucle

Intenta ejecutar este programa. Cuando obtengas 3 errores, dejará de preguntar para la contraseña nuevamente y cierre el programa. La autenticación Telnet se usa para limitar los tiempos del programa.

Debe prestar atención a las declaraciones if anidadas. Lea este programa con atención. Es difícil de entender. Intente diseñar un programa similar usted mismo.

De hecho, para agregar la función de verificación al bucle do..., no es necesario usar if. Yo lo presento.

Mientras que la palabra clave, while se puede colocar

después de do o bucle, y luego seguida de una expresión. Cuando el valor de la expresión sea verdadero (la expresión esté establecida), se ejecutará el cuerpo del bucle. Eche un vistazo al

programa modificado"

dim a,ctr

ctr=0

const pass="pas123_"

p>

hacer mientras ctrlt;3

a=inputbox("Ingrese la contraseña")

si a=pasar entonces

msgbox("Autenticación exitosa")

msgbox("(Puede agregar un mensaje aquí después del éxito)")

salir y hacer

else

ctr=ctr 1 'Si la contraseña es incorrecta, agregue un recuento de autenticación de error

msgbox("Error de autenticación, verifique la contraseña")

end if

bucle

La función implementada de esta manera es exactamente la misma que en el ejemplo anterior. Veamos cómo colocar while después del bucle:

dim a,. ctr

ctr= 0

const pass="pas123_"

do

a=inputbox("Ingrese la contraseña")

si a=pass entonces

msgbox("Autenticación exitosa")

msgbox("(Puede agregar un mensaje aquí después del éxito)")

salir de

else

ctr=ctr 1 'Si la contraseña es incorrecta, agregue un recuento de autenticación de error

msgbox("Error de autenticación, por favor verifique la contraseña")

end if

bucle while ctrlt; 3

La función es la misma, ¿por qué debería colocarse después del bucle? Lo sabrá simplemente cambiando el valor de ctr a 3, mientras que el programa después de do saldrá directamente y después del bucle

también permitirá una autenticación y no finalizará hasta el bucle. mientras es un