像这样的乱序数组如；2、3 、7、9、4、1、5、10、8、6  想从1到9之间随机选一个数作为参考数，如选3，然后从数组中三开始，像后去5位数（不包含3）然后从左到右排列怎么写？

太簡單的東西

Option Explicit
Dim iStr() As String

Private Sub Form_Load()
    ReDim iStr(1000) '存放數據
    Dim i1 As Long
    ''錄入數據'''''''''''''''''''''''''''''''
    '這里用隨機函數產生 你可以從數據文件讀取實際數據
    For i1 = LBound(iStr) To UBound(iStr)
        Randomize
        iStr(i1) = Int(Rnd() * 50000)
    Next i1
    '''''''''''''''''''''''''''''''''''''''''
End Sub

Private Sub Command1_Click()
    Dim i1 As Long, i2 As Long
    Dim s1 As String, s2 As String
    Do
        i1 = Rnd() * UBound(iStr)
    Loop While i1 > UBound(iStr) - 5 '防止溢出
    ''''''''''''''''
    For i2 = i1 To i1 + 5
        s1 = s1 & i2 & "#-" & iStr(i2) & "  "
    Next i2
    Label1 = "順序排列 " & s1
    '''''''''''''''''
    For i2 = i1 + 5 To i1 Step -1
        s2 = s2 & i2 & "#-" & iStr(i2) & "  "
    Next i2
    Label2 = "逆序排列 " & s2

End Sub



[ 本帖最后由 liugongaoo 于 2013-11-1 21:07 编辑 ]

代碼寫上來了，你的描述不太清楚，錯別字超標了。。。。。。
邏輯也不太清楚，既然是隨機數，包含本身與否結果都一樣。
代碼示例了隨機定位后抽取順序的6個數列。。。。





[ 本帖最后由 liugongaoo 于 2013-11-1 21:14 编辑 ]