用VB从1－12这12个数中随机生成3个互不重复的数

3个TEXT用来分别显示三个数。
一个Command1 用来每点一次刷新一次。
三个数只要不是重复就可以了，不用大小顺序什么的。
请写出完整程序 ，最好带上注释。我是小白，谢谢……分不多了，只能给这点

---

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Randomize
Do
    a = Int(Rnd * 12) + 1   '咐尺分别生成三个数
    b = Int(Rnd * 12) + 1
    c 饥让= Int(Rnd * 12) + 1
Loop While a = b Or b = c Or a = c   '如果有任何两个数相同就再次生成
Text1.Text = a   '把数值分别放到三个文本框中
Text2.Text = b
Text3.Text 烂简局= c
End Sub

---

解饥晌肢烂世谨颂：
private sub command1_click()
randomize
dim a as integer ,b as integer ,c as integer
a=int(rnd*12)+1
text1=a

do
b=int(rnd*12)+1
loop until b<>a
text2=b
do
c=int(rnd*12)+1
loop until c<>b and c<>a
text3=c

end sub

---

弄个数组就搞定了。

---