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

来源：互联网发布：类似飞鱼网络电视编辑：程序博客网时间：2024/05/17 03:40

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

0 0