vb6.0實現生成不重複的隨機整數並排序輸出

說起來這也算是我的一個執念…當時上機試排序算法時用的生成隨機數 會有重複數出現 老師讓我自己回去琢磨…

想法來自某天作業本的題：
要實現輸出不重複的數，即將已出現過的數標記一下即可 採用邏輯型變量實現
來看以下代碼：

for i=1 to n
 f（i）=false 
next i
for i=1 to n
 t=int(rnd*100）'以[0，100）爲例
  do while f（t）=TRUE 
  t=int(rnd*100）
  loop
f（t）=TRUE
next i
j=0
for i=1 to n
 if f(i)=TRUE then 
 j=j＋1
 a（j）=i
 list1.additem str（i）
 end if 
next i

定義需要自己補上…
有更好想法歡迎提出交流
有誤的地方歡迎指正
下次可能就是對某些基礎算法的不深入講解 佬依舊可以無視（雖然按我的尿性不知多久以後才更

某隻會vb6.0的不知名高中生：）