Programación VB, ingrese las calificaciones de los estudiantes (matemáticas, física, química, inglés) en la matriz y recupere las calificaciones de los estudiantes. Utilice matrices dinámicas.
Cree un nuevo proyecto y agregue controles comando1 comando2. La depuración de XP vb6.0 pasó.
El código es el siguiente:
Opción Explícita
Opción Base 1
Dim Cj() As String
Dim bt(5) como cadena
Dim i como entero
Dim j como entero
Dim xsNo como entero
Privado Sub Command1_Click( )
xsNo = Val(InputBox("Ingrese el número total de estudiantes"))
ReDim Cj(xsNo,5)
Para i = 1 a xsNo
Para j = 1 a 5
Cj(i, j) = InputBox("Ingrese" amp; bt(j))
Siguiente j p>
Siguiente i
End Sub
Subcomando privado2_Click()
Atenuar findStr como cadena
findStr = InputBox( "Ingrese el nombre del estudiante que desea verificar")
For i = 1 To xsNo
If InStr(1, Cj(i, 1) , findStr) gt; 0 Entonces p>
Para j = 1 a 5
Imprimir bt(j); p>
Salir para p>
Finalizar si
Siguiente i
Si gt; xsNo Entonces MsgBox "¡No se encontró el estudiante que desea verificar! "
Fin Sub
Sub privado Form_Load()
bt(1) = "Nombre"
bt(2) = " Puntuación de Matemáticas"
bt (3) = "Puntuación de Física"
bt(4) = "Puntuación de Química"
bt(5) = "Puntuación de Inglés "
Fin del subtítulo