VBA Rnd फ़ंक्शन 1 से कम और 0 से अधिक या उसके बराबर एक यादृच्छिक संख्या देता है।
Rnd
Rnd फ़ंक्शन द्वारा लौटाए गए मानों के कुछ उदाहरण:
Sub RndExample1() Randomize MsgBox Rnd 'उदाहरण के लिए, रिटर्न: 0.1790262 MsgBox Rnd 'उदाहरण के लिए, रिटर्न: 0.734448 MsgBox Rnd 'उदाहरण के लिए, रिटर्न: 0.4870669 MsgBox Rnd 'उदाहरण के लिए, रिटर्न: 0.9100572 MsgBox Rnd 'रिटर्न, उदाहरण के लिए: 0.7860449 MsgBox Rnd 'उदाहरण के लिए, रिटर्न: 0.1607063 End Sub
आइए Rnd फ़ंक्शन का उपयोग करके 1 से 10 तक एक यादृच्छिक पूर्णांक उत्पन्न करें:
Function RandomNumber() Randomize RandomNumber = Int(Rnd * 10 + 1) End Function Sub RndExample2() MsgBox RandomNumber 'रिटर्न, उदाहरण के लिए: 6 MsgBox RandomNumber 'रिटर्न, उदाहरण के लिए: 2 MsgBox RandomNumber 'रिटर्न, उदाहरण के लिए: 10 MsgBox RandomNumber 'उदाहरण के लिए, रिटर्न: 7 MsgBox RandomNumber 'उदाहरण के लिए रिटर्न: 9 MsgBox RandomNumber 'रिटर्न, उदाहरण के लिए: 1 MsgBox RandomNumber 'उदाहरण के लिए, रिटर्न: 8 End Sub