VB「亂數」的問題，請會的人幫忙一下，謝謝。^^

Question

有一題作業是要做三個不同的亂數，
我是寫 a = Int(Rnd*6)+1
　　　 b = Int(Rnd*6)+1
　　　 c = Int(Rnd*6)+1
然後是 Text1 = a
　　　 Text2 = b
　　　 Text3 = c
這樣執行時是可以的，
不過 a 、 b 、 c 這三個產生的亂數不可以有一樣的，
請問該怎麼寫才不會一樣呢?因為我執行會重複。
請會的人幫忙一下，謝謝^^

謝謝@@"
這樣是成功了但是..
我看不懂耶~都是沒教過的..
我原本做的是錯的嗎??

請問"Dim X As Integer, A(1 To 7) As Integer, I As Integer, S As String"是什麼意思呢?
還有請問"Controls"這個函數是什麼?
真不好意思...

看不懂呀....="=

Answer 1

這樣就不會有一樣的數了：

L1: A = Int(Rnd * 6) + 1
L2: B = Int(Rnd * 6) + 1
L3: C = Int(Rnd * 6) + 1

If A = B Then
GoTo L1
ElseIf A = C Then
GoTo L1
ElseIf B = C Then
GoTo L2
End If

Text1 = A
Text2 = B
Text3 = C

Answer 2

不好意思...
再請問一下>"<
如果是7個亂數怎麼辦呀?
用你的方法再多d、e、f、g...嗎?
可是我試好像不行耶>"<~
糟糕...可以教教我嗎?!

Answer 3

Private Sub Command1_Click()Dim X  As Integer, A(1 To 3) As Integer, I  As Integer, S As StringRandomizeFor I = 1 To 3    Do      X = Int(Rnd * 6) + 1    Loop Until InStr(S, X) = 0    S = S & X    A(I) = XNextFor I = 1 To 3    Controls("Text" & I).Text = A(I)NextEnd Sub