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的不知名高中生：）