무작위 판결 복권

사용자 정의 함수를 사용하여 이 작업을 수행할 수 있습니다.

예를 들어 설명하다. 예를 들어, 다음 그림과 같은 데이터 테이블이 있습니다.

그림과 같이 A 열에는 30 개의 단문이 있고 C 1 에는 5 개의 임의 선택이 필요한 문장 조합이 있습니다.

첫 번째 단계: 개발 도구인 ——visual basic 을 클릭합니다. 그림과 같이:

2 단계: 모듈을 삽입하고 다음과 같이 코드를 컴파일합니다.

정수 형태의 공용 온도 (1 ~ 5)

함수 sjf ()

Sjf = ""

RndNumberNoRepeat 를 호출합니다

I = 1 ~ 5 의 경우

Sjf = sjf& 셀 (온도 (i)+1, 1). 텍스트

내가<5 라면 sjf = sjf& ","

다음으로 저는

기능을 종료합니다

공용 자식 RndNumberNoRepeat ()

Dim RndNumber, I, k, Maxrec 는 정수입니다

무작위화 (타이머)? 난수 생성기를 초기화합니다.

Maxrec = 30

K = 1

Do While k<= 5

Rndnumber = int (최대 rec * rnd)+1

온도 (k)= rnd 번호

I = 1 끝 k 의 경우

Temp(i) = RndNumber 인 경우 종료합니다

다음으로 저는

I = k 인 경우 k = I+1

-응?

고리

끝단 접합

3 단계: C 1 에 공식 입력: =sjf (). 결과는 다음과 같습니다.