Ejercicio 1: Media, mayor y menor de un
conjunto fijo.
Realizar un programa que pida las notas
de 40 alumnos por pantalla y muestre un menú́ de opciones: 1. Listar notas, 2.
Calcular la media, 3. Calcular el menor, 4. Calcular el mayor.
YA ANTES SUBIDO
Ejercicio 2: Media, mayor y menor de un
conjunto prefijado.
Igual que el apartado anterior, pero en
vez de 20 alumnos ahora el número de alumnos se le preguntará al usuario al
iniciar el programa, este número no podrá́ superar los 100 alumnos (controlar
que el usuario introduzca un número menor que 100).
YA ANTES SUBIDO
Ejercicio 3: Arrays multidimensionales.
Edificio1.
Se quiere controlar el número de
habitantes de un edificio con 6 pisos y 4 puertas (A, B, C, y D) en cada piso.
Realizar un programa que pida al usuario
que introduzca el número de habitantes de cada puerta del edificio. El programa
debe decir la vivienda (piso y puerta) que más habitantes tiene del edificio.
Código:
Public Class Form1
Dim Datos(6, 4) As Integer
Private Sub Mayor()
Dim fila, columna, piso, faux, caux, temp As Integer
Dim puerta As String
fila = 0
columna = 0
puerta = ""
For faux = 0 To 5
For caux = 0 To 3
If Datos(fila, columna) < Datos(faux, caux) Then
temp = Datos(fila, columna)
Datos(fila, columna) = Datos(faux, caux)
Datos(faux, caux) = temp
Select Case faux
Case 0
piso = 1
Case 1
piso = 2
Case 2
piso = 3
Case 3
piso = 4
Case 4
piso = 5
Case 5
piso = 6
End Select
Select Case caux
Case 0
puerta = "A"
Case 1
puerta = "B"
Case 2
puerta = "C"
Case 3
puerta = "D"
End Select
End If
Next
Next
lbl1.Text = Datos(0, 0)
Lblp.Text = "Piso" + "" + piso.ToString
Lblpuerta.Text = "Puerta" + "" + puerta
End Sub
Private Sub BtnCap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCap.Click
Dim fila, columna As Integer
LblContenidoMa.Text = ""
Try
For fila = 0 To 5
For columna = 0 To 3
Datos(fila, columna) = InputBox("Digite un Numero de habitantes")
LblContenidoMa.Text = LblContenidoMa.Text + Space(15) + Datos(fila, columna).ToString
Next
LblContenidoMa.Text = LblContenidoMa.Text + vbCrLf + vbCrLf
Next
Mayor()
Catch ex As Exception
MsgBox("Debe insertar datos numericos")
End Try
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lblp.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 4: Arrays multidimensionales.
Edificio2.
Se quiere controlar el número de
habitantes de un edificio con 6 pisos y 4 puertas (A, B, C, y D) en cada piso.
Realizar un programa que pida al usuario
que introduzca el número de habitantes de cada puerta del edificio. El programa
debe mostrar la media de habitantes de cada piso.
Código:
Public Class Form1
Dim datos(5, 3) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fila, columna As Integer
Dim promfila As Double
lblmatriz.Text = ""
Try
For fila = 0 To 5
For columna = 0 To 3
datos(fila, columna) = InputBox("digite un numero")
lblmatriz.Text = lblmatriz.Text + Space(14) + datos(fila, columna).ToString
promfila = promfila + (datos(fila, columna)) / 4
Next
lblpromfila.Text = lblpromfila.Text + promfila.ToString + vbCrLf + vbCrLf
promfila = 0
lblmatriz.Text = lblmatriz.Text + vbCrLf + vbCrLf
Next
Catch ex As Exception
MsgBox("debes insertar numeros")
lblmatriz.Text = ""
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 5:
Escriba un programa que permita obtener
el número de elementos positivos de un vector de 10 elementos.
Código:
Public Class Form1
Dim vecnums(9) As Double
Dim negativos As Double
Dim fila% = 0
Private Sub guardar()
If fila < 10 Then
vecnums(fila) = txtnum.Text
MsgBox("calificacion guardada", MsgBoxStyle.Information, MsgBoxStyle.OkOnly)
txtnum.Text = ""
fila = fila + 1
txtnum.Focus()
Else
MsgBox("base de datos llena solo 10 numeros")
End If
End Sub
Private Sub mostrar()
For i = 0 To 9
If vecnums(i) > 0 Then
negativos = vecnums(i)
lstnumerospos1.Items.Add(negativos.ToString)
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
guardar()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mostrar()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lstnumerospos1.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 6:
Calcular el número de elementos
negativos, cero y positivo de un vector de 20 elementos.
Código:
Public Class Form1
Dim elementos(20) As Integer
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 19
elementos(i) = InputBox("digita numero")
If elementos(i) < 0 Then
lstnegativos.Items.Add(elementos(i))
ElseIf elementos(i) = 0 Then
lstcero.Items.Add(elementos(i))
ElseIf elementos(i) > 0 Then
lstpostivos.Items.Add(elementos(i))
End If
lblcero.Text = lstcero.Items.Count
lblnega.Text = lstnegativos.Items.Count
lblpos.Text = lstpostivos.Items.Count
Next
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 7:
Hacer un programa que permita insertar o
eliminar elementos de un arreglo.
Código:
Public Class Form1
Dim arreglo() As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Crear.Click
Dim n As Integer
n = TxtTamaño.Text
ReDim arreglo(n)
MsgBox("Tamaño del Arreglo Guardado", MsgBoxStyle.Information, MsgBoxStyle.OkOnly)
TxtTamaño.Text = ""
TxtAgregar.Focus()
End Sub
Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
Dim m As Integer
m = TxtAgregar.Text
ReDim Preserve arreglo(m)
MsgBox("Elementos Agregados", MsgBoxStyle.Information, MsgBoxStyle.OkOnly)
TxtAgregar.Text = ""
TxtAgregar.Focus()
End Sub
Private Sub BtnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBorrar.Click
Erase arreglo
TxtTamaño.Focus()
End Sub
Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
Me.Close()
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 8:
Sean A(m,n) y B(n) una matriz y un
arreglo respectivamente, hacer un programa que asigne valores a A, a partir de
B teniendo en cuenta los siguientes criterios:
A(m,n)=(m) si
m<=n
A(m,n)=0 si
m>n
Código:
Imagen Depurando el Programa:
Ejercicio 9:
Hacer un programa que intercambie las
filas de una matriz. Los elementos de la fila 0 deben intercambiarse con los de
la fila N, la fila 1 con los de la fila N-1 y así sucesivamente. Imprimir las
dos matrices.
Código:
Imagen Depurando el Programa:
Ejercicio 10:
Hacer programa de un arreglo de 15
elementos, tipo entero. Presentar contenido desordenado en caja de texto o
lista. Presentar contenido ordenado en caja de texto o lista, del mayor al
menor.
Código:
Public Class Form1
Dim arreglo(15) As Integer
Dim fila As Integer
Dim c As Integer
Dim d As Integer
Private Sub guardar()
If fila < 15 Then
arreglo(fila) = txtnumero.Text
fila = fila + 1
MsgBox("el numero ha sido guardado")
Else
MsgBox("solo se aceptan 15 numeros")
End If
txtnumero.Text = ""
txtnumero.Focus()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
guardar()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For i = 1 To 15
c = arreglo(i)
lstdesordenado.Items.Add(c)
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Array.Sort(arreglo)
For i = 0 To 15
c = arreglo(i)
lstordenado.Items.Add(c)
Next
End Sub
End Class
Imagen Depurando el Programa:
Ejercicio 11:
Matriz dinámica bidimensional, tipo
cadena de caracteres, presentar datos.
Código:
Public Class Form1
Dim Datos(,) As String
Dim F, C As Integer
Private Sub Guardar()
F = TextBoxCantFil.Text
C = TextBoxCanCol.Text
ReDim Datos(F - 1, C - 1)
End Sub
Private Sub BtnCapturarNumeros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCapturarNumeros.Click
Guardar()
Dim fila, columna As Integer
LblMatriz.Text = ""
Try
For fila = 0 To F - 1
For columna = 0 To C - 1
Datos(fila, columna) = InputBox("Teclee un Nombre")
LblMatriz.Text = LblMatriz.Text + Space(15) + Datos(fila, columna).ToString
Next
LblMatriz.Text = LblMatriz.Text + vbCrLf + vbCrLf
Next
Catch ex As Exception
MsgBox("Debe Insertar Una Cadena de Caracteres")
LblMatriz.Text = ""
End Try
End Sub
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Guardar()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Imagen Mostrando La Depuración:
Ejercicio 12:
Matriz dinámica bidimensional numérica.
Presentar promedio por fila y columna.
Código:
Public Class Form1
Dim Datos(,) As Integer
Dim F, C As Integer
Private Sub Guardar()
F = TextBoxCantFil.Text
C = TextBoxCanCol.Text
ReDim Datos(F - 1, C - 1)
End Sub
Private Sub BtnCapturarNumeros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCapturarNumeros.Click
Guardar()
Dim fila, columna, sfilas, scolumnas As Integer
LblMatriz.Text = ""
Try
For fila = 0 To F - 1
For columna = 0 To C - 1
Datos(fila, columna) = InputBox("Digite un Numero")
LblMatriz.Text = LblMatriz.Text + Space(15) + Datos(fila, columna).ToString
sfilas = sfilas + Datos(fila, columna)
Next
LblNumF.Text = ((LblNumF.Text + sfilas.ToString) / C).ToString + vbCrLf + vbCrLf
sfilas = 0
LblMatriz.Text = LblMatriz.Text + vbCrLf + vbCrLf
Next
For columna = 0 To C - 1
For fila = 0 To F - 1
scolumnas = scolumnas + Datos(fila, columna)
Next
LbLNumC.Text = ((LbLNumC.Text + Space(14) + scolumnas.ToString) / F).ToString
scolumnas = 0
Next
Catch ex As Exception
MsgBox("Debe Insertar Datos Numericos")
LblMatriz.Text = ""
LbLNumC.Text = ""
LblNumF.Text = ""
End Try
End Sub
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Guardar()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Imagen Depurando el Programa:
