请教各位高手，怎么用split语句编一个选择题目的程序，　题目有ＩＤ号，根据ID号来编，最好详细一点，谢谢各位高手了．

rnd()*ID号

能不能具体一点啊，大哥，我对这个语句非常陌生

Private Sub Command1_Click()
Dim check As Control
For Each check In Form1
If TypeName(check) = "CheckBox" Then
If check.Value = Checked Then
timu = timu + check.Caption & ","
End If
End If
Next
timu1 = Split(timu, ",")
timu = vbCrLf
For i = 0 To UBound(timu1)
timu = timu + timu1(i) & vbCrLf
Next
MsgBox "所选的题目是:" & timu
End Sub