VB练习之-双色球模拟 - 编程论坛

#2

独木星空2022-05-10 05:38

是一个不错vb练习，对于学习vb大有帮助。

#3

apull2022-05-10 14:13

我是来接分的

#4

yuma2022-05-10 14:56

有一个Shuffle洗牌算法，很容易实现这个功能吧。

#5

独木星空2022-05-10 19:59

回复 4楼 yuma

那就把它贴上来吧！

#6

yuma2022-05-11 07:59

回复 5楼独木星空

程序代码：

Sub Shuffle(ByRef a)
    Dim t, j, n
    n = UBound(a): Randomize
    For i = n To 1 Step -1
        j = Int(Rnd * (i + 1))
        t = a(j): a(j) = a(i): a(i) = t
    Next
End Sub

Private Sub Form_Load()
Me.Hide
'Author: Demon
'Website: http://demon.tw
'Date: 2011/12/16

a = Array("卒", "卒", "卒", "卒", "卒", "炮", "炮", "马", "马", "车", "车", "士", "士", "象", "象")

MsgBox Join(a)  '洗牌前
Shuffle a
MsgBox Join(a)  '洗牌后
End Sub

#7

sssooosss2022-05-13 17:08

不错，共同学习

#8

chenyucheng2022-07-02 21:11

没见过彩票。点开奖开出奖时再次点击会报错“文件已经打开”并闪退。

只有本站会员才能查看附件，请登录