Új hozzászólás Aktív témák

• #197 [HUN]Zolee őstag

  Új Válasz 2005-04-24 18:32:50 #197

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  [HUN]Zolee

  őstag

  A progi belemegy egy végtelen ciklusba, de nemtudom mért? Bővebben: link itt a teljes pogram.
  
  

  Option Explicit
  Dim s(15), i, j, cap As Integer
  
  Private Sub Command3_Click()
  For i = 0 To 15
   s(i) = 0
  Next
  i = 0
  j = 0
  For j = 1 To 15
  
  Me.Print j, cap
  'cikl:
  Randomize
      s(1) = j
      cap = (Rnd * 14) + 1
       For i = 1 To 15
       'Me.Print i, cap
         If s(i) = cap Then
          'GoTo cikl
          s(j) = 0
        Else
         s(j) = cap
        End If
      Next
  Next
  For i = 1 To 15
  
   Command1(i - 1).Caption = s(i)
   Next
  End Sub

Új hozzászólás Aktív témák