Function PredictSortedSet(seedText As String, lineIndex As Integer) As Variant Dim i As Integer, j As Integer, tmp As Integer Dim seedVal As Long Dim numbers(1 To 43) As Integer Dim selected(1 To 6) As Integer Dim result(1 To 1, 1 To 6) As Integer ‘ …
Function PredictSortedSet(seedText As String, lineIndex As Integer) As Variant Dim i As Integer, j As Integer, tmp As Integer Dim seedVal As Long Dim numbers As Collection Dim selected(1 To 6) As Integer Dim result(1 To 1, 1 To 6) As Integer ‘ シード値 …
