SHARE
TWEET

Untitled

a guest Jul 22nd, 2019 55 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top