+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rastgele Sayı (/konu-rastgele-sayi.html)
Sayfalar:
1
2
RE: Rastgele Sayı - alicimri - 21/11/2020
Aşağıdaki kod 31'e kadar sıralanmış sorudan, 6 adetnin sıra numarasını benzersiz rastgele seçiyor.
Kod:
Sub a()
Ssoru = 6
Tsoru = 31
Do While say < Ssoru
Randomize
ilk = Int((Tsoru * Rnd) + 1)
If InStr(1, yaz, "'" & ilk & "'") = 0 Then
yaz = yaz & "'" & ilk & "'"
say = say + 1
End If
Loop
MsgBox Replace(Replace(yaz, "''", "*"), "'", "")
End Sub