表下图所示:实现随机生成三位中奖号码。单击“开始”按,则在文本框 Text1 中循环显示 0 至 9 十个数字,速度由时钟控件控制。当按“暂停”按,即确定该位数字,停止该位数字的循环显示,并开始下一个数字循环,直到三位数都产生。 “开始”按的 Click 事件代码为: Public S , K , M S = “” K = 0 M = 0 ThisForm.Timer1.Enabled = .T. ThisForm.Timer1.Interval = 100 “暂停”按的事件代码为: M = M + 1 If M = 3 ThisForm.Timer1.Enabled = .F. EndIf S = 时钟控件 Timer1 的 Timer 事件代码为: K = K + 1 If K > 9 K = EndIf ThisForm.Text1.Value = S + Str( K , 1 ) ThisForm.Refresh