例013：产生1~6之间的随机数

1. 新建一个控制台工程，输入代码：

Dim intA As Integer

Randomize

intA = CInt(Int((6 *Rnd()) + 1))

Print intA

GetKey

其中：Randomize完成随机种子初始化，否则每次运行程序产生的数都是一样的，即所谓的伪随机数。Rnd生成0~1之间的随机数,CInt将一个小数转换为整数（四舍五入），Int向下取整。GetKey获得按键，起一个暂停屏幕的作用。