ส่งกลับ เดียว ที่มีตัวเลขสุ่ม
ไวยากรณ์
Rnd[(ตัวเลข)]
อาร์กิวเมนต์ตัวเลขที่เลือกได้คือนิพจน์ตัวเลขเดี่ยวหรือนิพจน์ตัวเลขที่ถูกต้องใดก็ได้
ค่าที่ส่งกลับ
| ถ้า Number เท่ากับ | Rnd สร้าง |
|---|---|
| น้อยกว่าศูนย์ | ตัวเลขเดิมทุกครั้ง โดยใช้ ตัวเลข เป็นเมล็ดพันธุ์ |
| มากกว่าศูนย์ | ตัวเลขสุ่มถัดไปในลําดับ |
| เท่ากับศูนย์ | ตัวเลขที่สร้างขึ้นล่าสุด |
| ไม่ได้ให้มา | ตัวเลขสุ่มถัดไปในลําดับ |
ข้อสังเกต
ฟังก์ชัน Rnd ส่งกลับค่าที่น้อยกว่า 1 แต่มากกว่าหรือเท่ากับศูนย์
ค่าของ ตัวเลข จะกําหนดวิธีที่ Rnd สร้างตัวเลขสุ่ม
สําหรับเมล็ดเริ่มต้นที่กําหนด ลําดับตัวเลขเดียวกันจะถูกสร้างขึ้นเนื่องจากการเรียกใช้ฟังก์ชัน Rnd ที่ต่อเนื่องกันแต่ละครั้งจะใช้ตัวเลขก่อนหน้าเป็นเมล็ดพันธุ์สําหรับตัวเลขถัดไปในลําดับ
ก่อนที่จะเรียกใช้ Rnd ให้ใช้ คําสั่ง Randomize โดยไม่มีอาร์กิวเมนต์เพื่อเตรียมใช้งานตัวสร้างตัวเลขสุ่มด้วยเมล็ดพันธุ์ตามตัวจับเวลาของระบบ
เมื่อต้องการสร้างจํานวนเต็มแบบสุ่มในช่วงที่กําหนด ให้ใช้สูตรนี้
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
ที่นี่ ขอบเขต บน คือตัวเลขสูงสุดในช่วง และ ขอบเขตล่างคือ ตัวเลขต่ําสุดในช่วง
หมายเหตุ
เมื่อต้องการทําซ้ําลําดับตัวเลขแบบสุ่ม ให้เรียกใช้ Rnd ด้วยอาร์กิวเมนต์ลบทันทีก่อนที่จะใช้ สุ่มกับ อาร์กิวเมนต์ตัวเลข การใช้ สุ่ม ด้วยค่าเดียวกันสําหรับ ตัวเลขจะไม่ ทําซ้ําลําดับก่อนหน้า
ตัวอย่างคิวรี
| นิพจน์ | ผลลัพธ์ |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | ส่งกลับหมายเลขผลิตภัณฑ์พร้อมกับตัวเลขแบบสุ่มในคอลัมน์ RandomNumbers |
ตัวอย่าง VBA
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงนักพัฒนาในรายการ ดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน Rnd เพื่อสร้างค่าจํานวนเต็มแบบสุ่มตั้งแต่ 1 ถึง 6
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)