Question

vb.net取随机数问题 从1-10中取6个数字，要求这6个数字不重复。该如何编写？需要自己建一个Function？

Answer 1

Imports System.Linq
Module Module1

    Sub Main()
        Dim nums() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
        Dim r As New Random

        Dim result As Integer() = nums.OrderBy(Function(x)
                                                   Return r.Next
                                               End Function).Take(6).ToArray
        '检验
        For Each n In result
            Console.WriteLine(n)
        Next
        Console.ReadLine()
    End Sub

End Module

追问

非常感谢你的回答。
但是我现在只能大概读懂VB.NET的代码。你这个我读不太懂，也不会跑啊。
麻烦能帮弄成VB.NET的东西嘛？
谢谢！

追答

是vb.net，vs2010以上应该都可以跑。

追问

我现在只会写一些控件后边的东西，能帮我弄成下边的样式嘛。。。

Public Class frm

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click 

    . . . . . . 

    End Sub

End Class

非常感谢！麻烦了！！

追答

你的提问没涉及界面，可以采纳后提另一个问题。

追问

.......我提高悬赏可以嘛？

追答

我财富值10w+不缺你这点。