INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Ejercicios resueltos bsicos y de estructuras de decisin en Visual Basic 6.0

1) Escribir un programa que agregue un valor de la suma. Se debe crear: 3 Label (En el tercer Label cambia el BorderStyle de 0 - None a 1 - Fixed Single) 1 TextBox 1 CommandButton Debe quedar as

Hay dos formas de hacerlo: Forma simple(Nivel: Facil) y Forma simple(Nivel: Normal). Vern porque. Forma simple(Nivel: Facil): El problema de la forma simple es que al agregar el primer valor y al darle sumar nos agrega el primer valor ingresado, en vez de esperar los otros valores que se van a sumar. Por ejemplo:

1) Si ingreso 1 en lugar de quedar el Label3 en blanco te muestra el primer valor ingresado, en vez de quedarse en blanco el Label3, para poder ingresar el siguiente valor sumarlo y mostrar el resultado. Pruebenlo y veran porque.

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente) Option Explicit

1 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Dim Suma As Double _____________________________________________________________________ Private Sub Command1_Click() Dim Valor As Double Valor = Text1 Suma = Suma + Valor Label3 = Suma End Sub Forma simple(Nivel: Normal): Esta es la forma en que vemos si se ha ingresado datos o no en el TextBox usando condicionales, y tambin nos ayuda a sumar de forma cmoda como las calculadora de Windows.

Debe quedarte as:

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Dim Operacion As String

2 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Dim Inicio As Boolean Dim PrimerValor, ValorSiguiente, Suma Private Sub Command1_Click() PrimerValor = Val(Text1.Text) Text1.Text = "" Inicio = False Operacion = "Suma" End Sub

Private Sub Command2_Click() Text1.Text = "" Label3 = "" ValorSiguiente = 0 Inicio = False End Sub

Private Sub Command3_Click()

If Text1 = "" Then MsgBox "Usted no ha ingresado su numero" End If ValorSiguiente = Text1.Text Select Case Operacin Case "Suma" Suma = PrimerValor + ValorSiguiente Label3 = Suma End Select End Sub

2) Escribir un programa que lea 5 nmeros enteros y escriba la media aritmtica (Promedio) de los mismos

Se hace de tres maneras

3 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Primera manera

Se debe crear:

5 TextBox 7 Label (En el ltimo Label cambia el BorderStyle de 0 - None a 1 - Fixed Single) 1 CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click() Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer PrimerValor = Text1 SegundoValor = Text2 TercerValor = Text3 CuartoValor = Text4 QuintoValor = Text5
4 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5 End Sub

Segunda manera:

Esta manera es para que cuando se nos olvide poner el algn valor en cualquier TextBox, nos muestre un mensaje de que falta ingresar un valor en tal TextBox

Se debe crear:

5 TextBox 7 Label (En el ltimo Label cambia el BorderStyle de 0 - None a 1 - Fixed Single) 1 CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click()

5 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer

PrimerValor = Val(Text1) SegundoValor = Val(Text2) TercerValor = Val(Text3) CuartoValor = Val(Text4) QuintoValor = Val(Text5)

If Text1 = "" Then MsgBox "Falta el un valor en la casilla 1" ElseIf Text2 = "" Then MsgBox "Falta el un valor en la casilla 2" ElseIf Text3 = "" Then MsgBox "Falta el un valor en la casilla 3" ElseIf Text4 = "" Then MsgBox "Falta el un valor en la casilla 4" ElseIf Text5 = "" Then MsgBox "Falta el un valor en la casilla 5" Else Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5 End If

End Sub

Tercera forma:

Para eso debemos crear una "Matriz de Controles", lo que significa que debemos crear 9 veces un TEXT1 Como se muestra grficamente. Creamos un TextBox

6 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Le damos click derecho del Mouse y nos saldr el siguiente cuadro lo cual sale una opcin que dice copiar.

Ahora acercamos el cursor en el espacio del formulario le damos click derecho y pegar. O lo ms fcil apretamos la tecla Ctrl y la tecla V las dos (teclas a la vez)

7 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Luego de haberle dado pegar te va a salir un cuadro que te dice lo siguiente: "Ya existe un control llamado Text1 Deseas crear una matriz de controles?"

Les das click en SI o en Aceptar

Creas 5 Text1

7 Labels

y un CommandButton

El formulario debe quedarte as

8 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click()

Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer

PrimerValor = Val(Text1(0)) SegundoValor = Val(Text1(1)) TercerValor = Val(Text1(2)) CuartoValor = Val(Text1(3)) QuintoValor = Val(Text1(4))

If Text1(1) = "" Then MsgBox "Falta el un valor en la casilla 1" ElseIf Text1(2) = "" Then MsgBox "Falta el un valor en la casilla 2" ElseIf Text1(3) = "" Then MsgBox "Falta el un valor en la casilla 3" ElseIf Text1(4) = "" Then MsgBox "Falta el un valor en la casilla 4" ElseIf Text1(5) = "" Then MsgBox "Falta el un valor en la casilla 5" Else Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5 End If End Sub

3) El alquiler de un vehculo cuesta 70.000 soles por da ms 750 soles por cada kilmetro recorrido. Escribir un programa que lea por teclado el nmero de das en alquiler y el nmeros de kilmetros recorridos y muestre el monto total que se debe pagar.
9 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Se debe crear:

2 TextBox 4 Label (En el ltimo Label cambia el BorderStyle de 0 - None a 1 - Fixed Single) 1 CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click() 'Declaramos las constantes Const AlquilerDelAuto = 70000 Const KilometrosRecorrido = 750

Dim DiasDeAlquiler As Integer Dim KilometrosRecorridos As Integer

DiasDeAlquiler = Val(Text1) Kilometros = Val(Text2)

10 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

If Text1 = "" Then MsgBox "No has ingresado los dias" ElseIf Text2 = "" Then MsgBox "No has ingresado los kilometros" Else Label3 = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros) End If End Sub

4) Escribir un programa que lea por teclado un numero entero, el cual representa un monto en soles y muestre cuantos billetes de 50.000, 20.000, 10.000, 5.000, 2.000 y 1.000 y cuantas monedas de 500, 100, 50, 20, 10, 5 y 1 constituyen esa cantidad.

Aqu usaremos InputBox

Se debe crear: 13 TextBox 13 Label 1 CommandButton

Debe quedarte as

11 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Option Explicit Private Sub Command1_Click() Dim Monto As Long 'Ingresamos los datos Monto = InputBox("Ingrese su monto") Text1 = Monto \ 50000 Text2 = Monto \ 20000 Text3 = Monto \ 10000 Text4 = Monto \ 5000 Text5 = Monto \ 2000 Text6 = Monto \ 1000 Text7 = Monto \ 500 Text8 = Monto \ 100 Text9 = Monto \ 50 Text10 = Monto \ 20 Text11 = Monto \ 10 Text12 = Monto \ 5 Text13 = Monto \ 1 End Sub

5) Escribir un programa que solicite al usuario la introduccin de un nmero de tres dgitos y que lo imprima en orden inverso. Ejemplo: Para una entrada de 695,la salida deber ser 596.

Se debe crear: 2 TextBox 2 Label 1 CommandButton

Debe quedarte as

12 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click() Dim Numero As Integer Dim CalculoUno As Integer, RespuestaUno As Integer Dim CalculoDos As Integer, RespuestaDos As Integer Numero = Text1 CalculoUno = Numero \ 100 RespuestaUno = Numero Mod 100 CalculoDos = RespuestaUno \ 10 RespuestaDos = RespuestaUno Mod 10 Text2 = RespuestaDos & CalculoDos & CalculoUno End Sub

6) Dados tres valores enteros, los cuales representan las longitudes de los lados de un tringulo, escribir un programa que determine si el tringulo es issceles, equiltero o escaleno.

Se debe crear: 4 Label 3 TextBox

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

1 CommandButton

Debe quedar as

Aqu esta el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command1_Click() Dim LadoUno As Integer, LadoDos As Integer, LadoTres As Integer

LadoUno = Text1 LadoDos = Text2 LadoTres = Text3

If LadoUno = LadoDos And LadoDos = LadoTres Then Label4 = "Es equiltero" ElseIf LadoUno = LadoDos Or LadoUno = LadoTres Or LadoDos = LadoTres Or LadoDos = LadoUno Or LadoTres = LadoUno Or LadoTres = LadoDos Then Label4 = "Isosceles"

14 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

Else Label4 = "Escaleno" End If End Sub

7) Escribir un programa que dada la hora en HH:MM:SS calcule y muestre la hora un segundo despus.

Donde: HH es la hora MM son los minutos SS son los segundos

Se debe crear: 3 TextBox 3 CommandButton

Debe quedar as

Aqu est el cdigo (Darle doble clck al CommandButton e introducir lo siguiente)

Private Sub Command3_Click() VariableHora = Text1 VariableMinutos = Text2 VariableSegundos = Text3

15 Prof. Pedro Rojas Huamn

INSTITUCION EDUCATIVA N 31746 FRANCISCO BOLOGNESI TALLER DE COMPUTACIN

VariableSegundos = VariableSegundos + 1 If VariableSegundos = 60 Then VariableSegundos = 0 VariableMinutos = VariableMinutos + 1 If VariableMinutos = 60 Then VariableMinutos = 0 VariableHora = VariableHora + 1 If VariableHora > 12 Then VariableHora = 1 End If End If End If Text1 = VariableHora Text2 = VariableMinutos Text3 = VariableSegundos End Sub _____________________________________ Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = ""

End Sub _______________________________ Private Sub Command2_Click() End End Sub _________________________________

NOTA:

A) El CommandButton3 es el botn Hora B) El CommandButton1 es el botn Borrar C) El CommandButton2 es el botn Salir