ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-10 02:25:20 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Change site

Browse source
This commit is contained in:
Ivan Bushchik 2022-04-03 21:21:29 +03:00
parent 4a13113578
commit ad8c259bc1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
roulette/Program.vb
View file

@ -2,7 +2,7 @@
Module Program Module Program
'https://github.com/ivabus/roulette 'https://github.com/ivabus/roulette
'https://ivabus.github.io/roulette 'https://ivabus.dev/roulette
Dim ReadOnly _ Dim ReadOnly _
Ring(,) As Integer = Ring(,) As Integer =
{{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29, {{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
@ -54,7 +54,7 @@ Module Program
"# # # # # # # # # # # ", "# # # # # # # # # # # ",
"# # ### ### ##### ##### # # ##### "} "# # ### ### ##### ##### # # ##### "}
Function GetIndex(mass() As Integer, obj As Integer) As Integer 'Функция получает индекс объекта в массиве Private Function GetIndex(mass() As Integer, obj As Integer) As Integer 'Функция получает индекс объекта в массиве
For i = 0 To UBound(mass) For i = 0 To UBound(mass)
If mass(i) = obj Then Return i If mass(i) = obj Then Return i
Next Next