| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 553 人关注过本帖
标题:新手初来报道,求先生指导。
只看楼主 加入收藏
lihaorong
Rank: 1
等 级:新手上路
帖 子:9
专家分:8
注 册:2013-8-13
收藏
 问题点数:0 回复次数:1 
新手初来报道,求先生指导。
这是一个洗牌程序,可以多副牌,我用label记录每张牌出现的次数,当牌出现次数超出牌的副数重新抽取牌。

以下这一段代码,总是令程序卡死。能否将检查该成Function来做呢?或者有什么好的方法检查每张牌不会超出牌的副数?上传代码求修改、指导。

洗牌雏码.zip (68.35 KB)


程序代码:
For I = 0 To Text1.Text - 1
pf:
Randomize Timer
p = Int(Rnd * 51)
If Int(Label2(Str(Cards(p)))) = Text2.Text Then GoTo pf
Label2(Str(Cards(p))) = Label2(Str(Cards(p))) + 1
imgCards(I).Picture = pcpResource.GraphicCell(Cards(p))
        Select Case Cards(p)
        Case 0 To 12
        imgCards(I).Tag = "Clubs" & Str(Cards(p) + 1)
        Case 13 To 25
        imgCards(I).Tag = "Diamonds" & Str(Cards(p) - 12)
        Case 26 To 38
        imgCards(I).Tag = "Hearts" & Str(Cards(p) - 25)
        Case 39 To 51
        imgCards(I).Tag = "Spades" & Str(Cards(p) - 38)
        End Select
Next I


[ 本帖最后由 lihaorong 于 2013-8-13 22:26 编辑 ]
搜索更多相关主题的帖子: 记录 
2013-08-13 22:25
lihaorong
Rank: 1
等 级:新手上路
帖 子:9
专家分:8
注 册:2013-8-13
收藏
得分:0 
回复 楼主 lihaorong
洗牌雏码.zip (68.35 KB)
2013-08-13 22:25
快速回复:新手初来报道,求先生指导。
数据加载中...
 
   



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

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