谁能把这个VB的思路转化为VFP?
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
