vb随机函数的一个问题

我想随机生成1-6的6个整数，然后把他们分别赋值给a（1 to 6），要求a（）中每项都不能重复，该怎么做啊，求教给高手了，小弟先行谢过

答案：Private Sub Command1_Click()
Dim a(1 To 6) As Integer, i, j, t
For i = 1 To 6
Do
  a(i) = Int(Rnd * 6) + 1
  t = 0
  For j = 1 To i - 1
    If a(i) = a(j) Then t = 1
  Next
Loop While t = 1
Print a(i);
Next
End Sub

其他：初学者的解答
dim a(1 to 6) as integer
dim i as integer ,j as integer
private sub command1_click()
randomize
for i =1 to 6
 a(i)=int(rnd*6+1)
for j = 1 to i-1
 if a(i)=a(j) then i=i-1
next j
next i
end sub
不知道可以不

上一个：我想问一下：输入正方形的边长，并计算其对角线长 用VB编程，这道题的类似text,label等的这样的怎么建？
下一个：VB如何判断注册表中的某个键值是否存在？如何判断一个文件夹下的一个文件是否存在？