-----“大风车”幸运电话号码的产生
摘要：本文讨论了随机函数与随机算法在抽奖过程中的具体应用，使用vfp6.0写出了关键的部分控件与事件代码。本文提供的方法不但在抽奖过程中使用，而且也可以在动态规划中应用。比如，使用随机数判断素数等。
应用背景
中央电视台的儿童节目“大风车”，是深受广大儿童和家长喜爱的电视节目，“大风车”热线电话，更是儿童积极参加的栏目，每周幸运电话号码的产生是这一栏目的高潮。那么幸运电话号码是怎样产生的呢？这实际上是一个随机数产生与应用的问题。
解决方案
使用系统软件提供的随机函数，在确定随机数的范围中寻找一个随机数，利用这个随机数与所有参与栏目的电话记录相关联。即可确定一个幸运号码。
vfp6.0的实现过程
创建一数据表 telephone.dbf
两个字段
telecode c 20 &.&.存放电话号码
flag l 1 &.&.幸运电话号码的标志
建立表单,增加控件 大风车.scx
表单包括三个标签、一个文本框、两个按钮控件。其属性设置分别是：
label1.caption=“电话号码”
label1.fontsize=18
label1.forecolor =0,0,0 &.&.黑色
label2.caption=“幸运号码”
label2.fontsize=18
label2.forecolor =0,0,0 &.&.黑色
label3.caption=’’ &.&.显示幸运号码
label3.fontsize=18
label3.forecolor =255,0,0 &.&.红色
thisform.text1.value=telephone.telecode
thisform.text1.fontsize=18
command1.caption=”开始”
command1.fontsize=15
command2.caption=”结束”
command1.fontsize=15
设置控件事件代码
在命令按钮1的click事件的代码如下
set dele on
do while .t.
count to acount &.&.确定参加抽奖的范围,已成为幸