From ad8c259bc17a89c12ee1d43d5d3fffe836c47067 Mon Sep 17 00:00:00 2001 From: Ivan Bushchik Date: Sun, 3 Apr 2022 21:21:29 +0300 Subject: [PATCH] Change site --- roulette/Program.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/roulette/Program.vb b/roulette/Program.vb index d38bd4e..887a1dd 100644 --- a/roulette/Program.vb +++ b/roulette/Program.vb @@ -2,7 +2,7 @@ Module Program 'https://github.com/ivabus/roulette - 'https://ivabus.github.io/roulette + 'https://ivabus.dev/roulette Dim ReadOnly _ 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, @@ -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) If mass(i) = obj Then Return i Next