標題: [分享] 隨機產生 [打印本頁]

---

作者: hcm19522    時間: 2023-10-16 16:46     標題: 隨機產生

隨機產生 A~Z  a~z  0~9 三項 且按比率產生  其意字母26個 產生機會較多 數字 10較少

---

作者: singo1232001    時間: 2023-10-17 18:42

本帖最後由 singo1232001 於 2023-10-17 18:43 編輯

回復 1# hcm19522


    Sub test()
tx = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Debug.Print Mid(tx, Round(Rnd * 62, 0) + 1, 1)
End Sub




Sub 十組隨機數1到62()
For i = 1 To 10
Debug.Print Round(Rnd * 62, 0) + 1
Next
End Sub

---

作者: hcm19522    時間: 2023-10-18 10:25

回復 2# singo1232001


    https://hcm19522.blogspot.com/2023/10/az-az-09-11899.html

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)