hej!

jag har ett program som slumpar fram nummer...
koden ser ut så här:

Dim tmpArray(35) As Long, i As Long, x As Integer

i = 1
Do Until i > 7 'antal nummer som ska slumpas
x = Rnd * 34 + 1

If tmpArray(x) = 0 Then

tmpArray(x) = x
Label1(i) = x
Label1(i).Top = "850"
Label1(i).Left = i * "820"
i = i + 1

End If

Loop

men... där står det att den ska slumpa fram 7 olika nummer men jag vill i programet välja det genom en optionbutton:

option1(0) = 10 nummer
option1(1) = 20 nummer
option1(2) = 30 nummer
o.s.v..

tacksam för svar!

<code>
Dim op As OptionButton
Dim antal As Integer
For Each op In Option1
If op.Value Then
antal = (op.Index + 1) * 10
End If
Next

' Do Until i > antal
'.......
'.............
</code>


/ibbe

Hej
Om du skriver så här får du aldrig med 35
>Do Until i > 7 'antal nummer som ska slumpas
x = Rnd * 34 + 1

'Så här skall det se ut
Dim tmpArray(35) As Long, i As Long, x As Long
Dim optValue As Long
optValue = 7
'Sen lägger du in tex. tre optionboxar
If Option1.Value = True Then optValue = 10
If Option2.Value = True Then optValue = 11
If Option1.Value = True Then optValue = 12

Do Until i > optValue 'antal nummer som ska slumpas
x = Int(Rnd * 35) + 1

ungefär så
Mvh
Sven
Kolla exempel här under
sidan 2 2001-11-13 Sortering igen av Id
DS