Mensajes

Si no aprendes con este curso, mejor dedicate a otra cosa

http://www.mundoprogramacion.com/vb/cursos_vb/basico/indice.htm

salu2

ya resolvi el reto, a mi me funciona bien no se que les paresca a ustedes

Código [Seleccionar] Expandir

Private Sub cmdCalcular_Click()
    Dim n1 As Integer
    Dim n2 As Integer
    Dim n3 As Integer
    Dim n4 As Integer
    Dim n5 As Integer
    Randomize
    n1 = Int(Rnd * 99) + 1
    n2 = Int(Rnd * 99) + 1
    n3 = Int(Rnd * 99) + 1
    n4 = Int(Rnd * 99) + 1
    n5 = Int(Rnd * 99) + 1
   
    If n1 <> n2 And n1 <> n3 And n1 <> n4 And n1 <> n5 And n2 <> n3 And n2 <> n4 And n2 <> n5 And n3 <> n4 And n3 <> n5 And n4 <> n5 Then
        lbl1.Caption = n1
        lbl2.Caption = n2
        lbl3.Caption = n3
        lbl4.Caption = n4
        lbl5.Caption = n5
    Else
        cmdCalcular_Click
    End If
   
End Sub

Private Sub cmdImprimir_Click()
    On Error Resume Next
    cuadrodedialogo.CancelError = True
    cuadrodedialogo.ShowPrinter
    If Err = 0 Then
        Printer.Font = "Comic Sans MS"
        Printer.FontSize = 36
        Printer.Print " "
        Printer.Print "Los numeros generados por el LOTO son: " & vbCrLf & lbl1.Caption & " " & lbl2.Caption & " " & lbl3.Caption & " " & lbl4.Caption & " " & lbl5.Caption
        Printer.EndDoc
    End If
End Sub

Private Sub cmdSalir_Click()
    End
End Sub


acepto sugerencias y notifiacion d error, un gran saludo