Dificultad con array :S - VB-MUNDO

Zion_Tm · #1 (**permalink**) 12-11-2006, 01:28:46

Buenas tardes amigos :
Solo quiero hacerles una consulta breve , tal vez suene tonto pero lo hare igual.

Estoy haciendo un ejercicio donde a traves de un inputbox ingreso valores como el nombre y la nota de cada alumno,
son 12 alumnos , y utilise un array.

En un boton debe mostrar un listado que segun su posicion sea par ( nombre y nota )
y en otro boton mostrar un listado que segun su posicion sea inpar ( nombre y nota)

Expongo aqui el codigo actual, si alguien me puede ayudar se lo agradezco ya que me quede barado.

Código:

Option Explicit


Dim Alumno(12) As String
Dim Nota(12) As String                  ' Declaracion de variables
Dim i As Integer
Private Sub Command1_Click()            '
For i = 1 To 12
    Alumno(i) = InputBox("Ingrese nombre", "Alumnos")       ' Abrimos un doble inputbox
    Nota(i) = InputBox("Su nota es", " Ingrese su nota")    ' dentro de un ciclo for
Next i

End Sub

Private Sub Command2_Click()
Form1.Cls
For i = 1 To 12
    Print Nota(i); "  Puntos se saco  "; Alumno(i)         ' Mostramos los valores
Next i                                                     ' Previamente cargados
 

End Sub

Private Sub Command3_Click()
Dim Menor As Byte
Menor = 255
For i = 1 To 12
If Nota(i) < Menor Then
Menor = Nota(i)
End If
Next i
Print "La peor nota fue de", (Menor), "puntos"        ' Imprimimos la nota mas baja

End Sub

Private Sub Command4_Click()
Dim Mayor As Byte
Mayor = 0
For i = 1 To 12
If Nota(i) > Mayor Then
Mayor = Nota(i)
End If
Next i
Print "La mejor nota fue de", (Mayor), "puntos"     ' Imprimimos la mejor nota
End Sub

acalanto · #2 (**permalink**) 12-11-2006, 14:43:48

Creo que este código hace lo que pides.

Código:

Private Sub Command5_Click()
Form1.Cls
For i = 2 To 12 Step 2
    Print "Alumno: " + Alumno(i) + " nota: " + Nota(i) + vbTab + vbTab + "  Par(" + CStr(i) + ")" ' Mostramos los valores"
Next i                                                     ' Previamente cargados
End Sub

Private Sub Command6_Click()
Form1.Cls
For i = 1 To 11 Step 2
    Print "Alumno: " + Alumno(i) + " nota: " + Nota(i) + vbTab + vbTab + "  Impar(" + CStr(i) + ")" ' Mostramos los valores"
Next i
End Sub

Zion_Tm · #3 (**permalink**) 13-11-2006, 00:53:18

Muy buena concatenacion acalanto. Gracias :smt024