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

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

Para j = 1 a 5

Imprimir bt(j); p>

Salir para

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