如何抽完號後進行第二輪

fmp10273

同上，最近要做類似範圍內抽號碼的程式..

1. Dim x As Integer
   
2.         Static I As Integer
   
3.         Randomize()
   
4.         I = I + 1
   
5.         If TextBox2.Text = "" Then
   
6.             MsgBox("請輸入參加人數")
   
7.         Else
   
8.             x = Int((Rnd() * TextBox2.Text)) + 1
   
9.             Label1.Text = Str(x)
   
10.             Label2.Text = I
    
11.             TextBox1.Text &= Str(x) & vbCrLf
    
12.         End If

複製代碼

抽出的號碼顯示在TextBox1裡...但抽出的號碼還要在做第二輪抽號..
如何從TextBox1裡的指定號碼再抽出裡面的隨機號?




...

瀏覽完整內容，請先 註冊 或 登入會員

johnwanz

我個人的想法會是, 第一輪的結果作為Array或List, 第二輪抽號碼, 以index為範疇, 輸出時再將index套入第一輪的結果.

fmp10273

陣列是可以取前10個了..但陣列亂數就不知該怎樣用了

1. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
   
2.         Dim a(100) As Integer
   
3.         Dim r(100) As Integer
   
4.         Dim i As Integer
   
5.         Dim j As Integer
   
6.         Randomize()
   
7.         Dim t As Integer = TextBox2.Text
   
8.         For i = 1 To t
   
9.             a(i) = i
   
10.         Next i
    
11.         For i = t To 1 Step -1
    
12.             j = Int(Rnd() * i) + 1
    
13.             r(i) = a(j)
    
14.             a(j) = a(i)
    
15.         Next i
    
16.         For i = 1 To t
    
17.             TextBox1.Text &= r(i) & vbCrLf
    
18.         Next i
    
19.         For i = 1 To 50
    
20.             myArray(i) = r(i)
    
21.             TextBox4.Text &= myArray(i) & vbCrLf
    
22.         Next
    
23.     End Sub
    
24. 
    
25.     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    
26.         Dim i As Integer
    
27.         Randomize()
    
28.         For i = 1 To 10
    
29.             myA(i) = myArray(i)
    
30.             TextBox3.Text &= myA(i) & vbCrLf
    
31.         Next
    
32.     End Sub
    
33. 
    
34.     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    
35.         Dim a(10) As Integer
    
36.         Dim r(10) As Integer
    
37.         Dim i As Integer
    
38.         Dim j As Integer
    
39.         Dim k As String
    
40.       
    
41.         For i = 1 To 10
    
42.             myA(i) = i
    
43.         Next i
    
44.         For i = 10 To 1 Step -1
    
45.             j = Int(Rnd() * i) + 1
    
46.             myA(i) = myA(j)
    
47.             myA(j) = myA(i)
    
48.         Next i
    
49.         For i = 1 To 10
    
50.             TextBox3.Text &= myA(i) & vbCrLf
    
51.         Next i
    
52. 
    
53. 
    
54.     End Sub

複製代碼

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084

1. Public Class Form1
   
2. 
   
3.     REM 宣告三個System.Collections.ArrayList類別的容器來放置亂數號碼
   
4.     Private arrayA As System.Collections.ArrayList = New System.Collections.ArrayList()
   
5.     Private arrayB As System.Collections.ArrayList = New System.Collections.ArrayList()
   
6.     Private arrayC As System.Collections.ArrayList = New System.Collections.ArrayList()
   
7. 
   
8.     REM </summary>
   
9.     REM 產生不重複的亂數
   
10.     REM </summary>
    
11.     REM <param name="intLower"></param>產生亂數的範圍下限
    
12.     REM <param name="intUpper"></param>產生亂數的範圍上限
    
13.     REM <param name="intNum"></param>產生亂數的數量
    
14.     REM <param name="isSort"></param>是否排序，(這個參數可省略，預設值是否)
    
15.     Private Function MakeRand(intLower As Integer, intUpper As Integer, _
    
16.                               intNum As Integer, Optional isSort As Boolean = False) _
    
17.                               As System.Collections.ArrayList
    
18.         Dim arrayRand As New System.Collections.ArrayList()
    
19.         Dim random As New System.Random()
    
20.         Dim intRnd As Integer
    
21.         While arrayRand.Count < intNum
    
22.             intRnd = random.[Next](intLower, intUpper + 1)
    
23.             If Not arrayRand.Contains(intRnd) Then
    
24.                 arrayRand.Add(intRnd)
    
25.             End If
    
26.         End While
    
27.         If isSort Then
    
28.             arrayRand.Sort()
    
29.         End If
    
30.         Return arrayRand
    
31.     End Function
    
32. 
    
33.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
34.         REM <<<<<第一輪抽獎程式>>>>>
    
35. 
    
36.         REM 先清空容器
    
37.         arrayA.Clear()
    
38.         arrayB.Clear()
    
39. 
    
40.         REM 再從1到500號中抽出30個中獎號碼放到 arrarA 中
    
41.         arrayA = MakeRand(1, 500, 30)
    
42. 
    
43.         REM 清空文字框
    
44.         TextBox1.Clear()
    
45.         TextBox2.Clear()
    
46.         TextBox3.Clear()
    
47. 
    
48.         REM 因為 System.Collections.ArrayList 這個類別容器第一個元素索引是從 0 開始，所以 arrayA 的索引值要從 0 到 29
    
49.         REM 我們之前取30個中獎號碼，所以arrayA.Count = 30，再減掉1就是29了
    
50.         For i As Integer = 0 To arrayA.Count - 1
    
51.             REM 把30個抽出的號碼放到TextBox1中
    
52.             TextBox1.Text += CStr(arrayA.Item(i)) + vbCrLf
    
53.             REM 再把前10個號碼分別放到 TextBox2 和 arrayB 中(這就是第一輪的中獎號碼)
    
54.             If i < 10 Then
    
55.                 TextBox2.Text += CStr(arrayA.Item(i)) + vbCrLf
    
56.                 arrayB.Add(arrayA.Item(i))
    
57.             End If
    
58.         Next
    
59.     End Sub
    
60. 
    
61.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
62.         REM <<<<<第二輪抽獎程式>>>>>
    
63. 
    
64.         If arrayB.Count = 0 Then
    
65.             REM 如果沒有第一輪抽獎，則第二輪抽獎無效
    
66.             Return
    
67.         End If
    
68. 
    
69.         REM 先清空容器
    
70.         arrayC.Clear()
    
71. 
    
72.         REM 不要忘記 System.Collections.ArrayList 這個類別容器第一個元素索引是從 0 開始
    
73.         REM 所以要從 0 到 arrayB.Count - 1 來取得 arrayB 索引值
    
74.         REM 下面這一行程式就是從第一輪中獎號碼中再抽出3個第二輪中獎的序號
    
75.         arrayC = MakeRand(0, arrayB.Count - 1, 3)
    
76. 
    
77.         REM 清空文字框
    
78.         TextBox3.Clear()
    
79. 
    
80.         REM 把第二輪中獎的3個號碼放到 TextBox3 中
    
81.         For i As Integer = 0 To arrayC.Count - 1
    
82.             REM 利用剛剛抽出的 3 個序號從 arrayB 中取出 3 個號碼並放到 TextBox3 中
    
83.             TextBox3.Text += CStr(arrayB.Item(CInt(arrayC.Item(i)))) + vbCrLf
    
84.         Next
    
85.     End Sub
    
86. 
    
87. End Class

複製代碼

我個人建議應該把 "亂數" 這件事情單獨來處理
所以我參考網路上的範例改寫一個MakeRand函數
這個函數我不做註解
希望你可以自行參閱並且去了解它...

瀏覽完整內容，請先 註冊 或 登入會員