Dim?a?As?Integer
Static?b?As?String
Do
a?=?Int(Rnd?*?812?+?1)
Loop?Until?InStr(b,?"?"?&?a?&?"?")?=?0
Text1.Text?=?a
If?b?=?""?Then?b?=?"?"
b?=?b?&?a?&?"?"
End?Sub
以上代碼有個問題，就是當點擊次數超過812次（換句話說就是所有數字都生成完畢）了就會進入死循環了，可以改成這樣：
Private?Sub?Command1_Click()Dim?a?As?Integer
Static?b?As?String
If?UBound(Split(Trim(b),?"?"))?>=?811?Then?Exit?Sub
Do
a?=?Int(Rnd?*?812?+?1)
Loop?Until?InStr(b,?"?"?&?a?&?"?")?=?0
Text1.Text?=?a
If?b?=?""?Then?b?=?"?"
b?=?b?&?a?&?"?"
End?Sub