From 7502b7f3aec5ef372c122eeafa55e88f6d3f14af Mon Sep 17 00:00:00 2001 From: Kamen Mladenov Date: Tue, 23 Feb 2021 12:50:16 +0200 Subject: Actual fix for MinMax project array length --- VB.Net Projects/MaxMin/MaxMin/Form1.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'VB.Net Projects') diff --git a/VB.Net Projects/MaxMin/MaxMin/Form1.vb b/VB.Net Projects/MaxMin/MaxMin/Form1.vb index dd92d54..f75c013 100644 --- a/VB.Net Projects/MaxMin/MaxMin/Form1.vb +++ b/VB.Net Projects/MaxMin/MaxMin/Form1.vb @@ -1,7 +1,7 @@ Public Class Form1 Const numberCount = 10, minimumPossible = 1, maxiumPossible = 100 - Dim numbers(numberCount) As Integer + Dim numbers(numberCount - 1) As Integer Dim rng As Random = New Random Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click, MyBase.Load @@ -29,7 +29,7 @@ End Sub Private Sub RefreshNumbers() - For index = 1 To numberCount Step 1 + For index = 0 To (numberCount - 1) 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 -- cgit v1.2.3