Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Rastgele Sayı

Gunalp Gunal
Gunalp Gunal
Access Cevaplanmış Soruları
6
881

Rastgele Sayı

#7
alicimri
Destek Ekibi
alicimri
Bul
Destek
Adı Soyadı:
Yaşı: 66
Konum: Muğla
Ofis Versiyonu: Ofis 2007
Son Oturumu: 10/04/2021,12:55
Yorumları: 191
Konuları: 5
Kayıt Tarihi: 02/02/2020
Teşekkür Puanı: 47
Mesleğiniz: emekli
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
Son Düzenleme: 21/11/2020, 22:55, Düzenleyen: alicimri.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

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
Task