Could somebody help me finish this code
Ok so thanks to your help I have come up with this code so far...
This is giving me random numbers, but now I cant seem to get them into ascending order.Could anyone help me with this?
dim intarray(49) as integer
dim intcount as integer
dim intindex as integer
dim repeated as boolean
dim obj as object
label1.text=intarray(0)
label2.text=intarray(1)
label3.text=intarray(2)
label4,text=intarray(4)
label5.text=intarray(5)
label6.text=intarray(6)
For intcount=0 to 5
Do
repeated=false
intnumber=int((50 * rnd())+1)
for intindex=0 to 5
if intnumber=intarray(intindex) then
repeated=true
end if
Next
Loop until repeated=False
intarray(intcount)=intnumber
Next
intindex= -1
for each obj in groupbox1.controls
intindex+=1
obj.text=intarray(intindex)
Next
end if
|
