求 vb 编写 产生随机数 程序

用VB中随机产生40组随机数,每组8个数字，每个数字在0~9之间,并且只出现一次，按从小到大排列。40组随机数以abcdrfgh（十位）//间隔符//abcdrfgh（个位）的20组样式对齐显示， 然后随便在窗口输入3组两位数字（包括0）（例：78  04  36），十位（7  0  3）与abcdrfgh（十位）比较，个位（8  4  6）与abcdrfgh（个位）比较，十位和个位同时存在，即为满足，选出一组对上述3组两位数都不满足（要求不满足）的一组随机数，否则继续产生随机数，直到出现满足条件的随机数为止。