VB.net 임의 생성 10 이 숫자보다 작으며 반복되지 않습니다.

Private subbutton1_ click (byval sender as system). 객체, ByVal e 를 시스템으로 사용합니다. 이벤트) 처리 버튼 1. 클릭

Dim I, j

J = GetRndNotRepeat( 1, 10, 10)

J(0) 인 경우

I = 1 끝 10 의 경우

MsgBox(j(i))

그리고 나서

만약 ... 끝날거야

끝단 접합

공용 함수 GetRndNotRepeat(ByVal NumMin 은 정수, ByVal NumMax 는 정수, ByVal n 은 정수)

컴파일: xsfhlzh

함수: NumMin 과 NumMax 사이의 n 개의 임의 정수를 취합니다.

설명: 플래그 배열은 Byte 이며 각 비트는 NumMin 과 NumMax 사이의 숫자 상태를 나타냅니다.

Dim arr () 은 정수입니다

N & gtNumMax-NumMin+1 그리고

ReDim arr(0)

Arr(0) = 0

Arr 을 반환합니다

기타

ReDim arr(n)

M 을 정수로 치수기입합니다

Dim b () 는 바이트입니다

M = Int((NumMax-NumMin)/8)

레딤 b(m)

입구 표시

Dim I

X, y, z 를 정수로 치수기입합니다

임의 추출 ()

Arr(0) = 1

I = 1 끝 n 의 경우

하다

X 의 위치를 찾습니다. 여기서 y 는 x 가 배열의 어느 바이트에 있는지, z 는 x 가 어느 바이트에 있는지 나타냅니다.

X = int (rnd () * (nummax-nummin+1))+nummin

Y = x-NumMin

Z = 2 (y mod 8)

Y = y \ 8

B(y) 와 z 시 순환

B(y) = b(y) 또는 z

Arr(i) = x

인출되지 않은 숫자를 찾아 배열에 넣고 플래그 비트를 설정합니다.

다음으로 저는

만약 ... 끝날거야

Arr 을 반환합니다

기능을 종료합니다