Guest User

Untitled

a guest
Jul 22nd, 2019
58
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. e(0) = wartość liczbowa
  2. e(1) = wartość liczbowa
  3. e(2) = wartość liczbowa
  4. e(3) = wartość liczbowa
  5.  
  6. i = CmdEvents.Name
  7. j = CmdEvents.Tag
  8. ReDim WYB(i, j)
  9.  
  10. 'po kolei
  11.  
  12.  
  13. counter = 0
  14.  
  15. For i = 1 To CmdEvents.Name
  16.  
  17. For j = 1 To CmdEvents.Tag
  18.  
  19. If counter <= e(k) Then
  20. WYBOR = f(k)
  21. WYB(i, j) = WYBOR
  22. counter = counter + 1
  23. Else
  24. counter = 0
  25. k = k + 1
  26. j = j - 1
  27.  
  28. End If
  29.  
  30.  
  31. Next j
  32. Next i
RAW Paste Data