사람을 찾아 추첨 수속을 하다.

Q: 공개 수업에서 선생님이 수업시간에 Excel 추첨 프로그램을 사용하여 해당 학호의 학생 답안을 받는 것을 보았습니다. 이렇게 하면 교실 분위기를 높이고 학생들의 적극적인 참여를 동원할 수 있다. 이것은 좋은 교수 전략이다. A: 선생님의 생각은 매우 창의적이고 어렵지 않습니다. 사실 복권은 우리의 일상생활에서 흔히 볼 수 있다. 여기서 우리는 간단한 추첨 절차의 예를 소개하는데, 너에게 더 많은 계시를 줄 수 있기를 바란다. 각각 5 ***5 개의 행이 있는 25 개의 숫자가 있다고 가정합니다. 숫자 아래에 두 개의 명령 버튼을 그리고 제목 속성을 각각 "추첨" 과 "일시 중지" 로 변경합니다. 추첨 버튼을 두 번 클릭하여 코드를 입력합니다. 주요 코드는 다음과 같습니다.

K=0: 플래그 =0

Do flag= 1 까지

I=6 부터 10 까지의 경우

J 의 경우 = 3 ~ 7

K=0 이면

셀 (I, j). 고르다

"DoEvents" 는 프로그램 제어를 해제하며 다른 이벤트를 실행할 수 있도록 합니다.

K= 1

셀 (I, j). 고르다

만약 ... 끝날거야

그리고 나서

그리고 나서

코드 윈도우를 순환하고 시트로 돌아갑니다. "그리기" 버튼을 클릭하여 25 개의 셀을 빠르게 선택하고 "일시 중지" 버튼을 클릭하여 그리기 프로그램의 실행을 중단합니다 (예: 숫자 중 하나 선택). "추첨" 버튼을 다시 클릭하여 추첨을 계속하면 간단한 추첨 절차가 완료됩니다. Alt 와 F 1 1 을 눌러 매크로 인터페이스로 들어가 삽입 메뉴를 클릭하고 다음 코드를 붙여 넣습니다.

부울 Dim 플래그

보조 AAA 레벨 ()

셀을 범위로 어둡게 하기

표기할 때까지 만들다

범위 ("C6:G 10"). 셀 (Int(Rnd() * 25)+1). 고르다

여러 활동

고리

플래그 = false

끝단 접합

하위 BBB ()

플래그 = 참

끝단 접합

Excel 로 돌아가서 25 개의 레이블을 입력합니다. G 10 (코드의 굵은 글씨는 실제 상황에 따라 수정됨), 상자, "추첨", "일시 중지" 와 같은 두 개의 그래픽을 삽입합니다. 첫 번째 상자를 마우스 오른쪽 단추로 클릭하고 다음을 지정합니다 두 번째 상자를 마우스 오른쪽 버튼으로 클릭하고 매크로 BBB 를 지정합니다.

해봐.