提前祝：新春增福纳贤VB创建随机数



VB创建随机数

Module Module1

    Sub Main()
开始位置:
        Dim 步进 = New Random().Next(10),计数 = 4
        Do
            For 序 As Integer = 1 To 20 * 步进 Step 步进
                Console.WriteLine("生成随机数字{0}",New Random(序).Next(1,序 * 3))
                If 序 Mod 10 = 0 Then
                    序 = 0
                    Console.WriteLine()
                End If
            Next
            步进 += New Random().Next(10)
            计数 -= 1
        Loop While (计数 > 0)
        
'Dim 数组()
        '数组 = {"李欢","龚丽","谭显亮","王涛","徐荣辉","刘烨","郑权恒","廖伟","郭威","李襑"}
        'Dim 随机 = New Random().Next(数组.Count)
        'Do
        '    If 数组(随机) <> "" Then
        '        计数 -= 1
        '        Me.Text = 数组(随机) & 计数
        '        数组(随机) = ""
        '        Exit Do
        '    Else
        '        随机 = New Random().Next(数组.Count)
        '    End If
        'Loop While (计数 > 0)

        Console.ReadLine()
        GoTo 开始位置
    End Sub

    随机数组()

End Module

    Public Sub 随机数组()
        Dim arry(9) As Integer
        Dim num As Integer
        Dim i As Integer
        Randomize()
        For i = 0 To 9
            num = (Rnd() * 1000000 Mod 51) + 1
            If arry.Contains(num) Then
                i -= 1
            Else
                arry(i) = num
            End If
        Next
        Console.WriteLine(String.Join("-",arry))
    End Sub