Question

VB 实时错误:'5' 如何解决?

提示：List1.RemoveItem List1.ListIndex这句话错误

Answer 1

改为
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex

追问

我想实现从列表框随机抽取1-24个数字，抽取显示后，列表框内该数字删除，然后继续从剩下的数字里面抽，直到全部抽光

n = List1.ListCount
Randomize
For i = 1 To n
s = Int(Rnd * (n - 1 + 1)) + 1
List1.Text = s
Label3.Caption = List1.Text
Next i

追答

如果你的目的只是想获得一个1到24的不重复的随机序列，用不着搞这么复杂的，也用不着列表框来中转的，直接在数组中处理即可：

Dim a(1 To 24) As String
Dim i As Integer, j As Integer, k As String

Private Sub Form_Load()
Randomize
For i = 1 To 24
    a(i) = i
Next i
For i = 1 To 24
    j = Int(Rnd * 24) + 1
    k = a(j)
    a(j) = a(i)
    a(i) = k
Next i
Label3.Caption = Join(a, " ")
End Sub

追问

我需要对24个人进行排序抽签，总共24个序号（1-24），抽取后这个序号不在出现，比如说，第一个人抽到14号，那么久剩下23个数字进行抽取 没有14号了

追答

那么经过上面的代码运行后，数组a就是一个随机数列了，你只要按顺序从a中取出每个数，就是这24个人所抽到的号码啦，每个人的号码都是随机的，而且不重复。