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
끝단 접합