時下全國各地都在搞“電腦型福利彩票”，相信很多讀者朋友都參與過或正準(zhǔn)備參與吧，筆者也是一個“彩民”，已為中國福利事業(yè)貢獻(xiàn)了XXX元了，不過好像運氣不怎么好，至今連個末等獎也未中到，

用VB編寫投注程序VB

。在投注時，彩號可以自己在投注單上選，也可以通過投注機隨機選

   

   

    時下全國各地都在搞“電腦型福利彩票”，相信很多讀者朋友都參與過或正準(zhǔn)備參與吧，筆者也是一個“彩民”，已為中國福利事業(yè)貢獻(xiàn)了XXX元了，不過好像運氣不怎么好，至今連個末等獎也未中到。在投注時，彩號可以自己在投注單上選，也可以通過投注機隨機選取。那么，想不想自己編個程序來模擬“機選”呢？好！那就接著往下看吧！

    首先，新建一個單窗體的工程，在上面畫出七個TEXTBOX，最好是一個控件數(shù)組，這樣編程時容易控制，再建一個COMMOND BUTTON，將CAPTION改為“隨機產(chǎn)生”。在程序運行后，每點擊一下COMMAND1，將隨機產(chǎn)生一組數(shù)字并按從小到大的順序顯示在文本框中。下面就是程序部分：

    Dim NumArray(1 To 7) As Integer′通用中定義

    Private Sub Command1_Click()

    Dim i, j, N As Integer

    For i = 1 To 7

    NumArray(i) = 0

    Next i

    Randomize

    NumArray(1) = Fix(1 ＋ 32 ＊ (Rnd()))

    j = 1

    Do

    N = Fix(1 ＋ 32 ＊ (Rnd()))

    For i = 1 To j

    If N = NumArray(i) Then

    Exit For ′重復(fù)時

    ElseIf i = j Then ′未重復(fù)時

    NumArray(i ＋ 1) = N

    j = j ＋ 1

    Exit For

    End If

    Next i

    Loop While j < 7

    PopSort ′升序排列

    For i = 1 To 7

    Text1(i － 1).Text = NumArray(i)

    Next i

    End Sub

    Private Sub PopSort() ′氣泡排序法

    Dim i, j, Temp As Integer

    For i = 7 To 2 Step －1

    For j = 7 － 1 To 1 Step －1

    If i >= 7 － j ＋ 1 Then

    If NumArray(j ＋ 1) < NumArray(j) Then

    Temp = NumArray(j)

    NumArray(j) = NumArray(j ＋ 1)

    NumArray(j ＋ 1) = Temp

    End If

    End If

    Next j

    Next i

    End Sub

    本程序在VB6.0中文企業(yè)版、Win98SE中文版下調(diào)試通過，

電腦資料

《用VB編寫投注程序VB》(http://www.lotusphilosophies.com)。為了簡捷起見，這個程序還有很多不盡如人意的地方，比如不能保存等，喜歡編程的朋友可以充分發(fā)揮自己的聰明才智對其加以擴充。

    原文轉(zhuǎn)自：http://www.ltesting.net