SHARE
TWEET

Untitled

a guest Sep 14th, 2017 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. For Sim = 1 To 1000
  2.  
  3. T = 1
  4. I = 1
  5.  
  6. For I = 1 To 12
  7.  
  8.     If T = 1 Then
  9.         T = 2
  10.     ElseIf T = 9 Then
  11.         T = 8
  12.     Else
  13.         Rando = Rnd()
  14.         If Rando < 0.5 Then
  15.             T = T - 1
  16.         ElseIf Rando > 0.5 Then
  17.             T = T + 1
  18.         End If
  19.     End If
  20.  
  21. I = I + 1
  22.  
  23. Next I
  24.  
  25.  
  26. If T = 1 Then
  27. myOne = myOne + 1
  28. ElseIf T = 2 Then
  29. myTwo = myTwo + 1
  30. ElseIf T = 3 Then
  31. myThree = myThree + 1
  32. ElseIf T = 4 Then
  33. myFour = myFour + 1
  34. ElseIf T = 5 Then
  35. myFive = myFive + 1
  36. ElseIf T = 6 Then
  37. mySix = mySix + 1
  38. ElseIf T = 7 Then
  39. mySeven = mySeven + 1
  40. ElseIf T = 8 Then
  41. myEight = myEight + 1
  42. ElseIf T = 9 Then
  43. myNine = myNine + 1
  44. End If
  45.  
  46.  
  47. Next Sim
  48.    
  49. Randomize
  50. Rando = Rnd()
RAW Paste Data
Top