| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2463 人关注过本帖
标题:【求助】表单抽奖系统
只看楼主 加入收藏
g593028933
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2013-4-30
收藏
得分:0 
程序代码:
for a=1 to 10000 step -1  &&貌似step -1 这个不行
    scan 
        thisform.text1.value=姓名
        thisform.refresh
         IF <退出循环条件>   &&这个就是退出的条件,但是我不知道怎么设置
             EXIT
         endif
    endscan
endfor
2013-05-01 14:53
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
很奇怪你为什么要求不用Timer

授人以渔,不授人以鱼。
2013-05-01 14:57
g593028933
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2013-4-30
收藏
得分:0 
回复 22楼 TonyDeng
这是老师布置的任务,因为时钟不要求掌握,所以不用时钟。
2013-05-01 15:03
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
嗯,等一会。

授人以渔,不授人以鱼。
2013-05-01 15:06
g593028933
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2013-4-30
收藏
得分:0 
回复 24楼 TonyDeng
程序代码:
b=0
for a=1 to 100000 step 1  
    scan 
        thisform.text1.value=姓名
        thisform.refresh
         IF a=INT(RAND() *10000+1)  
             b=1
             EXIT
         endif
    ENDSCAN
    IF b=1
    EXIT
    ENDIF
ENDFOR
不知道这样算不算实现了功能
2013-05-01 16:05
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
这样肯定不行。老师规定你要用两个按钮的么?

授人以渔,不授人以鱼。
2013-05-01 16:44
g593028933
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2013-4-30
收藏
得分:0 
回复 26楼 TonyDeng
这个倒是没有规定用两个按钮  我只是觉得用两个按钮符合常规些
2013-05-01 16:51
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
一个按钮就可以了,两个反而复杂。其实本来不需用按钮,用键盘是最简单的,按钮把事情复杂化。

授人以渔,不授人以鱼。
2013-05-01 16:54
g593028933
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2013-4-30
收藏
得分:0 
回复 28楼 TonyDeng
不用按钮是不是用keypress事件?那我这个用一个按钮是不是可行呢?
2013-05-01 16:58
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
都可以,不用两个按钮。

授人以渔,不授人以鱼。
2013-05-01 17:01
快速回复:【求助】表单抽奖系统
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018742 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved