VB6: EJERCICIO8

Dim numeros() As Integer
Dim a, b, c


Private Sub cmdCalcular_Click()
For b = 1 To a
total = total + numeros(b)
Next b
lblResultado.Caption = total / a

End Sub

Private Sub Form_Load()
a = InputBox("Cuantos números vas a introducir", "Valores?")
ReDim numeros(a)

For b = 1 To a
c = InputBox("Introduce un valor numérico :", "Introducción de números")
numeros(b) = c
Next b



End Sub

VB6: TEMPORIZADOR

Private Sub Timer2_Timer()
Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 2 Then
   tiempo = 0
   'accion a realizar
   Unload Me
End If
End Sub