Dim arr (), 개수
개인 하위 명령 버튼 1_Click ()
수< 가 그렇다면 = 29
N = int (rnd * (ubound (arr)-lbound (arr)+1))+lbound (arr)
텍스트 상자 1. 텍스트 = 배열 (n)
Cells (count+ 1, 10) = arr (n)' 테스트 코드를 삭제할 수 있습니다.
셀 (count+ 1, 1 1) = n' 테스트 코드를 삭제할 수 있습니다.
수 = 수+1
Arr(n) = arr(UBound(arr))
UBound(arr)> 1 그리고 ReDim Preserve arr( 1 에서 UBound(arr)-1) 인 경우
기타
MsgBox' 모든 인원이 담배를 다 피웠다'
만약 ... 끝날거야
끝단 접합
개인 하위 명령 Button2_Click ()
ReDim arr( 1 ~ 30)
불규칙하게 만들다
텍스트 상자 1. 텍스트 = ""
I = 1 30 까지의 경우
Arr(i) = Cells(i, 1)
그리고 나서
MsgBox "초기화됨"
개수 = 0
끝단 접합