随机函数的应用利用Rnd函数可以随机产生一个数字，以下例子是Rnd函数的一个例子：DimxAsSingleRnd函数随机产生的是一个小数Randomize产生随机种子x=Rnd产生0至1之间的随机数(是一个小数)Label1.Caption=x在Label1控件显示随机数x取整函数int的作用：DimxAsIntegerx=Int(3.8123)int函数取小数的整数部分，去掉小数部分Label1.Caption=xLabel1控件显示结果：3产生1至10之间的随机数代码如下：DimxAsIntegerx=Int(Rnd*10)+1产生1至10之间的随机数Label1.Caption=xRnd函数的应用例子：点击按钮随机产生1至100之间的整数(包括1和100)并在界面显示产生的随机数字，界面如下：代码如下：匸工程1Forml(Code)kh卜回|Coirnnandl|JciiekTOptionExplicitPrivateSubCommandlClick()DimxAsInteg
