2015年11月24日
随机打乱数组算法-扑克洗牌
摘要： Option ExplicitDim Poker(53) As LongPrivate Sub Command1_Click() Dim i&, j&, n& Print "---初始化扑克---" For i = 65 To 68 '花色 For j = 1 ... 阅读全文
posted @ 2015-11-24 20:34 JustXIII 阅读(663) 评论(0) 推荐(0) 编辑