기금넷 공식사이트 - 복권 조회 - 다음은' 복권 선택 도우미' 의 Visual Basic(VB) 프로그램 코드입니다. 다음은 설계 인터페이스로, 높은 사람을 찾아 하나하나 코드를 해석하려고 한다.

다음은' 복권 선택 도우미' 의 Visual Basic(VB) 프로그램 코드입니다. 다음은 설계 인터페이스로, 높은 사람을 찾아 하나하나 코드를 해석하려고 한다.

private sub cmd start _ click ()

dim I as integer' I 를 성형 변수로 정의

For I = To 4'i 에서 4 까지 5 회 주기

. valuethen' i+1 주를 선택한 경우 (선택 상자의 첫 번째부터 다섯 번째 주까지는 옵션 1 () 부터 옵션 1 (4) 까지)

exit for' 이 충족되면 종료 for 루프

end if' 종료 판단

Next'for 루프 종료 문

base = i* 7' 위 루프를 사용하여 선택한 첫 번째 주석을 I 에 할당했습니다 7 변수에 할당 base cmdStop.Enabled = True' 정지 버튼의 가용성을 true 로 변경하여 정지 버튼을 사용할 수 있게 합니다.

cmdstart.enabled = false' 시작 버튼을 사용할 수 없게 합니다.

cmdauto Top.SetFocus' 는 중지 버튼 초점 (버튼 주위에 특히 가는 점선)

start = True' 를 통해 변수 start 의 논리적 속성을 true 로 만듭니다.

do while start' 이것은 do loop 입니다 난수를 매번 다르게 만들기,

I = rnd () * 6' I 에게 1 부터 6 까지의 난수 가져오기

LBL num (I+base). caption = trim (str; (1))) < P >' 여기서 lblNum(i+base).Caption 은 몇 번째 행운의 번호상자를 가리키며, base 는 이전에 결정한 몇 주에 6 (행당 6 개) 을 곱한 것이다. 즉, 몇 줄부터 시작한다. 개인적으로 이 부분이 잘못되었다고 생각하는데, < P > Doevents' 운영 체제가 다른 이벤트를 처리할 수 있도록 통제권을 양도한다.

If auto Then' 만약 auto 가 참인 경우 (자동 버튼을 클릭하는 것) < P > If Timer-Stime & SDiff Then‘' 은 범용 선언 영역에 해당하는 정의문이 없습니다. 이해가 안 돼

Exit Do' 가 do loop 주기

End If' 판단 종료

end if' 판단 종료

loop

end sub

prip 중지 버튼 클릭 이벤트

cmdstop.enabled = false' 중지 버튼을 사용할 수 없음

I = ' I =

do while true' do loop 루프 내부 종료 루프 문을 통해 루프 종료

lblnum (I+base). caption = trim (str (int (rnd () * IIF (I = 6,5, (1))))' 는 이전의

I = I+1' I 와 함께 부터 차례로

If i=7 Then

Exit Do' 를 누적한다. I = 7 종료 루프

ent 5' 에서 .2 까지의 임의 값

N = Timer'n 은 시스템 타이머 값

Do While Timer-N < P'

randomizetimer

r = rnd () * (6-i)+I' 는 r 이 I 에서 6-I 사이의 임의 값

LBL num (r+ Iif (r = 6,5,1)))

doevents' 통제권 양도, 운영 체제가 다른 이벤트 처리

loop

loop

start = false' start 속성을 false

cmdStart.Enabled = True' 로 변경할 수 있도록 합니다. CmdStart.SetFocus‘' 시작 버튼 초점

End Sub

Private Sub Form_Load () 양식 로드 이벤트

cmdstop.enabled = false' 중지 버튼을 사용할 수 없음

For I = To 34

lblNum(i) . Caption = ""

Next' 34 개 숫자 모두 비우기

end sub

private sub LBL num _ mousedown (index as integer) Y as single)' lblnum 마우스 누름 이벤트

dim r as integer

if (not start) and (not auto) then' 시작되지 않으면 자동 < 예를 들어, 첫 번째 줄의 두 번째 index 는 1 이고, 두 번째 줄의 첫 번째 index 는 7. mod 7 입니다. 7 에서 빼낸 값은 그가 이 줄의 첫 번째임을 나타냅니다.

manu = True' menu 를 true 로 만들기

do while manu

LBL num (index) = trim (str (int (rnd ()) 1))))

doevents' 운영 체제에서 다른 이벤트를 처리할 수 있도록 제어권 양도

loop

end if

end sub

private sublbl nn Button as integer, shift as integer, x as single, y as single)

manu = false' 마우스 버튼을 놓으면 menu 가 false 로 되어 마우스 클릭 이벤트 중 루프를 중지합니다.

End Sub

그게 다야