10个随机数中没有重复的数

      上几节课上老师让写过一个随机生成10个数，这节课上又指出10个数中没有重复的数，过程如下：

                      private  sub  command1-click()

                            dim a(10) as integer

                            dim printstr as string

                            dim mystr as string

                           a(1)=int(rnd()*100+1)

                            printstr=str(a(1)

                        for  i=2 to 10

                          mystr="要"

                       t=int(rnd()*100+1)

                           for k=1 to i-1

                     if t=a(k)  then

                       mystr="不要"

                      exit  for

                     end  if

                        next

                      if  mystr="不要"  then

                   i=i-1

                 else

                    a(i)=t

                   printstr=printstr+str(a(i))

                  end if

                   next

                  print printstr

                  end sub

心得体会：看似简单，但是对exit  for  ,  mystr不太熟悉，还应多看课本。