VB 求壹個不重復的例子代碼

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Randomize

Do

a = Int(Rnd * 15) + 1

b = Int(Rnd * 15) + 1

c = Int(Rnd * 15) + 1

Loop Until a <> b And b <> c And a <> c

Print a; b; c

End Sub

上一篇:電腦編程的5怎麽說

下一篇:刀削面機器人的介紹