彩票计划 - Visual Basic

Question

必须创建一个彩票计划，轻松获取随机数等。但是我很难过。基本上我有2个按钮。一个显示带有数字1-100的复选列表框，以及5个乐透号码。我有一个第二个按钮，检查2件事，以确保没有检查超过5个数字匹配数字。我迷失了如何检查RNG号码之间所选号码之间的匹配。

Public Class Form1
Private Sub displayBtn_Click(sender As Object, e As EventArgs) Handles displayBtn.Click
    Dim lottoNumbers(5) As Integer
    Dim counter As Integer = 0
    Dim number As Integer
    Dim randomGenerator As New Random(Now.Millisecond)

    'This will randomly select 5 unique numbers'
    Do While counter < 5
        number = randomGenerator.Next(0, 98)
        If Array.IndexOf(lottoNumbers, number) = -1 Then
            lottoNumbers(counter) = number
            counter += 1
        End If
    Loop

    'Display the lottery numbers in the label.'
    Label1.Text = String.Empty
    Array.Sort(lottoNumbers)
    For Each num As Integer In lottoNumbers
        Label2.Text = "Lottery Numbers"
        Label1.Text &= CStr(num) & " "
    Next num
    For x = 0 To 98
        CheckedListBox1.Items.Add(x + 1)
    Next
End Sub

Private Sub checkBtn_Click(sender As Object, e As EventArgs) Handles checkBtn.Click
    Dim count As Integer = 0
    Dim x As Integer

    'Checks to see if user checked more than 5'
    For x = 0 To CheckedListBox1.Items.Count - 1
        If (CheckedListBox1.CheckedItems.Count > 5) Then
            MessageBox.Show("You cannot select more than 5 numbers.")
            Return
        Else
            If (CheckedListBox1.GetItemChecked(x) = True) Then
                count = count + 1
                ListBox1.Items.Add(CheckedListBox1.Items(x))
            End If
        End If


    Next
End Sub