Dim i As Integer, n As Integer
dim d(5)
 for k=1  to 40
List1.Clear
 For i = 1 To 35   
  List1.AddItem (i)
Next i Randomize
For i = 1 To 5     
 n = Int(Rnd * List1.ListCount)   
 d(i) = List1.List(n)
? D(I)   
List1.RemoveItem n
Next i
Next k

主要是锻炼一下

LOCAL i, n
DIMENSION d(5)
FOR k=1 to 40
    thisform.List1.Clear
    FOR i = 1 To 35   
      thisform.List1.AddItem(TRANSFORM(i))
    NEXT  
    FOR i = 1 To 5     
        n = Int(Rand() *thisform.List1.ListCount)   
        d(i) = thisform.List1.List(n)
        ? D(I)
        IF n>0   
            thisform.List1.RemoveItem(n)
        ENDIF
    NEXT  
NEXT  

LOCAL i,n,k
DIMENSION d(5)
FOR k=1 to 40
    thisform.List1.Clear
    FOR i = 1 To 35   
      thisform.List1.AddItem(TRANSFORM(i))
    ENDFOR  
    FOR i = 1 To 5     
        n = Int(Rand() *thisform.List1.ListCount)   
        d(i) = thisform.List1.List(n)
        ? D(I)
        IF n>0   
            thisform.List1.RemoveItem(n)
        ENDIF
    ENDFOR  
ENDFOR   

都精彩！