moneyform.vb

呵呵呵

Public Class MoneyForm

    Dim MaxNumber As Integer
    Dim iCount As Integer 
    Private Sub RichMan()        '取数过程　取
        Try
            Dim i As Integer = 0
            Dim Sum As Integer
            Dim result(i) As UInt16


            Do While 1
                Dim j As UInt16
                Dim k As Integer
标记A:            Dim d As Random = New Random
                j = d.Next(1, MaxNumber)
                If i = 0 Then
                    ReDim result(0)
                    result(i) = j
                Else
                    For k = 0 To result.Length - 1
                        If result(k) = j Then
                            GoTo 标记A
                        End If
                    Next
                    ReDim Preserve result(result.Length)
                    result(i) = j
                End If
                Sum += result(i)
                Me.RichTextBox1.Text += result(i) & " "

                i = i + 1
                If i = iCount Then
                    i = 0
                    Exit Do
                End If
            Loop

            Me.RichTextBox1.Text = Me.RichTextBox1.Text & " 和值：" & Sum.ToString + vbCrLf

        Catch ex As Exception
            MsgBox(ex.Message)   '
        End Try
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        If iCount = Nothing Then
            MsgBox("你要几个号码啊？")
        Else
            MaxNumber = 30
            iCount = Me.TextBox1.Text
            RichMan()
        End If
    End Sub

    Private Sub btn88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn88.Click
        If iCount = Nothing Then
            MsgBox("你要几个号码啊？")
        Else
            MaxNumber = 80
            iCount = Me.TextBox1.Text
            RichMan()
        End If
    End Sub

    Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
        Me.Close()
    End Sub

End Class