林威 發問時間: 電腦與網際網路程式設計 · 10 年前

VB 大樂透程式 不重複 我是用VB2008

我的程式內容

我是用亂數下去做的 怎樣才能不重複

Public Class Form1

Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click Dim rnd_obj As Random = New Random

txt1.Text = rnd_obj.Next(1, 50)

txt2.Text = rnd_obj.Next(1, 50)

txt3.Text = rnd_obj.Next(1, 50)

txt4.Text = rnd_obj.Next(1, 50)

txt5.Text = rnd_obj.Next(1, 50)

txt6.Text = rnd_obj.Next(1, 50)

End Sub

End Class

2 個解答

評分
  • 10 年前
    最佳解答

    Dim B(49) As Byte '有50個球 陣列叢0開始 For i As Integer = B.GetLowerBound(0) To B.GetUpperBound(0)

    B(i) = i + 1 '設定每顆球的號碼

    Next i Dim rnd_obj As Random = New Random '宣告亂數

    For i As Integer = 0 To 5

    Dim k As Byte = rnd_obj.Next(i, B.GetUpperBound(0)) '取得亂數

    Dim temp As Byte

    temp = B(i)

    B(i) = B(k)

    B(k) = temp

    '抽到的先放在前面 再從後面開始抽

    Next i txt1.Text = B(0)

    txt2.Text = B(1)

    txt3.Text = B(2)

    txt4.Text = B(3)

    txt5.Text = B(4)

    txt6.Text = B(5)

  • 5 年前

    鴻博娛樂 http://www.hbbet.net

    財神娛樂 http://www.cs777.net

    富貴娛樂 http://www.fk888.net

    24小時不打烊, 多種遊戲任你玩

還有問題?馬上發問,尋求解答。