生成闭区间随机指定维度数组方法

来源:互联网 发布:freebsd linux 编辑:程序博客网 时间:2024/05/17 04:08


Function 随机数组(维度 As Integer, 区间起 As Integer, 区间止 As Integer) As Integer()        Dim 数组随机 As IEnumerable(Of Integer) = Enumerable.Range(9, 维度)        数组随机 = 数组随机.Select(Function(aa) New Random(New Random().Next(aa * 区间止)).Next(区间起, 区间止)).ToArray()        Return 数组随机    End Function            Dim 数组 = 随机数组(10, 19, 89)        Dim 最大值 = 数组.Max()        Dim 最小值 = 数组.Min()        Dim 数组和 = 数组.Sum()        Dim 平均值 = 数组.Average()        数组输出弹出(数组)            Function 数组输出弹出(数组 As Integer(), Optional 个数 As Integer = 4, Optional 控制 As Boolean = True) As String        Dim 输出格式 = ""        While (数组.Length >= 个数)            输出格式 += String.Join(" ", 数组.Take(个数)) + IIf(数组.Length < 个数, "", vbCrLf)            数组 = 数组.Skip(个数).ToArray()            If 数组.Length < 个数 Then                输出格式 += String.Join(" ", 数组.Take(数组.Length))                Exit While            End If        End While        If 控制 Then MsgBox(输出格式)        Return 输出格式    End Function        c#        static int[] 随机数组(int 起始, int 终止, int 维度)        {            var  数组 = Enumerable.Range(9, 维度);            数组 = 数组.Select(aa => new Random(new Random().Next(aa * 终止)).Next(起始, 终止));            return 数组.ToArray();        }                var 个人得分 = 随机数组(88, 99, 7);        Console.WriteLine("评委给分:{0}", string.Join(" ", 个人得分));        var 最高分 = 个人得分.Max();        var 最低分 = 个人得分.Min();        var 最后得分 = 个人得分.Where(aa => aa != 最高分 && aa != 最低分).Average();        Console.WriteLine("MMM歌手得分情况:去掉一个最高分{0},去掉一个最低分{1},MMM选手最后得分:{2}", 最高分, 最低分, 最后得分);

0 0
原创粉丝点击