Ejercicios Básicos Propuestos y Resueltos de Visual Basic

Ejercicios básicos propuestos y resueltos de Visual Basic .NET Hola a todos, hoy os dejo una serie de ejercicios propuestos y resueltos en Visual Basic .NET. Todos To dos los ejercicios que proponemos están resueltos en este mismo post, intenta hacerlo por ti mismo y si te quedas atascado puedes mirar la solución.Recuerda, que no tiene por que estar igual tu solución con la del post, el ojeti!o es que aprendas no que me copies la solución. "rea un proyecto de consola por ejercicio. Estos ejercicios han sido creado con Visual #tudio $%&'. "olocare en las soluciones algunos comentarios para que s ean más (ácilmente entendile. Te recomiendo que uses mensajes de tra)as, donde te sean necesarios. #i tienes prolemas tami*n puedes usar el depurador. Recuerda que al ser ejercicios hechos en consola, pon al (inal esta l+nea Console.readLine() para que !eas el resultado. -qu+ te dejo una serie de enlaces tiles

Variables en Visual Basic .NET Hola a todos, hoy os e/plicar* como declarar !ariales en Visual Basic .NET. -ntes de empe)ar, las !ariale son estructuras de datos que pueden !ariar durante la ejecución de un programa. 0eclarar variables variables signi(ica signi(ica indicar el tipo de dato que almacenara las variables variables que que participan en el programa. -ntes de usar una variable variable deemos deemos declararla y es r ecomendale iniciarla. 1a primera !e) que se usa dee declararse, el resto de !eces no se dee hacer, es importante que el !alor asignado sea compatile con el tipo de !ariale. 2or ejemplo, si declaramos una !ariale de tipo num*rico, esta no puede contener una cadena de caracteres. 1a sinta/is de una declaración de una !ariale es Dim nombrevariable as tipovariable. 2or ejemplo, dim num pero num pero como hemos dicho antes es recomendale iniciar estas !ariales con un numero gen*rico como uno o cero o segn la ocasión. Hay una serie de reglas a la hora de escriir el nomre de las !ariales •

1os nomres de las !ariales no pueden comen)ar por nmeros, pero si puede (ormar parte del nomre.

•

El nomre de una !ariale no puede t ener espacios.

•

El nomre de la !ariale no puede estar (ormado por operadores como 3, 4, 5, etc.

•

No puede haer dos !ariales que se llamen igual, aunque sean de distintos tipos, en el mismo ámito 6ya e/plicaremos esto mas tarde7.

2or con!ención, se suele escriir el nomre de las !ariales en minscula, si hay mas de una palara en la !ariale podemos separarlo con un 8 o colocar la primera letra de la nue!a palara en mayscula, por ejemplo, variable!rueba. 9s dejo un ejemplo 1 2 3 4 5 6 7

Sub Main() Dim a As Integer = 0 'Numero entero Dim b As String = "" 'Cadena Dim c As Char 'Caracterbr !" c = "" Dim d '#n $rinci$io% no tiene deinido ti$o d = 00 'Se deine e ti$o automaticamente% recomendabe decarar e ti$o #nd Sub

Los tipos más comunes de variables son" •

:nteger, representa un nmero entero de '$ its con signo.

•

1ong, representa un nmero entero de ;< its con signo.

•

#ingle, representa un nmero de punto (lotante de precisión simple.

•

0oule, representa un nmero de punto (lotante de precisión dole.

•

#tring, representa un te/to.

•

Boolean, representa un !alor ooleano.

1os #tring al ser una !ariale especial lo !eremos con detalle más adelante.

"onstantes en Visual Basic .NET Hola a todos, hoy os e/plicare como de(inir constantes en Visual Basic .NET.1as constantes constantes son son !alores que no se modi(ican durante la ejecución del programa, si de(inimos una constante constante y y la intentamos modi(icar durante la ejecución, no nos dejara. 1a mayor utilidad de las constantes constantes es es de(inir !alores que siempre serán iguales y que en caso de que !ar+en con el tiempo se pueden camiar, el mejor ejemplo es el :V-. :V-.

En Visual Basic .NET, cualquier tipo de dato puede ser una constante, para de(inir que sea una constante, deemos escriir antes del tipo de dato Const escriiremos el nomre de la constante en maysculas. No es oligatorio pero es recomendale para distinguirlo de las !ariales. :maginemos que tenemos un programa simple para saer el precio del :V- de un producto, este programa lo tenemos hace tiempo cuando el : V- es de &= >, cuando suió a $&> solo es necesario camiar un !alor. En este peque?o ejemplo, parece que dar+a igual lo anterior, ya que con camiar un par de cosas seria igual, pero imaginemos que tenemos un programa enorme y que esa constante es utili)ada muy a menudo, si camiara el :V- solo tendr+amos que camiar el !alor de :V- y no todos los !alores en todo el programa. @i consejo es que todo aquello que no camia pero que puede !ariar en un (uturo, lo hagáis constante. Veamos un ejemplo 1

Modue Modue

2 3

Sub Main()

4 5

Const I*A As Doube = 0+

6

Dim $roducto As Integer = 00

7 8

Dim resutado As Doube = $roducto , I*A

9 10

Consoe-rite.ine(/# I*A de $roducto es / & resutado)

11 12

Consoeead.ine()

13 14

#nd Sub

15 16

#nd Modue

#trings en Visual Basic .NET

Hola a todos, hoy os e/plicar* como (uncionan los #trings en Visual Basic .NET. #trin$ se usa para almacenar un conjunto de caracteres, ademas, es un tipo de dato especial, ya que en realidad es una clase pero que puede declararse como si (uera una variable primitiva. El !alor de un #trin$ dee ir con comillas doles para que se considere un #trin$. An #tring puede contener todos los caracteres que queramos. An #tring es como un arr ay, !eremos que en los m*todos podemos otener partes de la cadena. El primer carácter es la posición %. Veamos las maneras de crear un #trin$ 1


2 3

Sub Main()

4 5

' 1orma sim$e de crear un String

6

Dim cadena As String = /2oa /

7

Dim cadena+ As String = /mundo/

8 9

Consoe-rite.ine(cadena & cadena+)

10 11


12

#nd Sub 13 14

#nd Modue 15 16

ecuerda que $odemos concatenar cadenas con e o$erador &

17 18 19 20

3ambi4n $odemos hacer que un String ocu$e 5arias ineas% o 6nico que debemos hacer de String

21

Aqu8 tienes un e9em$o:

22 23


24 25

Sub Main()

26 27

Dim cadena As String = /#sto es un e9em$o / & 7

28

/de String de / & 7

29

/5arias ineas/

30 31


32 33

#nd Sub

34 35

#nd Modue

:ntroducción y salida de datos desde consola en Visual Basic .NET Hola a todos, hoy os !oy a e/plicar como podemos introducir y mostrar datos desde consola en Visual Basic .NET. :ntroducir y mostrar datos en consola en astante sencillo gracias a la clase Console. 2ara introducir un !alor con Console, usamos Console.%eadLine(). Veremos que en la pantalla el puntero se queda parpadeando, a la espera de que introdu)camos datos. -l pulsar Enter, seguirá a la siguiente l+nea. 2ara guardar el !alor, usamos una !ariale. 2or de(ecto es un #tring, pero podemos almacenar el !alor en otro tipo de dato, siempre y cuando lo que introdu)camos sea correcto. 2or ejemplo 1

Dim 5aor as Integer = Consoeead.ine()

#i el !alor que introducimos no se puede con!ertir en nmero, nos saltará un error. 2ara mostrar un !alor, hay que usar Console.&rite(valoramostrar). 0onde el valoramostrar será lo que queremos mostrar. 2or ejemplo

1

Consoe-rite(/2oa mundo/)

#i queremos que d* un salto de l+nea automaticamente, usamos Console.&riteLine(valoramostrar).#i queremos concatenar algn !alor con el te/to mostrado, usamos el operador ' 2or ejemplo 1

Dim nombre as String = /1ernando/

2 3

Consoe-rite(/2oa / & nombre)

1o mas normal es cominar estas instrucciones. 2or ejemplo 1


2 3

Sub Main()

4 5

Consoe-rite.ine(/#scribe tu nombre/)

6

Dim nombre As String = Consoeead.ine()

7 8

Consoe-rite.ine(/2oa / & nombre)

9 10 11

Consoeead.ine() #nd Sub #nd Modue

ijaros que al (inal pongo un Console.%eadLine(), esto lo hago para que se pause la ejecucción y podamos !er el resultado. 9s muestro la salida de datos.

Estructuras condicionales en Visual Basic .NET Hola a todos, hoy os !oy a e/plicar como (uncionan las estructuras condicionales. 1as estructuras condicionales nos permiten ejecutar una serie de instrucciones si cumple una determinada condicin que nosotros le indiquemos. Es importante recordar que la condición dee dar un resultado booleano, por lo que lo mas normal es usar operadores relacionales y condicionales.Tenemos !arios tipos de estructuras condicionales •

i" le indicamos una condición si esta es !erdadera se ejecuta, sino no se ejecuta las instrucciones de dentro. #e suele traducir como *#i se cumple esta condicin +a, esto- . #u sinta/is es

1

i condicion then

2 3

'Instrucciones

4 5

end i

2or ejemplo 1


2 3 4 5 6 7 8

Sub Main() Dim $recio As Integer = 00 I $recio " 00 3hen Consoe-rite.ine(/# $recio es ma
9 10

Consoeead.ine ()

11 12

#nd Sub

13 14 15

#nd Modue

0onde colocamos la condición, podemos colocar una variable booleana, ya que su !alor puede ser true o (alse. i  else es como el anterior solo que despu*s de cerrarse la lla!e de i , se a?ade else sin

•

indicarle ninguna condicin. Esto sir!e para que si la condicin del i no es !erdadera, ejecute otras instrucciones que estarán dentro de else. #e suele traducir como *#i se cumple esta condicin +a, esto y sino +a, esto-. Veamos un ejemplo 1 2


3

Sub Main()

4 5

Dim $recio As Integer = 0

6 7

I $recio " 00 3hen Consoe-rite.ine(/# $recio es ma
8 9

10 11 12 13

#nd Modue

14

En este caso, se ejecutara lo que hay en else ya que no cumple la condición. i /elsei  esta estructura es como una me)cla de los anteriores, esto nos permite, que si no se

•

cumple la condicin podamos indicar otra condicin para hacerlo an mas especi(ico. #e suele traducir como *#i se cumple esta condicin +a, esto y sino si cumple esta condicin +a, esto-. Veamos un ejemplo 1


2

Sub Main()

3 4


5 6 7 8

I $recio " 00 3hen Consoe-rite.ine(/# $recio es ma0 3hen

9

Consoe-rite.ine(/# $recio es ma0/)

10 11

#se Consoe-rite.ine(/# $recio es menor que >0/) #nd I #nd Sub

12 13 14 15

#nd Modue

16

El ejemplo anterior es equi!alente al siguiente, esto es lo que se conoce como i anidados, podemos anidar tantos como queramos 1 2


3

Sub Main()

4 5


6 7 8 9

10 11 12 13 14 15

I $recio " 00 3hen Consoe-rite.ine(/# $recio es ma0 3hen Consoe-rite.ine(/# $recio es ma0/) #se Consoe-rite.ine(/# $recio es menor que >0/) #nd I #nd I #nd Sub

16 17

#nd Modue

18

#elect" esta estructura condicional de seleccin m0ltiple, le damos un !alor 6puede ser una !ariale7 y una lista de casos y si cumple alguno de los casos ejecuta las instrucciones asociadas a ella, en caso de que ninguna sea podemos indicarle que hace por de(ecto, normalmente se usa para indicar de un error con un mensaje. #u sinta/is es 1 2 3 4 5 6 7 8 9 10

Seect 5aor Case caso 'Instrucciones Case caso+ 'Instrucciones Case casoN 'Instrucciones Case #se 'Instrucciones #nd Seect

1os case de un select se pueden escriir con rangos con To1 por ejemplo, 2 T3 4, tami*n podemos usar comas para indicar !arios !alores. 2or ejemplo 1 2


3

Sub Main()

4 5

Dim 5aor As Integer = 

6 7 8 9

10 11 12 13 14

Seect Case 5aor Case  3o  Consoe-rite.ine(/# 5aor esta entre  < /) Consoe-rite.ine(/# 5aor esta es ? o > o @/) Case #se Consoe-rite.ine(/# 5aor es otro/) #nd Seect Consoeead.ine()

15 16

#nd Sub

17 18

#nd Modue

19

"omentarios en Visual Basic .NET Hola a todos, hoy os !oy a ense?ar como hacer c omentarios en Visual asic .NET. 1os comentarios son

instrucciones

especiales

que

no

se ejecutan

es

muy

til

para

los

programadores en cualquier lenguaje de programación, ya que nos permite insertar anotaciones que nos ser!irán para tro)os de código que pueden resultar con(usos en un (uturo. Tami*n es til, si nuestro código lo manejan mas personas.

2odemos comentar una l+nea en Visual Basic .NET con el carácter C o con la palara rem 1


2 3 4

Sub Main()

5

' #9em$o de comentario

6 7

#M #9em$o de comentario

8

#nd Sub

9 10 11

#nd Modue

2or ltimo, no es necesario hacer comentarios es cada linea, es recomendale hacerlos en aquellos tro)os de te/to donde tu !eas que sean necesarios. Espero que os sea de ayuda. #i ten*is dudas, preguntad. Espero que os sea de ayuda.

Bucles en Visual Basic .NET

•

Bucles en Visual Basic .NET Hola a todos, hoy os !oy a e/plicar como (uncionan los ucles o estructuras repetiti!as en Visual Basic .NET.Ana estructura de repeticin o bucle nos permite ejecutar un numero de !eces determinado una serie de instrucciones. 1a mayor utilidad es e!itar la repetición de lineas de código iguales. 2ara salir del bucle, se indica una condición, si esa condición no se cumple se sale del bucle. 1as estructuras de repetición son 5+ile indicamos una condicin que se ejecutara hasta que la condición sea (alsa, es

•

importante que la !ariale que este en la condicin, !ar+e para que no se produ)ca un bucle ininito. #u sinta/is es •

1 2 3

-hie condicion 'instrucciones #nd -hie

Veamos un ejemplo 1


2

Sub Main()

3 4

Dim num As Integer = 

5 6 7 8 9 10

-hie num =  Consoe-rite.ine(num) num =  #nd -hie

11 12

13

#nd Sub

14 15 16


#nd Modue

"omo !emos, num !ale & al principio, se compruea la condicin, como 2 es menor o i$ual 6ue 4 , entra en el bucle y ejecuta las instrucciones, y as+ sucesi!amente hasta que num !ale ;, ya que 7 no es menor o i$ual 6ue 4. #i num no (uera modi(icado, nunca saldr+a del bucle. or  este tipo de ucle, es como el anterior pero ademas de la condicin, incluye una

•

iniciali)ación de una !ariale y un incremento o decremento de esa !ariale, en principio, no es necesario que incluya las ' partes. #i no indicamos el incremento por de(ecto es &. N3T8" cuando salimos del ucle, la !ariale iniciali)ada no e/iste. #u sinta/is 1 2 3

1or iniciaiBacion to imite ste$ $aso 'instrucciones Net

#i nos (ijamos, es como en 5+ile pero todo se de(ine en el ucle. Veamos un ejemplo 1 2


3

Sub Main()

4 5 6 7

1or num As Integer =  3o  Ste$  Consoe-rite.ine(num) Net

8 9 10 11 12 13


ijate en la condición, 2 to 4 es igual que 29:4 Es el mismo ejemplo de antes pero mas reducido. •

do/5+ile esta estructura repetiti!a, tiene algo especial y es que como m+nimo las instrucciones dentro de la estructura repetiti!a al menos una !e), mientras que el 5+ile sus instrucciones pueden ejecutarse % o N !eces. #e sale del ucle cuando la condicin del 5+ile no se cumple, si esto pasa empie)a desde el do. #e utili)a para la !alidación de datos . #u sinta/is es

1 2 3 4 5 6

Do 'intrucciones .oo$ -hie condicion 'tra sintais Do 'intrucciones .oo$ Enti condicion

7 8

Veamos un ejemplo 1 2


3

Sub Main()

4 5

Dim num As Integer = 0

6 7

Do

8

Consoe-rite.ine(/Introduce un n6mero entre 0 < 0/) num = Consoeead.ine() .oo$ -hie num "= 0 r num  0

9 10

11 12

Consoe-rite.ine(/# numero introducido con .oo$ -hie es

/ &

num)

13 14

Do

15

Consoe-rite.ine(/Introduce un n6mero entre 0 < 0/) num = Consoeead.ine() .oo$ Enti num = 0 r num " 0

16 17

18 19

Consoe-rite.ine(/# numero introducido con .oo$ Enti es

/ &

num)

20


21 22 23 24 25

#nd Sub #nd Modue

Tenemos que pensar ien la condicin de salida. En nuestro caso, si insertamos un 4 (4;:2< or 49<) de!ol!er+a (also, saliendo del ucle. #i insertáramos un /2 (/2;:2< or 49o) de!ol!er+a !erdadero, haciendo que !uel!a a pedir un numero. 1a di(erencia entre loop 5+ile y loop until es la salida del ucle, con loop 5+ile, la condición indicada dee ser alse para salir del ucle y con loop until, la condición dee ser true para salir del ucle. 1a posicion de 5+ile o until se puede poner delante de do o de loop, pero recomiendo que sea siempre despu*s de loop. 2or ltimo, tenemos la estructura de repetición =or Eac+ pero lo !eremos más detallamente más adelante cuando usemos estructuras más complejas.

Denerar nmeros aleatorios con Visual Basic .NET

Hola a todos, hoy os !oy a e/plicar como podemos generar nmeros aleatorios en Visual Basic .NET. Denerar nmeros aleatorios es muy normal en programación, ya sea para nuestros pr ogramas o para proar. -qu+ os dejo la (unción necesaria, solo tene+s que copiar esta (unción a !uestro programa 1 2 3

1unction numAeatorio#ntre(F<*a minimo As Integer% F<*a maimo As Integer) As Integer

andomiBe()

eturn C.ng((minimo G maimo) , nd()  maimo)

4

#nd 1unction

Esto generará un nmero entre el m+nimo y el má/imo, incluyendo estos. Veamos un ejemplo 1

Modue #9em$oAeatorio

2

Sub Main()

3 4 5

'Henera un numero entre  < 0

6

Consoe-rite.ine(/N6mero generado: / & numAeatorio#ntre(% 0))

7


8 9

#nd Sub

10 11 12

1unction numAeatorio#ntre(F<*a minimo As Integer% F<*a maimo As Integer) As Integer

13

andomiBe()

14

eturn C.ng((minimo G maimo) , nd()  maimo)

15

#nd 1unction

16 17

#nd Modue

"omo usar Visual #tudio $%&' Hola a todos, hoy os !oy a ense?ar como se usa Visual #tudio $%&' 2ro(esional. Visual #tudio $%&' 2ro(esional es un :0E de @icroso(t que nos permite programar en !arios lenguajes de programación. 9s ense?are a como usarlo de (orma ásica para que podais empe)ar a programar. 1o primero que tendremos que hacer es hacer es crear un nue!o proyecto. 1o podemos hacer desde8rc+ivo /; Nuevo /; !royecto. Veremos que nos aparece esta !entana

Elegimos el tipo que aplicación queremos hacer, nosotros en este log las plantillas mas usadas seran 8plicacin de consola y &indo5s =orms . Tami*n podemos crear aplicaciones de otros lenguajes como C> o !yt+on, por ejemplo.

Escriimos tami*n el nomre de la aplicación y pulsamos aceptar. Ana !e) hecho, nos mostrara el esqueleto de nuestra aplicación. En la parte de la derecha, !eremos los archi!os usados en nuestro proyecto. #i queremos a?adir nue!os elementos en nuestro proyecto, haremos lo siguiente, en la )ona de E?plorador de soluciones, pinchamos con el otón secundario, seleccionamos 8$re$ar /;Nuevo Elemento. 0espu*s tendras que elegir el tipo de (ichero que quieres crear, le pones un nomre y listo.

"uando queramos ejecutar nuestro programa, pinchamos en la parte de arria donde pone @niciar con el s+molo del play.

"uando creamos una aplicacin de &indo5s =orms1 !eremos un rame !acio, en el lado de la i)quierda hay una pesta?a llamada Cuadro de +erramientas.

#implemente pinchamos y arrastramos el elemento deseado al rame y lo redimensionamos como queramos. "uando tenemos un elemento en un (rame, podemos acceder a sus propiedades, desde la pesta?a de !ropiedades.

#i queremos eleccionar el elemento que se iniciará primero, este elemento dee tener un main o ser un rame, !amos a !royecto /; propiedades /; aplicacion en el comoo/ llamado (ormulario de inicio, elegimos nuestro elemento y listo. Recuerda que dees guardar el proyecto, ya que al crearlo no se guarda. "on todo esto podemos programar con nuestro Visual #tudio $%&' 2ro(esional. Reali)aremos más manuales espec+(icos so<re partes de este programa, ya que todo en un post ser+a demasiado largo por la enormidad de este programa. Espero que os sea de ayuda. #i ten*is dudas, preguntad, estamos para ayudarte.

EJERCICIOS

2) "rea un programa saludador. 0onde pidamos un nomre y nos muestre un mensaje en consola, saludandonos. 2or ejemplo, si doy como nomre =ernando, me aparecerá en pantalla Aola =ernando.

1 2

Modue #9ercicio

3

Sub Main()

4 5

Consoe-rite.ine(/#scribe un nombre/) Dim nombre As String = Consoeead.ine

6 7

Consoe-rite.ine(/2oa / & nombre & /J/)

8 9


10 11

#nd Sub

12 13 14

#nd Modue

) "rea un programa que calcule el :V- de un producto. El !alor de este producto se pasará por teclado y nos mostrará por pant alla el !alor del :V- y su !alor (inal. El :V- es el $& >. 2or ejemplo, si introducimos &%%como !alor de producto, el : V- es $& y el !alor (inal es &$&. 1

Modue #9ercicio+

2 3

Sub Main()

4

Const I*A As Doube = 0+

5 6

Consoe-rite.ine(/#scribe e 5aor de un $roducto/) Dim $roducto As Doube = Consoeead.ine

7 8 9 10

Consoe-rite.ine(/# I*A de $roducto es / & $roducto , I*A & / euros # & / euros/)

11 12


13

#nd Sub

14 15 16

#nd Modue

) "rea un programa que muestre la tala de multiplicar de un nmero desde el & hasta el &% que demos por teclado. 0ees mostrar la operación como tal. 2or ejemplo, si introducimos un  por teclado /&F  / $ F &%  / ' F &

G  / &% F % F) "rea un programa que nos calcula el area un cuadrado. Tenemos que pedir el radio de la circun(erencia. 2odemos otener el !alor de 2:, con Gat+.!@ 1 2 3 4

Modue #9ercicioK Sub Main()

5

Consoe-rite.ine(/#scribe e 5aor de un radio/) Dim radio As Doube = Consoeead.ine()

6 7

Dim area As Doube = MathLI , MathLo(radio% +)

8 9

Consoe-rite.ine(/# area es / & area)

10 11


12 13 14 15

#nd Sub #nd Modue

16

4) 2ide dos nmeros por teclado. :ndica si el primer nmero es di!isile por el segundo. 2or ejemplo, si introdu)co &% y $, si es di!isile, por que si di!ides &% entre $, el resto es %. 1

Modue #9ercicio

2 3

Sub Main()

4

Consoe-rite.ine(/#scribe e 5aor de $rimer numero/) Dim num As Integer = Consoeead.ine()

5 6 7

Consoe-rite.ine(/#scribe e 5aor de segundo numero/) Dim num+ As Integer = Consoeead.ine()

8 9

I num Mod num+ = 0 3hen Consoe-rite.ine(/# n6mero / & num & / es di5isibe $or / &

10 11 12 13 14 15

num+)

#se Consoe-rite.ine(/# n6mero / & num & / no es di5isibe $or / &

num+) #nd I

16


17 18

#nd Sub

19 20 21

#nd Modue

7) @uestra los nmeros entre el % y el &%%, que no sean di!isiles entre $. Asa un ucle hile. 1 2 3

Modue #9ercicio?

4

Sub Main()

5 6

Dim i As Integer = 0

7

-hie i = 00

8 9 10 11

I i Mod + " 0 3hen Consoe-rite.ine(i) #nd I

12 13

i = i  

14 15

#nd -hie

16


17 18

#nd Sub

19 20 21

#nd Modue

H) Reali)a el mismo ejercicio, pero con un ucle (or. 1

Modue #9ercicio

2

Sub Main()

3 4

1or i As Integer = 0 3o 00

5 6 7

I i Mod + " 0 3hen Consoe-rite.ine(i) #nd I

8 9 10

Net

11 12 13 14 15 16


17

I) "rea un programa que nos pida un nmero entre % y &%, si el nmero no está entre rango, !ol!erá a pedir el nmero hasta que est* en el rango correcto. 1 2

Modue #9ercicio>

3 4 5 6 7

Sub Main() Dim num As Integer Do

8

Consoe-rite.ine(/#scribe un numero entre 0 < 0/) num = Consoeead.ine

9 10 11

.oo$ -hie num = 0 r num "= 0

12 13 14 15 16

Consoe-rite.ine(/# n6mero introducido es / & num) Consoeead.ine() #nd Sub

17 18 19

#nd Modue

Ejercicios Básicos Propuestos y Resueltos de Visual Basic

Recommend Documents