求助关于图片切换的问题

Question

我想从文件夹中把图片文件取出．当按下空格后，在picturebox中不停随机切换图片．直到按下空格停止．并且再按空格时，前面抽到的图片不在加如随机切换的范围中．该如何解决？求大侠告知．

Answer 1

参考这段代码：从１０个数字中随机不重复选择．
Private   Sub   Command1_Click()   
  Dim   A(9)   As   Long   
  Dim   X   As   Long   
  Dim   I   As   Long   
  Dim   L   As   Long   
  Me.Cls   
  For   I   =   0   To   9   
        A(I)   =   I   
  Next   I   
  For   I   =   9   To   0   Step   -1   
        X   =   Int(I   *   Rnd)   
        Me.Print   A(X)   
        L=A(X)   
        A(X)   =   A(I)   
        A(I)=L   
  Next   
  End   Sub   至于图片，只要加载到IMAGE控件数组中，就可以套用上去了．