2013-08-18 4 views
6

मैं जानना चाहता हूं कि, (वीबीस्क्रिप्ट में) एक यादृच्छिक संख्या उत्पन्न करता है जो एक अलग पर समान नहीं होगा कंप्यूटर, और फिर उस नंबर का उपयोग करें और शायद कुछ if-STATEments ताकि 10 संभावित विकल्पों में से एक सक्रिय किया जा सके, उदाहरण के लिए।वीबीस्क्रिप्ट - एक यादृच्छिक संख्या कैसे उत्पन्न करें, फिर एक विकल्प चुनने के लिए इस नंबर का उपयोग करने के लिए एक if-स्टेटमेंट

If (A random number between 1 - 10, eg. 2) then (Continue on part of script then wscript.quit) 
Else if (A different number, eg. 7) then (continue on to different part of script then wscript.quit) 

आदि

तो यह है कि मैं 10 अलग अलग विकल्प हैं स्क्रिप्ट बेतरतीब ढंग से चुनने के लिए होगा।

क्या यह संभव है? यदि ऐसा है तो क्या कोई इस का एक उदाहरण संकलित करने में सक्षम होगा, इसलिए मैं अपनी खुद की लिपि डाल सकता हूं और इसका उपयोग कर सकता हूं? किसी भी उत्तर के लिए धन्यवाद!

उत्तर

9

आपको randomize और rnd की आवश्यकता है।
int(rnd * n) + 1 1 और एन के बीच एक पूर्णांक संख्या का मूल्यांकन करता है।
और तुम select case... यहाँ भी उपयोग कर सकते हैं, इस प्रयास करें:

dim r 
randomize 
r = int(rnd*10) + 1 
select case r 
    case 2 
     '... 

    case 7 
     '... 

end select 
+0

आपको बहुत बहुत धन्यवाद, यह पूरी तरह से काम किया :) – CerealKiller

4

और यदि आप मिनट से अधिकतम करने के लिए रैंड होगा:

Dim max,min,rand 
max=54 
min=23 
Randomize 
rand = Int((max-min+1)*Rnd+min) 
WScript.Echo rand 
-2
Dim i 

For i=1 to 5 

Randomize 

a=Rnd 
b=a+1 

msgbox b 

Next 
+1

लूप के प्रत्येक पुनरावृत्ति 'Randomize()' को कॉल करने की आवश्यकता नहीं है, तो आप प्रक्रिया को कम यादृच्छिक बना देंगे। – Lankymart

संबंधित मुद्दे