من یه کد تو vb 6 نوشتم که موقع لود شدن فرم تو چند تا label اعداد بین 1 تا تعداد لیبل ها رو به صورت random می نویسه ببین فکر کنم به دردت بخورا فقط یه کم باید تغییرش بدی
PrivateSub Form_Load()
For i = 1 To Label1.Count
Call rndnumber
Do
Call test
LoopWhile (n = 1)
Label1(i - 1).Caption = rndnum
Next
For i = 1 To Label1.Count
Next
EndSub
PrivateSub rndnumber()
Do
rndnum = Int(Rnd * 10) + 1
Randomize Timer
LoopWhile (rndnum > 9)
End
Sub
PrivateSub test()
n = 0
For
j = 1 To i - 1
If Label1(j - 1).Caption = rndnum Then
n = 1
EndIf
If n = 1 Then
Call rndnumber
EndIf
Next j
End
Sub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول