diff options
| -rw-r--r-- | VB.Net Projects/MaxMin/MaxMin/Form1.vb | 4 |
1 files changed, 2 insertions, 2 deletions
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
|