software

EJERCICIOS PARA PROGRAMACION RAD
CON CADA UNA DE LAS ESTRUCTURAS

1) Escribir un programa que agregue un valor de la suma
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 número"
End If
ValorSiguiente = Text1.Text
    SelectCase Operacion
        Case "Suma"
            Suma = PrimerValor + ValorSiguiente
            Label3 = Suma
    End Select
End Sub








2) Un programa que me utilice case
PrivateSub Command1_Click() 
Dim a As String 
a = Combo1.Text 
Select Case a 
Case "LACTEOS" 
Text1.Text = 1 
Case "FRUTAS" 
Text1.Text = 2 
Case "VERDURAS" 
Text1.Text = 3 
Case "BOTANA" Text1.Text = 4 
Case "CARNES" 
Text1.Text = 5 
Case "ENLATADOS" 
Text1.Text = 6 
End Select 
End Sub
3) Escribir un programa en Visual Basic que lea N números, calcule la media aritmética de losmismos y muestre los números leídos que son mayores que la media calculada.









Private Sub Command1_Click()
'Declaramos el vector del 1 al 1000
Dim Numeros(1 To 1000) As Integer
   'Atrapamos los numeros en un TextBox y luego lo pasamos a la variable N
    N = Val(Text1)
    'Contamos desde el numeros que ingresamos en TextBox
    For K = 1 To N
    
        Numeros(K) =InputBox("Numero " & K)
            Suma = Suma + Numeros(K)
        Next
        Prom = Suma / N
        LabelP = Prom
            For K = 1 To N
                If Numeros(K) > Prom Then
               'En español es Agregar Elementos(AddItem) en el evento List1
                List1.AddItem Numeros(K)
                End If
            Next
            
End Sub

4)  crear un programa...