Hallo, ik zou in deze code hieronder ervoor willen zorgen dat er geen dubbele getallen inzitten iemand een idee?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| 'publieke variabelen declareren
Dim statistiek(29), sortstatistiek(29), i, j, grootstegetal, kleinstegetal, positieklein, positiegroot As Integer
Dim temp2 As String
Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
'enkele private variablen
Dim random As New Random
Dim temp As String
'grootste en kleinste getal hun maximum/minimumwaarde geven
grootstegetal = 0
kleinstegetal = 100
'getallen genereren
For i = 0 To 29
statistiek(i) = random.Next(1, 100)
temp = temp & statistiek(i) & vbCrLf
Next
'getallen uitvoeren in textbox
txtReeks.Text = temp.ToString
'grootstegetal bepalen en positie bepalen
For i = 0 To 29
If grootstegetal < statistiek(i) Then
grootstegetal = statistiek(i)
positiegroot = i + 1
txtGrootstegetal.Text = grootstegetal.ToString & " Positie: " & positiegroot
End If
Next
'kleinste getal bepalen en positie bepalen
For i = 0 To 29
If kleinstegetal > statistiek(i) Then
kleinstegetal = statistiek(i)
positieklein = i + 1
txtKleinstegetal.Text = kleinstegetal.ToString & " Positie: " & positieklein
End If
Next
End Sub |