फ़ंक्शन VBA: Rnd

विवरण

VBA Rnd फ़ंक्शन 1 से कम और 0 से अधिक या उसके बराबर एक यादृच्छिक संख्या देता है।

सिंटैक्स Rnd

Rnd

उदाहरण VBA 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