Un array es un medio de guardar un conjunto de objetos de la misma clase. En el caso de que se tengan varios botones que realicen una función similar (Las teclas numéricas de una calculadora, p.e.) puede hacerse un array con estos botones de comando. Todos tendrán el mismo nombre, y se diferencian por un índice. Esta propiedad Index toma el número de ese índice.
Private Sub Command1_Click()
Dim promedio As Single
Dim max As Single
Dim min As Single
Dim suma As Single
Dim i As Integer
suma = 0
For i = 0 To 6
suma = suma + val (Text1(i).Text)
Next i
promedio = suma / 6
Text2.Text = promedio
For i = 0 To 6
If max < Text1(i).Text Then
max = Text1(i).Text
If min > Text1(i).Text Then
min = Text1(i).Text
End If
End If
Text3.Text = max
Text4.Text = min
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
