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追问
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+不缺你这点。
温馨提示：答案为网友推荐，仅供参考
相似回答