在程序调试过程中,从键盘输入数据是很麻烦的,所以在系统实验阶段,可以使用随机函数产生数据,然后给数组赋值,节约重复输入数据的时间。
(1)Randomize语句
格式:
其中,number是可选项,一个Object或任何有效的数值表达式。
Randomize用number将Rnd函数的随机数生成器初始化,并给它一个新的种子值。如果省略number,则用系统计时器返回的值作为新的种子值。如果没有使用Randomize,则(无参数的)Rnd函数使用第一次调用Rnd函数的同一数字作为种子值,并从此开始使用上一次生成的数字作为种子值。
(2)Rnd函数
格式:
参数number取值见表5-1。
表5-1 Rnd函数参数取值
说明:
1)Rnd函数返回小于1但大于或等于0的值。
2)number的值决定了Rnd生成随机数的方式。由于每次后续调用Rnd函数都用序列中前一个生成的数作为下一个数的种子值,因此对于任何给定的初始种子值,都会生成相同的数字序列。
3)在调用Rnd之前,先使用无参数的Randomize语句初始化随机数生成器,该生成器具有一个基于系统计时器的种子值。
4)若要生成某给定范围内的随机整数,则使用以下公式。
其中,upperbound是此范围的上限,而lowerbound是此范围的下限。
例如,Int(100*Rnd+1)产生范围在1~100之间的随机整数。
【例5-2】利用随机函数产生10个两位整数,并保存到数组中,然后输出到窗体上。
按“三步法”原则分析如下。
做什么(www.xing528.com)
1)利用随机函数产生数据保存到数组中,不需要用户输入任何数据,因此用不到输入函数、文本框等。
2)把输入的数据输出到窗体,可以采用Print方法。
所以窗体上只需要一个按钮即可。
怎么做
定义数组a(9)As Integer,用变量i作为数组的下标,变化范围为0~9,然后对数组元素a(i)依次赋值。
输入数据和输出数组元素的步骤描述如下,其中7)~10)步为输出数组元素步骤:
1)定义数组a(9)和下标变量i。
2)调用Randomize语句,初始化随机数生成器。
3)初始化下标变量i=0。
4)判断i值,如果i值小于或等于9,则执行第5)步;否则执行第7)步。
5)调用Rnd函数产生一个数据,保存到a(i)中。
6)下标变量i值增1,返回第4)步。
7)初始化下标变量i=0。
8)判断i值,如果i值小于或等于9,则执行第9)步;否则执行第10)步后面语句。
9)用Print方法输出a(i)。
10)下标变量i值增1,返回第8)步。
实现
代码中第3)、4)、5)行是用来向数组输入数据的,第6)、7)、8)行是用来输出数组数据的。运行结果如图5-3所示。
图5-3 利用随机函数给数组赋值
有时输入和输出也可以放在一个循环体中进行,改写如下:
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。