Dim Cikanlar As String
Cikanlar = "|"
Randomize
Do
soru_sayisi = Int((33 * Rnd) + 1)
i = InStr(Cikanlar, "|" & soru_sayisi & "|")
If i = 0 Then
Cikanlar = Cikanlar & soru_sayisi & "|"
Exit Do
End If
Loop Until i < 1 '
Rastgele Sayı
Bu Konudaki Yorumlar |
Rastgele Sayı - Yazar: Gunalp Gunal - 21/11/2020, 15:14
RE: Rastgele Sayı - Yazar: berduş - 21/11/2020, 16:14
RE: Rastgele Sayı - Yazar: feraz - 21/11/2020, 16:19
RE: Rastgele Sayı - Yazar: berduş - 21/11/2020, 16:29
RE: Rastgele Sayı - Yazar: feraz - 21/11/2020, 17:12
RE: Rastgele Sayı - Yazar: berduş - 21/11/2020, 20:19
RE: Rastgele Sayı - Yazar: alicimri - 21/11/2020, 22:50
|
Konuyu Okuyanlar: 1 Ziyaretçi