EL JUEGO DE LA LOTO

Dim NUMERO(5) As Double

Dim tiempo1, tiempo2 As Double

Dim TEMP1 As Double

Dim i As Double

Dim res(49) As Double

Private Sub calcular()

For i = 1 To 6

NUMERO(i - 1) = 0

Next i

TEMP1 = TEMP1 + 1

For i = 1 To 6

NUMERO(i - 1) = CInt(Rnd * 48 + 1)

Next i

End Sub

Private Sub verificar()

On Error Resume Next

calcular

If NUMERO(0) >= NUMERO(1) Then verificar

If NUMERO(0) >= NUMERO(2) Then verificar

If NUMERO(0) >= NUMERO(3) Then verificar

If NUMERO(0) >= NUMERO(4) Then verificar

If NUMERO(0) >= NUMERO(5) Then verificar

If NUMERO(1) >= NUMERO(2) Then verificar

If NUMERO(1) >= NUMERO(3) Then verificar

If NUMERO(1) >= NUMERO(4) Then verificar

If NUMERO(1) >= NUMERO(5) Then verificar

If NUMERO(2) >= NUMERO(3) Then verificar

If NUMERO(2) >= NUMERO(4) Then verificar

If NUMERO(2) >= NUMERO(5) Then verificar

If NUMERO(3) >= NUMERO(4) Then verificar

If NUMERO(3) >= NUMERO(5) Then verificar

If NUMERO(4) >= NUMERO(5) Then verificar

End Sub

Private Sub Command1_Click()

TEMP1 = 0

tiempo1 = Time

verificar

For i = 0 To 5

res(NUMERO(i)) = res(NUMERO(i)) + 1

Next i

For i = 0 To 5

Label1(i) = NUMERO(i)

Next i

tiempo2 = Time

Label2.Caption = "En " & tiempo2 - tiempo1 & " segundos" & " y " & TEMP1 & " calculos"

Command3_Click

End Sub

Private Sub Command2_Click()

Form2.Show

End Sub

Private Sub Command3_Click()

With grafico

.ColumnCount = 1

.RowCount = 49

.AutoIncrement = True

For i = 0 To 48

.Data = res(i)

.RowLabel = i

Next i

End With

End Sub

Private Sub Form_Load()

Command3_Click

End Sub

JUEGO2 O FORMULARIO 2

Dim NUMERO2(5) As Double

Dim tiempo21, tiempo22 As Double

Dim TEMP21 As Double

Dim i As Double

Private Sub Command1_Click()

TEMP21 = 0

tiempo21 = Time

verificar2

For i = 0 To 5

Label1(i) = NUMERO2(i)

Next i

tiempo22 = Time

Label2.Caption = "En " & tiempo22 - tiempo21 & " segundos" & " y " & TEMP21 & " calculos"

End Sub

Private Sub verificar2()

Dim i, j As Integer

calcular2

For i = 0 To 4

For j = i + 1 To 5

If NUMERO2(i) >= NUMERO2(j) Then verificar2

Next j

Next i

End Sub

Private Sub calcular2()

For i = 1 To 6

NUMERO2(i - 1) = 0

Next i

TEMP21 = TEMP21 + 1

For i = 1 To 6

NUMERO2(i - 1) = CInt(Rnd * 48 + 1)

Next i

End Sub

Private Sub Form_Load()

End Sub