VB彩票程序設計

新建壹個單窗體的工程，在上面畫出七個TEXTBOX，最好是壹個控件數組，這樣編程時容易控制，再建壹個COMMOND BUTTON，將CAPTION改為“隨機產生”。在程序運行後，每點擊壹下COMMAND1，將隨機產生壹組數字並按從小到大的順序顯示在文本框中。下面就是程序部分：　　　　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 ′重復時

ElseIf i = j Then ′未重復時

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

上一篇:封天傳（無限盲盒抽）兌換碼有哪些？

下一篇:存儲服務源代碼