主题：[求助]关于随机取数的问题

有一数组{"1","2","3","4","5"),现随机取3个数，但要求这3个数相对分开，即不出现123，234，345。如果随机取2个数，也要求这2个数相对分开。

请教大家了，谢谢

 

 

谢谢，那如果要随机取3个呢

 

取三个：

 

Dim vals() As String =  {"1","2","3","4","5"}
Dim str As String  = ""
Do
    Dim idx As Integer = rand.Next(0,vals.Length)
    If str.Contains(vals(idx)) = False  Then
        str = str & vals(idx)
    End If
Loop While str.Length < 3
Return str

 

 

你去多少个都行，你要做的将下面的3改为其他数字:

 

Loop While str.Length < 3

 

当然3不能大于数组的长度

再请教大家一问题: 有一集合{星期一|32，星期二|37，星期三|32，星期四|78}。根据每天后的数值求出最小值并返回是星期几？ 先谢过了？

“每天后的数值”是何意？

如、周一||32中的32

Dim str() As String = {"星期一|32","星期二|37","星期三|32","星期四|78"}
Dim lst As New List(Of String)
For i As Integer = 0 To Str.Length - 1
    If i = 0 Then
        lst.Add( str(i).Split("|")(1) )
    Else
        If str(i).Split("|")(1) < lst(0) Then
            lst(0) = str(i).Split("|")(1)
        End If
    End If
Next
Output.Show("最小值:" & lst(0))
For i As Integer = 0 To Str.Length - 1
    If str(i).Contains(lst(0)) Then
        Output.Show("最小值对应的星期数:" & str(i).Split("|")(0))
    End If
Next