Fuzzy counting
Private subform 1_Load(sender as object and e as EventArgs) handles MyBase. load
Array = {"Li Huan", "Gong Li", "Tan Xianliang", "Wang Tao", "Xu", "Liu Ye", "Zheng Quanheng", "Liao Wei", "Guo Wei" and "Li Jian"}
Count = array. count
End joint
Private subbutton 1 _ click (sender as object, e As EventArgs) processes button1. click
Dim random = New Random()。 Next (array. Count)
do
If array (random) < > ""So
Count -= 1
Me. text = array(random)&； count
Array (Random) = ""
Exit Do
other
Random = New Random()。 Next (array. Count)
If ... it will be over.
Loop While(count >；; 1)
End joint