VB 로 이색구 프로그램을 쓰려면 지정된 숫자로 끝나는 숫자에서 프로그램 작성 방법을 무작위로 선택해야 합니다.

어두컴컴한 붉은 공, 소 공

개인 하위 명령 1_Click ()

레이블1입니다. 제목 = ""

Rarr = getrndnotrepeat (UBound (레드볼), 6)

Barr = getrndnotrepeat (0,ubound (bull bols), 1)

I = 1 6 까지의 경우

T = 지금

하다

여러 활동

순환 While DateDiff("s ",t, Now)& lt；; 1.5

FillStyle = 0

FillColor = vbRed

양식 1. 원 (500+I * 500, 1000), 200, vbRed

전류 = 350+I * 500

현재 값 = 840

인쇄 형식 (빨간색 공 (rarr(i)), "00")

다음으로 저는

T = 지금

하다

여러 활동

순환 While DateDiff("s ",t, Now)& lt；; 2

I = 7

FillStyle = 0

FillColor = vbBlue

양식 1. 원형 (500+I * 500, 1000), 200, vbBlue

전류 = 350+I * 500

현재 값 = 840

인쇄 형식 (BullBalls(barr( 1), "00")

끝단 접합

개인 하위 명령 2_Click ()

끝

끝단 접합

개인 하위 양식 _Load ()

레드볼 = 배열 (2,3,4,7,8,9, 12, 13, 14,/kloc

Bullballs = array (3,4,5,9, 13, 14, 15)

레이블1입니다. 제목 = ""

명령 1. Caption = "Go "

명령 2. Caption = "종료"

양식 1. FontSize = 15

양식 1. FontName = "Arial "

양식 1. ForeColor = & ampHFFFFFF

끝단 접합

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

Dim arr () 은 정수입니다

N & gtNumMax-NumMin+1 그리고

ReDim arr(0)

Arr(0) = 0

기타

ReDim arr(n)

Dim b () 는 바이트입니다

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

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

레딤 b(m)

X 치수를 정수로, y 치수를 정수로 지정합니다

Z 를 바이트로 표시

불규칙하게 만들다

Arr(0) = 1

I = 1 끝 n 의 경우

하다

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

다음으로 저는

만약 ... 끝날거야

GetRndNotRepeat = arr

기능을 종료합니다

그것은 이미 실행되었다.