Secuencias Programacion

17. Realice un programa para alimentar un arreglo estático con 10 elementos numéricos en forma de asignación y mostrarlos en un ListBox.

Objeto Propiedad Valor

Form1 Name:

Text: frmAsignaciondenumeros

Asignación de números

Button 1 Name:

Text: btnLlenarvector

Llenar Vector

Button 2 Name:

Text: btnLimpiar

Limpiar

Button 3 Name:

Text: btnSalir

Salir

ListBox1 Name: ListBox1

Código:

Private Sub btnLlenarvector_Click( )

Dim Num(10) As Integer

Dim i As Integer

For i = 0 To 9

Num(0) = 70

Num(1) = 50

Num(2) = 80

Num(3) = 60

Num(4) = 85

Num(5) = 90

Num(6) = 100

Num(7) = 95

Num(8) = 75

Num(9) = 65

ListBox1.Items.Add(Num(i))

Next i

End Sub

Private Sub btnLimpiar_Click( )

ListBox1.Items.Clear ( )

End Sub

Private Sub btnSalir_Click( )

End

End Sub

18. Realice un programa para alimentar un arreglo estático con 10 elementos numéricos utilizando la herramienta del inputbox y mostrarlos en un ListBox.

Objeto Propiedad Valor

Form1 Name:

Text: frmAsignaciondenumerosporInputBox

Asignación de números por InputBox

Button 1 Name:

Text: btnLlenarvector

Llenar Vector

Button 2 Name:

Text: btnLimpiar

Limpiar

Button 3 Name:

Text: btnSalir

Salir

ListBox1 Name: ListBox1

Código:

Private Sub cmdLlenarvector_Click()

Dim Num(10) As Integer

Dim i As Integer

For i = 0 To 9

Num(i) = InputBox("Captura el número", "Captura de números")

ListBox1.Items.Add (Num(i))

Next i

End Sub

Private Sub btnLimpiar_Click( )

ListBox1.Items.Clear ( )

End Sub

Private Sub btnSalir_Click( )

End

End Sub

19. Realice un programa para alimentar un arreglo estático con 10 nombres de personas utilizando la herramienta del inputbox y mostrarlos en un ListBox.

Objeto Propiedad Valor

Form1 Name:

Text: frmAsignarnombresporInputBox

Asignar nombres por InputBox

Button 1 Name:

Text: btnLlenarvector

Llenar Vector

Button 2 Name:

Text: btnLimpiar

Limpiar

Button 3 Name:

Text: btnSalir

Salir

ListBox1 Name: ListBox1

Código:

Private Sub cmdLlenarvector_Click()

Dim Nom(10) As String

For i = 0 To 9

Nom(i) = InputBox("Captura el nombre de la persona", "Captura de Datos")

List1.AddItem (Nom(i))

Next i

End Sub

Private Sub btnLimpiar_Click( )

ListBox1.Items.Clear ( )

End Sub

Private Sub btnSalir_Click( )

End

End Sub

20. Calcule el promedio de los diez elementos numéricos del programa de la actividad 17

Objeto Propiedad Valor

Form1 Name:

Text: frmPromediodediezelementosnuméricos

Promedio de diez elementos numéricos

Label 1 Name:

Text: lblCantidades

Cantidades

Label 2 Name:

Text: lblPromedio

Promedio

Text 1 Name:

Text: txtPromedio

Button 1 Name:

Text: btnCalcular

Calcular

Button 2 Name:

Text: btnLimpiar

Limpiar

Button 3 Name:

Text: btnSalir

Salir

ListBox1 Name: ListBox1

Código:

Private Sub btnCalcular_Click( )

Dim Num(10) As Single

Dim Suma, Promedio, i As Single

For i = 0 To 9

Num(0) = 70

Num(1) = 50

Num(2) = 80

Num(3) = 60

Num(4) = 85

Num(5) = 90

Num(6) = 100

Num(7) = 95

Num(8) = 75

Num(9) = 65

ListBox1.Items.Add(Num(i))

Suma = (Suma + Num(i))

Promedio = (Suma / 10)

Next i

txtPromedio.Text = Promedio

End Sub

Private Sub btnLimpiar_Click( )

ListBox1.Items.Clear ( )

txtPromedio.Text = " "

End Sub

Private Sub btnSalir_Click( )

End

End Sub

21. Realice un programa para que sume dos arreglos de 10 elementos numéricos y almacenar dicha suma en otro arreglo.

Objeto Propiedad Valor

Form1 Name:

Text: frmSumadedosarreglos

Suma de dos arreglos

Label 1 Name:

Text: lblCantidad1

Cantidad 1

Label 2 Name:

Text: lblCantidad2

Cantidad 2

Label 3 Name:

Text: lblSuma

Suma

Button 1 Name:

Text: btnCalcular

Calcular

Button 2 Name:

Text: btnLimpiar

Limpiar

Button 3 Name:

...