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

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