diff options
Diffstat (limited to 'VB.Net Projects')
| -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 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
|
