From 9e12a67b687edc1f4308b044168d62dae8699526 Mon Sep 17 00:00:00 2001 From: Ivan Bushchik Date: Tue, 4 May 2021 08:39:19 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=B0=D0=BC=D1=8B=D0=B9=20=D0=BD=D0=B5?= =?UTF-8?q?=D0=BD=D1=83=D0=B6=D0=BD=D1=8B=D0=B9=20=D0=BA=D0=BE=D0=BC=D0=BC?= =?UTF-8?q?=D0=B8=D1=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- roulette/Program.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/roulette/Program.vb b/roulette/Program.vb index 8401210..533b7bc 100644 --- a/roulette/Program.vb +++ b/roulette/Program.vb @@ -16,7 +16,7 @@ Module Program "# # # # # # # # # # # ", "# # # # # # # # # # # ", "# # ### ### ##### ##### # # ##### "} - Function GetIndex(mass() As Integer, obj As Integer) As Integer + Function GetIndex(mass() As Integer, obj As Integer) As Integer 'Функция получает индекс объекта в массиве For i = 0 To UBound(mass) If mass(i) = obj Then Return i Next @@ -26,7 +26,7 @@ Module Program Sub displayHistory(history() As Integer) Console.ForegroundColor = ConsoleColor.DarkBlue Console.Write("История выпадений (последние 15): ") - For i = If(Ubound(history) > 14, Ubound(history) - 15, 0) To UBound(history) + For i = If(Ubound(history) > 14, Ubound(history) - 15, 0) To UBound(history) Console.ForegroundColor = colors(ring(1,getindex(ringRank0, history(i)))) Console.Write(history(i) & " ") Next @@ -341,7 +341,7 @@ Module Program Console.ForegroundColor = ConsoleColor.DarkBlue Console.WriteLine() Loop - Console.WriteLine("У Вас кончились фишки, игра закончена.") + Console.WriteLine("У Вас кончились фишки, игра окончена.") Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.") Console.ReadKey() End Sub