Khởi tạo bộ phát số ngẫu nhiên (3 người xem)

[nhattan67]

Giúp em tạo bộ phát số ngẫu nhiên ( từ 0 đến 100 ) với điều kiện số này đã xuất hiện rồi thì không xuất hiện nữa.
Cám ơn.

 

[SA_DQ]

Mình có 1 cách, như sau:

Dùng vòng lặp For. . Next tạo chuỗi
StrC = "000102030405. . . . . 979899" (có độ dài 200)
Dùng vòng lặp For Next tiếp, để xáo trộn chuỗi này khoảng 2*10^6 lần
Ví dụ:

For Wj = 1 to 10^6
iJ = 20 + (2* INT( 8*Rnd())+ 1)
STRC = MID(StrC, iJ , 8 ) & LEFT(StrC , iJ -1) & MID(StrC,iJ + 8)
Next Wj
Cuối cùng, là cắt lát 2 ký tự 1 lần & chuyển thành ký số bằng hàm chuyển đổi!

Hi vọng đã giúp được bạn!

 

[dvu58]

Giúp em tạo bộ phát số ngẫu nhiên ( từ 0 đến 100 ) với điều kiện số này đã xuất hiện rồi thì không xuất hiện nữa.
Cám ơn.

Bạn dùng thử cái này xem được không?

 

[nhattan67]

Cho em xin Password để đọc code đi sư huynh dvu58.
Cám ơn sư huynh dvu58 và SA_DQ
nhattan67