현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - 다음 임의 함수가 반복되지 않도록 하려면 어떻게 해야 합니까 (VB)?

다음 임의 함수가 반복되지 않도록 하려면 어떻게 해야 합니까 (VB)?

작은 프로그램을 줘, 너에게 도움이 되었으면 좋겠어.

Dim n 은 정수이고 a(20) 는 정수입니다

개인 하위 명령 1_Click ()? 초기화

N = 20

I = 1 끝 n 의 경우

A (I) = i.

다음으로 저는

인쇄

명령 2. 작동 가능 = 참

끝단 접합

Private Sub Command2_Click ()' 중복되지 않는 숫자를 무작위로 추출합니다.

불규칙하게 만들다

K = Int(Rnd * n)+1

A 인쇄 (k);

A(k) = a(n)

N = n-1

N Mod 10 = 0 이면 플롯됩니다

N = 0 이면 명령 2 입니다. 활성화 = false

끝단 접합