¿Cómo determina la EBV si tres de los cuatro números son iguales, dos son iguales o son diferentes?

Oh, por cierto, parece que no hay ningún tipo de datos de matriz en VBS.

Entonces necesitas usar el objeto Scripting.Dictionary

Aleatorio

Set d = CreateObject("Scripting.Dictionary")

para i=1 a 5

p>

d.Add CStr(i), int(Rnd*10)+1 'Guardar números aleatorios en el objeto

siguiente

same_count =0

a = d.Keys

Para i = 1 a 3

Para j = i+1 a 4

Si d.item(a( i)) = d.item(a(j)) Entonces

same_count=same_count+1

Finalizar si

Siguiente

Siguiente

if Same_count<>0 then msgbox "Same times=" & Same_count

No recuerdo dónde descargué el siguiente tutorial, espero que sí. te será útil

Un libro de texto para principiantes que ha causado sensación en la comunidad de hackers---Serie Aprende a programar conmigo

Serie Aprende a programar conmigo

¡Publicaciones sobre fragmentos de memoria en la nueva área original 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 para hablar sobre VBScript. Es principalmente para principiantes y amigos que. sabe que la programación puede 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 ir directamente a algunos libros de referencia para leer, que serán más rápido

¿Qué es VBScript? El nombre completo de VBScript es: Microsoft Visual Basic Script Editon (versión de Visual BASIC script de Microsoft Corporation). Lenguaje de secuencias de comandos 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 Basic El lenguaje de secuencias de comandos no se compila en un archivo binario. interpretado y ejecutado por el host. En pocas palabras, el programa que escribe no necesita compilarse en un .exe, sino que envía el programa fuente .vbs directamente al usuario y el usuario puede ejecutarlo.

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 el desarrollo de VBS, pero el Bloc de notas viene con él. 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. Prefiero Edit Plus (2.10).

OK, primero escribamos un programa VBScript.

REM Ingrese y haga eco de su nombre.

'Usar. Funciones InputBox y Msgbox

Dim name,msg

msg= "Por favor ingrese su nombre:"

name=Inputbox(msg,"name")

Msgbox(nombre)

Ingrese la lista de programas anterior en el Bloc de notas, 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 la lista de programas usted mismo, no copie->pegue

¡Déjeme explicarle este programa! " respectivamente.

declaración y " ' ", estas dos cosas tienen la misma función, lo que indica que esta línea es una línea de comentario, es decir, estas dos líneas no hacen nada, solo se usan para 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 de un programa y, aunque no es obligatoria, es muy beneficioso para otros leer el código fuente y analizarlo usted mismo. Un buen hábito es agregarlo de forma clara y concisa. comentarios cuando sea necesario.

Dim se utiliza para declarar una variable. En VBS, el tipo de variable no es tan importante. Es decir, VBS identificará automáticamente el tipo de variable, y la variable no. debe declararse antes de usarlo. El programa asignará dinámicamente espacio variable. En VBS, no es necesario considerar si el nombre se almacena como un número entero o decimal (el nombre científico es "número de punto flotante"), o si. es una cadena (una cadena de caracteres, como: "Hola mundo"), VBS lo hará automáticamente, por lo que 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 y luego usar. Los nombres de las variables comienzan con letras y puede usar guiones bajos y números, pero no puede usar palabras que hayan sido definidas por VBS, como dim, ni pueden ser puras. números.

La siguiente línea se llama "asignación", "=" es un símbolo de asignación, no el signo igual en matemáticas. Aunque parece lo mismo, este es el entendimiento ortodoxo. no hay nada de malo en igual. El lado izquierdo del número 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, el mensaje de variable equivale a "Ingrese su nombre:" es. una cadena, pero cuando se copia nuevamente el mensaje, el valor original desaparecerá. No solo a las cadenas, sino también a cualquier otra variable se les asignan valores de esta manera, por ejemplo: a=2, b=12.222, etc. p>

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). la función es cómo funciona, solo necesitamos entender qué puede hacer esta función. También podemos definir nuestras propias funciones, pero eso tendrá que esperar hasta más tarde, todo lo que necesitamos entender es que una función puede tener. un valor de retorno o no, y puede tener parámetros o no. Por ejemplo, Inputbox es una función que devuelve un valor. Usamos la variable en el lado izquierdo del número de asignación para "captar" el valor de retorno de InputBox. es el contenido que ingresa. Entre paréntesis en el lado derecho del cuadro de entrada está la lista de parámetros, cada parámetro usa ", "separados, cada parámetro tiene un efecto diferente. Por ejemplo, el primer parámetro se mostrará en el mensaje. la variable msg como primer parámetro de la función Inputbox y msg="Ingrese su nombre:", por lo que veremos "Ingrese su nombre:" en la barra de solicitud del cuadro de diálogo. El segundo parámetro es el título de. En el cuadro de diálogo, usamos una cantidad directa (el nombre científico es "constante", aquí es "constante de cadena") para pasar a la función. Por supuesto, también puede pasar variables. El cuadro de entrada también tiene muchos parámetros. agregue un "," después de "nombre" y luego ingrese una cadena de caracteres (cadena entre comillas dobles "" Una cadena de caracteres se llama cadena) y luego ejecútela para ver el resultado. Encontrará el cuadro de texto. usado para entrada tiene un valor predeterminado, que es la función del tercer parámetro.

La función Msgbox se usa para la función de salida, no hay una función de salida especial en VBS (imprimir en BASIC, printf en C). , por lo que solo podemos usar el cuadro de diálogo para observar los resultados de salida. Msgbox tiene solo un parámetro necesario, que es el contenido que se generará. En este caso, no necesitamos prestar atención al valor de retorno de msgbox. Hablaremos de Msgbox y Inputbox en el futuro. Hoy es solo un calentamiento, eso es todo.

Puntos clave:

1) Las líneas de comentarios (que comienzan con REM o '). no tienen ningún efecto en el programa, pero pueden facilitar que otros lean su programa.

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

3) Los caracteres entre "" se llaman "cadenas"

p>

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

5) Aparece la función Inputbox. crear un cuadro de diálogo de entrada, Msgbox Se usa para salida

Tarea:

1) Probar el tercer parámetro de Inputbox

2) Escribir un programa para salida tu edad

3) Escribe un programa para ingresar tres veces, ingresa tu nombre y el nombre de tus padres respectivamente (solicitud para mostrar el mensaje) y envíalo tres veces

Parte 2:

Yo realmente no esperaba que alguien no fuera capaz de hacer la primera tarea.

Parece que hay que enseñarlo con mucho, mucho cuidado. hablará sobre varias "cantidades" y operaciones básicas

Hablemos primero de las constantes, que son relativamente simples

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

Las constantes se dividen en dos tipos: la primera, 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. p>

Si usa "21=46" en el programa, dicha declaración generará un error. Del mismo modo, las cadenas son constantes (¿recuerdan cadenas? Una cadena de caracteres entre ""), "Hello World" es una. Por ejemplo, si usas "Hello World"=" declaraciones como "Bye" también causarán un error. ¿Puedes dar más ejemplos de constantes naturales?

El segundo tipo son constantes definidas por nosotros mismos. Este tipo de La cantidad también usa nombres de código. También se les asigna un valor, pero la diferencia con las variables es que se les asigna un valor cuando se definen y no se pueden cambiar más adelante. Si intenta cambiarlo, se producirá un error. variable, usamos la palabra clave "const" (la palabra clave Esto 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

const PI= 3.1415926

const NAME="Fragmento de Memoria"

De esta forma hemos definido dos constantes, PI y NAME En términos generales, los nombres de las constantes están todos en mayúsculas, pero es posible que no se utilicen. Es un buen hábito definir algunos valores que no necesitan cambiar en el programa como constantes. accidentes innecesarios Además, el uso de constantes personalizadas también puede reducir su carga de trabajo. Por ejemplo:

msgbox("Hello World")

msgbox("Hello World")

msgbox("Hello World")

msgbox("Hello World")

msgbox("Hello World")

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? Las constantes pueden resolvernos este problema:

const hw="Hola mundo"

msgbox(hw)

msgbox(hw)

p>

msgbox( hw)

msgbox(hw)

msgbox(hw)

msgbox(hw)

De esta manera Cuando desee modificar el salida, simplemente modifique 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 las variables es es una "caja". Una variable es como un cuadro, que solo puede contener una cosa. Cuando quieras poner algo más, debes sacar el elemento original cuando estés en el programa. una caja, el sistema la abrirá y sacará el contenido, permitiendo que estas cosas participen en el procesamiento en lugar de la caja. Algunos idiomas dependen en gran medida del contenido de la "caja", por lo que.

Solo encuentro una "caja" adecuada (como el lenguaje C), pero VBS me proporciona una "caja mágica" que puede expandirse y contraerse automáticamente. No tenemos que preocuparnos por lo que contiene.

VBS ajustará automáticamente el tamaño del cuadro. Por ejemplo:

Dim a1,a2,a3

a1=14

a2=12.23 <. /p>

a3="Hola "

Sin los problemas del lenguaje C: O la declaración formal de VB (VB puede declararlo o no) como:

int a1 ; Dim a1 como entero

float a2; Dim a2 como Double

char* a3; Dim a3 como string

a1=14

a2=12.23; a2=12.23

a3="Hola"; a3="Hola"

Hmm... eso está demasiado fuera del tema...

¿Para qué se usan 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 la lección anterior programamos un programa. para ingresar nombres, no puede estar seguro de lo que devuelve el InputBox (¿recuerde que el valor de retorno del Inputbox es lo que ingresa), por lo que no tiene forma de lidiar con varias situaciones, pero usamos el nombre del "cuadro" para almacene el nombre del usuario Cuando lo usemos, solo necesitamos saber el nombre del cuadro, y el sistema lo abrirá usted mismo y sacará el contenido para su uso. Para otro ejemplo, escribimos un programa para calcular el área de. ​​un rectángulo, por ejemplo, este programa se distribuirá a estudiantes de primaria:

dim a,b,s

a=15

b. =12

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)

Esto hace que el programa sea mucho más corto y ahorra memoria, pero no es una práctica recomendada. ¿Por qué consulte a continuación? convertirse en algo decente. ¿El programa de quién necesita que alguien más modifique el código fuente antes de poder usarlo?

Entonces, tenemos que aceptar la entrada del usuario, ¿recuerdas? 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, no No importa qué datos ingrese el usuario, podemos calcular el área del rectángulo. ¿Puedes cambiarlo si usas s=15*12? Por supuesto que no.

Creo que lo has descubierto. 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 las cuatro operaciones aritméticas también se aplican en programación , Puedes recuperar la diversión que tenías en la escuela primaria en la programación (¿odias las matemáticas? Entonces no aprendas computadoras

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

dim a

a=16 mod 5

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

También hay un operador "^" (que es la pequeña flecha encima de "6" en el teclado), que significa "exponenciación" (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 demasiado de una vez, detengámonos aquí esta vez, ahora para resumir

Puntos clave:

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

2) Las variables son como Box, no nos importa lo que haya en el cuadro, pero debemos 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) Escribir un programa para calcular el área de un círculo Se da el radio. por el usuario (usando Inputbox El valor PI es 3.14159

2) Editar un programa para obtener el resto de 20 / 3

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

Antes que nada, déjame resolver algunas dudas del último curso

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

En segundo lugar, consulte la siguiente lista de programas:

1)

Dim a,b. ,c

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

p>

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

c=a*2+b*2

Msgbox(c)

Esto es 6 al ingresar 1 y 2

2)

Atenuar a,b,c

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

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

c=(a+b)*2

Msgbox(c)

Esto es 24 cuando se ingresa 1 y 2

¿Por qué es diferente? En matemáticas, c=(a+b)*2 y c=a* 2+b*2 son equivalentes, y lo mismo ocurre en VBS. el "+". En VBS, + no solo significa un signo más sino que también significa concatenar dos cadenas, como "Hola" +"Mundo"="HolaMundo", ¿recuerdas el valor de retorno de la función InoutBox? ¡Es una cadena! Esto muestra el problema. En programación, "1" no es igual a (<>)1, "1 " es un carácter y 1 es un número, por lo que a y b son variables de cadena, "1". "+"2"="12". ¿Esto es como cuando bromeábamos con nuestros amigos y les preguntábamos 1+1=? Siempre nos reímos y decimos "mal, debería ser 11". Pero por qué, una lata *2 pero no se produce ningún error. Esta es una ejecución más inteligente de VBS. Si el contenido de esta cadena es un número y es Para operaciones matemáticas, la cadena se ve obligada a convertirse en un número para participar en la operación. un número, pero no participa en operaciones matemáticas, pero participa en operaciones de cadenas (fusión), se trata como una cadena, por lo que ves a + b = 12. En este momento, el resultado de a + b (12) es una cadena. Cuando se multiplica por 2, se fuerza a convertirla en el número 12, por lo que obtengo el resultado 24.

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

c=(int(a)+ int(b))*2 <. /p>

Esto significa pasar a como parámetro a la función int, la función int devolverá el número entero (su valor de entrada) y luego permitirá que el valor de retorno participe en la operación.

, para que obtenga 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 es su propia variable

Todos ¿Creen que este curso es un poco aburrido? Jaja, la parte de variables y operadores es así, pero será mejor practicar más esta vez, escribimos las cosas realmente divertidas: declaraciones de control de flujo. Esta parte es el verdadero comienzo.

Primero presentamos la estructura de juicio.

Antes de eso, primero introducimos un tipo de variable simple: booleano, que tiene solo dos valores posibles: Verdadero. ,Flase, es decir, verdadero o falso. Este tipo de variable es útil en algunas situaciones (como "cambiar"). Definimos una variable bool de la misma manera que otras variables y la asignació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, verdadero es un valor booleano y no debe confundirse.

Volviendo a la declaración if, veamos primero la versión simplificada de la declaración if: juicio if, luego cuerpo de la declaración Veamos un ejemplo:

dim a,b

a=12

b=13

si b>a entonces msgbox("B es mayor que A")

Solo miramos la última línea. La fórmula (expresión) a>b tiene un valor de retorno, que es de tipo bool. Porque solo hay dos posibilidades para esta fórmula: b es mayor que a y b no es mayor que a, por lo que solo hay dos posibilidades para esta expresión, a saber, verdadera o falsa. La declaración if determina si el valor de retorno de esta expresión es verdadero o falso. verdadero), se ejecutará la siguiente declaración. Si es falso, no se ejecutará. ¿Puedes cambiar el valor de a a 14 y ver si aparece un cuadro de diálogo? ¿Qué hacemos cuando queremos ejecutar una declaración de varias líneas después del juicio? Necesitamos usar un bloque de declaración para resolverlo. Aquí podemos llamar al bloque if

dim a,b

b=13

si a

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 el bloque de declaración. Por favor, deje 4-. 8 (una tecla ) antes de cada declaración en el bloque. Esto no es necesario, pero es un buen hábito ver la estructura del programa con claridad. De esta manera, podemos ejecutar más de una declaración. perder estas tres partes clave si... entonces... terminar si OK, haré una pregunta, ingresaré un número, si es menor que 100 generará "error", si es mayor que 100, generará "correcto". ", tengo dos versiones del programa aquí:

dim a

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

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

si a>100 entonces msgbox("correcto")

si a<100 entonces msgbox("Error ")

Hay uno más simple

dim a

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 a>100 entonces

msgbox("correct")

else

msgbox("wrong")

end if

Mira Llegó un els más

e, 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 terminar con end if

Oye, lo soy. Pervertido, ahora quiero que manejes tres situaciones, <100,=100,>100, y las escribas en una estructura if. ¿Qué debes hacer? Te daré la respuesta:

atenuar un <. /p>

dim a