높은 점수에서는 VB 가 여러 개의 반복되지 않는 난수를 생성해야 합니다.

Text 1, text2, text3 및 command 1 컨트롤을 양식에 추가한 후 다음 코드를 복사하여 실행합니다. Text 1 에 숫자를 입력하고 text2 에 숫자 범위를 입력하고 command 1 버튼을 누르면 text3 에 n 개의 고유한 난수가 표시됩니다.

명시적 옵션

개인 하위 명령 1_Click ()

Dim I 는 정수, j 는 정수, k 는 정수, ss, TT () 는 정수, outzf 는 문자열입니다

Ss = split (텍스트1. 텍스트, ",")

레딤 TT

K = Val (텍스트 2. 본문)

K & gtUBound(ss)+1 그리고

MsgBox "입력한 생성 수량이 수량 목록보다 큽니다. 수정하십시오!"

출구 커넥터

만약 ... 끝날거야

불규칙하게 만들다

하다

J = Rnd * k

Tt(j) = 0 이면

Tt(j) = 1

Outzf = outzf & ampss(j) 및 amp ","

I = I+1

만약 ... 끝날거야

여러 활동

I = k 까지 루핑

문자 3. Text = outzf

끝단 접합