求在VB环境中1-11之间，先2个数字，每个数字都不同的！

2个数？？

dim a1 aS long ,a2 as long    '我习惯用 LONG ，相当于 C 里的 int 。32位。
a1=int(rnd()*11)+1              '随机第一个数
do
a2=int(rnd()*11)+1              '随机第二个数
loop while a2=a1                '当第二数等于第一个数时，重新循环。也就是重新产生第二个数

msgbox a1 & "  " & a2           '输出二个数。debug