Ejercicios

Ejercicios resueltos básicos y de estructuras de decisión 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). Verán porque.



Formasimple(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 elresultado. Pruebenlo y veran porque.

Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)


Option Explicit
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 enque vemos si se ha ingresado datos o no en el TextBox usando condicionales, y también nos ayuda a sumar de forma cómoda como las calculadora de Windows.

Debe quedarte así:




Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)


Dim Operacion As String
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 Operacion
        Case "Suma"
            Suma = PrimerValor + ValorSiguiente
           Label3 = Suma
    End Select
End Sub


2) Escribir un programa que lea 5 números enteros y escriba la media aritmética (Promedio) de los mismos


Se hace de tres maneras


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 código (Darle doble clíckal 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


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


End Sub


Segunda manera:Esta manera es para que cuando se nos olvide poner el algún valor en cualquierTextBox, 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 código (Darle doble clíck 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)
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 unvalor 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...