VFP表单设计摇奖程序

比如是对学生表抽神简念奖：

在数据环境添加"学生.dbf"

计时器timer1 的interval属性设为100（当然可以换成1000等也可以，随便咐磨设）

form1的init事游困件代码：

thisform.timer1.enabled=.f.

thisform.text1.value=“幸运者姓名”

按钮“开始滚动”的click事件

thisform.timer1.enabled=.t.

thisform.text1.value=姓名

按钮“停止”的click事件

thisform.timer1.enabled=.f.

timer1的timer事件代码

sele 学生

skip

if eof()

go top

endif

thisform.text1.value=姓名

不用Timer 控件 用INKEY() 检测到空格键就陆芦跳出循环输出当时指针所在早晌带的记谨瞎录

DO WHILE .T.

IF INKEY()=32 &&按下空格键退出

EXIT

ENDIF

IF EOF()

GO TOP

ELSE

SKIP

ENDIF

ENDWHILE

这里提供2种方法供你参考，其实原理都是每次让rand函数种子值变化雀早。

方法一：显示1 到 10 之间的一个随机数:这是VFP帮助文谈配档中的，有空应该多看看帮助。

CLEAR

LIST &&显示值

gnMaximum = 1 &&初始化最小值

gnMinimum = 100 &&初始化最顷侍雀大值

SCAN

gnMinimum = MIN(gnMinimum, cValue)

gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? '最小值是: ', gnMinimum &&显示最小值

? '最大值是: ', gnMaximum &&显示最大值

CLEAR

gnLower = 1

gnUpper = 10

? INT((gnUpper - gnLower + 1) * RAND() + gnLower)

方法二：

建立一个资源表，然后从资源表中选rand函数的种子产生随便机数，用过的资源就删除。

---