ฟังก์ชันVBScript Rnd
❮ การอ้างอิง VBScript ที่สมบูรณ์
ฟังก์ชัน Rnd ส่งกลับตัวเลขสุ่ม ตัวเลขจะน้อยกว่า 1 เสมอ แต่มากกว่าหรือเท่ากับ 0
ไวยากรณ์
Rnd[(number)]
Parameter | Description |
---|---|
number | Optional. A valid numeric expression If number is:
|
ตัวอย่าง
ตัวอย่าง 1
ตัวเลขสุ่ม:
<%
response.write(Rnd)
%>
โปรดทราบว่าคุณจะได้รับหมายเลขเดิมทุกครั้ง เพื่อหลีกเลี่ยงปัญหานี้ ให้ใช้คำสั่ง Randomize เช่นในตัวอย่างที่ 2
ผลลัพธ์ของโค้ดด้านบนจะเป็น:
0.7055475
ตัวอย่าง 2
เพื่อหลีกเลี่ยงไม่ให้ได้ตัวเลขเดียวกันทุกครั้ง เช่น ในตัวอย่างที่ 1 ให้ใช้คำสั่ง Randomize:
<%
Randomize
response.write(Rnd)
%>
ผลลัพธ์ของโค้ดด้านบนจะเป็น:
0.4758112
ตัวอย่างที่ 3
ต่อไปนี้เป็นวิธีสร้างจำนวนเต็มสุ่มในช่วงที่กำหนด:
<%
Dim max,min
max=100
min=1
Randomize
response.write(Int((max-min+1)*Rnd+min))
%>
ผลลัพธ์ของโค้ดด้านบนจะเป็น:
71
❮ การอ้างอิง VBScript ที่สมบูรณ์