Vbscript中的随机函数? [英] Random function in Vbscript?

问题描述

如何基于随机数函数创建脚本以执行随机函数?
例如，我有4个不同的函数，所以如果随机数函数选择3，它将执行我的第3个动作，如果选择1，它将执行1.任何想法?方案

使用VBScript进行操作的小样本，请尽情享受！

 函数 DoStuff()
    昏暗结果如何
    什么=兰德( 1 ， 4 )
    选择 案例是什么
        案例  1 
            结果= Action1()
        案例  2 
            结果= Action2()
        案例  3 
            结果= Action3()
        案例  4 
            结果= Action4()
    结束 选择
结束 功能

' 选择介于最小值和最大值之间的整数
函数兰德(最小值，最大值)
    max =  4 
    min =  1 
    随机化
    兰德=(整数((max-min + 1)* Rnd + min))
结束 功能

' 在此处定义您自己的操作
功能 Action1()
    动作1 = " 
结束 功能

功能 Action2()
    Action2 = " 
结束 功能

功能 Action3()
    Action3 = " 
结束 功能

功能 Action4()
    Action4 = " 
结束 功能 

问候，

Manfred

如果选择的数量足够小，则可以使用SELECT CASE.

Select Case (Int(Rnd * 3) + 1)
    Case 1
        SomeFunction1
    Case 2
        SomeOtherFunction
    Case 3
        SomeOtherMethod
End Select

How can i create a script to do random functions based on the random number function?
like for instance, i have 4 different functions, so if the random number function chooses 3 it''ll execute my 3rd action, if it chooses 1 it''ll execute 1. Any Ideas?

解决方案

A small sample of how to this with VBScript, enjoy!

Function DoStuff()
    Dim what, result
    what = Rand(1,4)
    Select Case what
        Case 1
            result = Action1()
        Case 2
            result = Action2()
        Case 3
            result = Action3()
        Case 4
            result = Action4()
    End Select
End Function

'Choose an integer between min and max
Function Rand(min, max)
    max=4
    min=1
    Randomize
    Rand = (Int((max-min+1)*Rnd+min))
End Function

' Define your own actions here
Function Action1()
    Action1 = "Result 1!"
End Function

Function Action2()
    Action2 = "Result 2!"
End Function

Function Action3()
    Action3 = "Result 3!"
End Function

Function Action4()
    Action4 = "Result 4!"
End Function

Regards,

Manfred

If the number of choices is small enough, you could just use SELECT CASE.

Select Case (Int(Rnd * 3) + 1)
    Case 1
        SomeFunction1
    Case 2
        SomeOtherFunction
    Case 3
        SomeOtherMethod
End Select

这篇关于Vbscript中的随机函数?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！