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

command1用来随机抽取轿陵，text2显示

text1用来自己输入

command2用来判断

基本思空衡想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到闭亏戚a=0

也可以自己输入text2数据来检验程序

这段程序不局限于7位数

Private Sub Command2_Click()

Dim a$, b$, i%, j%, k%

a = CStr(Text1)

b = CStr(Text2)

For i = Len(a) To 1 Step -1

For j = 1 To Len(a) - i + 1

If Mid(a, j, i) = Mid(b, j, i) Then

k = i

Exit For

End If

Next

If k <>0 Then Exit For

Next

Print k, Mid(a, j, i)'输出相同位数和相同数字

If len(a)+1-k>5 Then

MsgBox "对不起，无奖项"

Else

MsgBox Len(a) + 1 - k &"等奖"'判断奖项

End If

End Sub

Private Sub Command1_Click()

a = CStr(Text1)

Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))

End Sub

---