다음 코드를 버튼의 Click 이벤트에 쓰고 버튼을 클릭하여 실행 결과를 확인합니다.
개인 하위 명령 1_Click ()
Dim 이름 목록을 새 모음으로 사용
추출된 이름을 이름 집합에 추가합니다.
명단. 이름 0 1 을 추가합니다
명단. 이름 02 를 추가합니다
명단. 이름 03 을 추가합니다
명단. 이름 04 를 추가합니다
명단. 이름 05 를 추가합니다
명단. 이름 06 을 추가합니다
명단. 이름 07 을 추가합니다
명단. 이름 08 을 추가합니다
명단. 이름 09 를 추가합니다
명단. 이름 10 추가
명단. 이름 1 1 을 추가합니다
명단. 이름 12 추가
명단. 이름 13 추가
명단. 이름 14 추가
명단. 이름 15 추가
명단. 이름 16 추가
명단. 이름 17 추가
명단. 이름 18 추가
명단. 이름 19 추가
명단. 이름 20 을 추가합니다
명단. 이름 2 1 을 추가합니다
Dim StrGetName 을 문자열로 사용
A 를 정수로 어둡게 합니다
불규칙하게 만들다
목록1. 분명하다
하다
만약 명단이 있다면. Count & gt 그렇게 0
A = Int(Rnd * NameList) 입니다. 수)+1
StrGetName & lt& gt "인 경우
Str getname = str getname & amp "& 목록. 항목 (a)
목록1. AddItem StrGetName
StrGetName = ""
기타
StrGetName = NameList 입니다. 항목 (a)
만약 ... 끝날거야
명단. 하나 제거
기타
StrGetName & lt& gt "이면 목록 1. AddItem StrGetName
수출 Do
만약 ... 끝날거야
고리
끝단 접합