Question

求vfp中计时器的代码，用来随机抽取点名，显示学号跟姓名

只有一个command1开始-继续-暂停

Answer 1

用rand函数，按你这个意思，建议考虑先建一个表，表中存储学号、姓名等信息，然后在表单中添加一个计时期，计时周期根据需要设置，计时器time代码中主要使用rand函数产生随机数，然后以此随机数去查找相应记录，例如将此随机数看做记录号，直接用go语句就可以。

但从实际应用看，还得有许多其它设计，例如，如何让rand产生的随机数覆盖所有记录号，如何防止重复叫号的出现等等。但主体思路不变。

command按钮好办，在click代码中添加代码检测time对象是否已启动，启动了就禁止，禁止了就启动就可达到你说的开始-暂停功能了，当然代码中要增加修改command按钮caption属性的句子，这样按钮不仅起作用，相应的显示也会变。

追问

可以写出来给我吗？初学者，你这样子说还是不太懂，麻烦啊！界面是学号 文本框 姓名 文本框 然后就是一个开始按钮 （开始按钮按一下变暂停，再按一下就是继续

追答

假如你的学生信息表名为“学生信息”，字段名分别为：“学号”、“姓名”
开始按钮的click中可参考添加以下代码：

rand(0) &&保证产生最大的随机序列
tmpn=0
tmpreccound=reccound()
do while tmpntmpreccound &&如果产生的随机数不在表的记录号范围内就继续产生新的随机数
tmpn=rand()*10*reccound()
enddo
go tmpn
this.Parent.TEXT1.value=学生信息.学号
this.Parent.TEXT2.value=学生信息.姓名

如果你是想要自动随机显示（就是一个接一个的随机产生），则应将上述代码放在time对象中。
上述代码仅供参考。