퍼지 수
개인 하위 양식 1_Load(sender 는 객체로, e 는 EventArgs 로) MyBase 를 처리합니다. 부하
Array = {"이환", "궁리", "담현량", "왕타오", "쑤", "유엽", "정전형", "요위", "곽" 입니다
개수 = 배열. 숫자를 세다
끝단 접합
Private subbutton 1 _ click (sender as object, e As EventArgs) 처리 button1. 클릭
Dim random = New Random () 입니다. 다음 (배열). 수)
하다
If 배열 (임의) < > "그럼
수 -= 1
나. Text = array (random)&; 숫자를 세다
배열 (임의) = ""
수출 Do
기타
Random = New Random () 입니다. 다음 (배열). 수)
만약 ... 끝날거야
주기 While(count >；; 1)
끝단 접합