From 02b87d0395f21b4355e2e2987aace5c3bf817c46 Mon Sep 17 00:00:00 2001 From: Kamen Mladenov Date: Tue, 23 Feb 2021 12:21:03 +0200 Subject: Minor MaxMin VB project change --- VB.Net Projects/MaxMin/MaxMin/Form1.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/VB.Net Projects/MaxMin/MaxMin/Form1.vb b/VB.Net Projects/MaxMin/MaxMin/Form1.vb index 7c054c4..dd92d54 100644 --- a/VB.Net Projects/MaxMin/MaxMin/Form1.vb +++ b/VB.Net Projects/MaxMin/MaxMin/Form1.vb @@ -29,7 +29,7 @@ End Sub Private Sub RefreshNumbers() - For index = 0 To numberCount Step 1 + For index = 1 To numberCount Step 1 numbers(index) = rng.Next(minimumPossible, maxiumPossible + 1) ' Exclusive upper bound index -= numbers.Count(Function(x) x = numbers(index)) - 1 ' numbers.Count(...) is always between 1 and 2 Next @@ -56,4 +56,4 @@ control.ForeColor = Color.Red End If End Sub -End Class \ No newline at end of file +End Class -- cgit v1.2.3