如何网页生成总和固定的一组随机数字？

            foreach (int aa in Enumerable.Range(1, 30))

            {

                宝 = new int[6];

                foreach (int 阿 in Enumerable.Range(0, 宝.Length))

                {

                鸿森: System.Threading.Thread.Sleep(40);

                    int 城 = new Random().Next(1, 9);

                    if (!宝.Contains(城))

                        宝[阿] = 城;

                    else

                        goto 鸿森;

                }

                int 阿阿 = 0;

                foreach (int 啊 in 宝) 阿阿 += 啊;

                if (阿阿 == 28) Console.WriteLine("生成总和固定的一组随机数字{0} {1} {2} {3} {4} {5}", 宝[0], 宝[1], 宝[2], 宝[3], 宝[4], 宝[5]);

            }

高人！貌似用C#解决了问题。可是请问如何将代码转换成网页实现？劳驾！

代码直接嵌入或后台用.

如果读懂代码就自己写

我是菜鸟，只会VB，请将整段网页代码贴出来。跪谢。

Dim 宝 = New Int16(5) {}, 阿阿 As Int16,
包含 As Func(Of Int16(), Int16, Boolean) = Function(数组, 数)
For Each 序 In Enumerable.Range(0, 数组.Count)
If 数组(序) = 数 Then Return True
Next
Return False
End Function '没认真去查到底VB有没这样功能函数，不过自己写也不逊色于C#封装。
必须一组: '当查看VB是否有C#的Contains函数可调用时没查到，
'想起这将使学生很费脑力，学习感觉吃力，使我不得不想要写一个函数来处理，
'这样的话我将收集更多自己设计的某功能函数，可想会越来越多，这时感觉C#真的很好，
'有很多现成的函数直接调用实现构思，不需费时费脑，开发效率要高多了。
For Each 序 In Enumerable.Range(0, 宝.Count)
'阿阿 = New Random().Next(1, 9) '要求不重复
'If 包含(宝, 阿阿) = False Then 宝(序) = 阿阿
宝(序) = New Random().Next(1, 9)
Next
阿阿 = 0
For Each 序 In 宝
阿阿 += 序
Next
If 阿阿 = 28 Then
Console.WriteLine("生成总和固定的一组随机数字{0} {1} {2} {3} {4} {5}", 宝(0), 宝(1), 宝(2), 宝(3), 宝(4), 宝(5))
Else : GoTo 必须一组
End If

可以把封装取出来用,循环也可以自己改其他循环,goto也可以改为循环,至于代码是后台还是前台都一样用