马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
[按键精灵] 纯文本查看 复制代码
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
|