randomize

使用随机数函数 Randomize或者Rnd 实现

源代码如下：

Dim?min,n1,n2 //定义两个变量为

Randomize?n1?=?Int(90?*?Rnd+10)

n2?=?Int(90?*?Rnd+10)

if?n1?>?n2?then

min?=?n2

else?

min?=?n1

end?if

msgbox?"第一个数是："?&?n1?&?"?第二个数是："?&?n2?&?"?最小的数是："?&?min

运行代码效果如下：

实现随机产生四个三位数如上代码，只需要再定义两个变量n3，n4。

源代码如下

Dim?max,n1,n2,n3,n4,arr

Randomize

n1?=?Int(900?*?Rnd+100)

n2?=?Int(900?*?Rnd+100)

n3?=?Int(900?*?Rnd+100)

n4?=?Int(900?*?Rnd+100)

arr?=?Array(n1,n2,n3,n4)

max?=?n1

for?each?x?in?arr

if?max?<?x?then?max?=?x

next

msgbox"n1:"?&?n1?&?"?n2:"?&?n2?&?"?n3:"?&?n3?&?"?n4:"?&?n4?&?"?最大的数是："?&?max

效果如下：

扩展资料：

rand函数的由来

srand((unsigned)time(NULL))则使用系统定时/计数器的值作为随机种子。每个种子对应一组根据算法预先生成的随机数，所以，在相同的平台环境下，不同时间产生的随机数会是不同的，相应的，若将srand（unsigned）time(NULL)改为srand(TP)（TP为任一常量），则无论何时运行、运行多少次得到的“随机数”都会是一组固定的序列，因此srand生成的随机数是伪随机数。

百度百科-rand函数