求大佬帮忙，选中的多选框随机执行怎么改成依次执行？

sicheng007

[按键精灵] 纯文本查看 复制代码

Dim arr=array()
Dim n=0
For i = 1 To 12
    If ReadUIConfig("多选框" & i) Then 
        arr(n) = i
        n=n+1
End If
Next

For Each k In arr
    TracePrint k
Next


Dim sj=int((ubound(arr)+1)*rnd())
TracePrint "随机选中的多选框是"&arr(sj)


If arr(sj) = 1 Then
    TracePrint "1号任务"
ElseIf arr(sj) = 2 Then
    TracePrint "2号任务"
ElseIf arr(sj) = 3 Then
    TracePrint "3号任务"
ElseIf arr(sj) = 4 Then
    TracePrint "4号任务"
ElseIf arr(sj) = 5 Then
    TracePrint "5号任务"
ElseIf arr(sj) =6 Then
    TracePrint "6号任务"
ElseIf arr(sj) = 7 Then
    TracePrint "7号任务"
ElseIf arr(sj) = 8 Then
    TracePrint "8号任务"
ElseIf arr(sj) = 9 Then
    TracePrint "9号任务"
ElseIf arr(sj) = 10 Then
    TracePrint "10号任务"
ElseIf arr(sj) = 11 Then
    TracePrint "11号任务"
ElseIf arr(sj) = 12 Then
    TracePrint "12号任务"
End If