복권 코드 HB

Dim I As Integer \ "\" 는 I 를 정수 변수로 정의합니다.

I = 0 ~ 4 의 경우 I 는 0 ~ 4 회 순환합니다.

1 (i) 옵션을 선택한 경우. 주석 i+ 1 을 선택하면 값은 "Then" 입니다 (선택 상자의 첫 번째에서 다섯 번째 주석은 1(0) 에서 1(4) 까지 옵션입니다)

그렇다면 for 루프를 종료합니다.

End If'' 판단 종료

Next'for 루프의 End 문

기본 = I * 7'' 위 루프로 선택한 음표 수를 I 에 할당하면 I * 7 이 변수 base cmdStop 에 할당됩니다. Enabled = True "일시 중지 버튼의 가용성이 True 로 변경됩니다. 즉, 정지 버튼을 사용할 수 있습니다.

CmdStart. Enabled = False'' 시작 버튼을 사용할 수 없게 만듭니다.

Cmd 자동. Enabled = False'' 자동 버튼을 사용할 수 없게 만듭니다.

중지 버튼에 포커스를 설정합니다. 즉, 버튼 주위에 특히 가는 점선입니다

Start = True' 는 Start 변수의 논리 속성을 True 로 만듭니다.

이것은 Do 루프입니다. Start 가 true 이면 계속 순환합니다.

난수를 매번 다르게 만들고,

I = Rnd() * 6'' 는 1 에서 6 까지의 난수를 가져오겠습니다.

LblNum(i+base) 입니다. Caption = trim (str (int (rnd () * IIF (I = 6,5, 10)))

LblNum(i+base) 입니다. 여기서 Caption 은 행운의 숫자 상자를 의미합니다. base 는 선택한 음표 수에 6 (행당 6) 을 곱한 것입니다. 즉, 첫 번째 행부터 I 는 무작위이고, 다음 코드 trim 은 양쪽의 공백을 제거하고, str 은 내용을 문자열 형식으로 변경하고, int 는 반올림합니다. 나는 후자를 잘 모르기 때문에 개인적으로 이것이 틀렸다고 생각한다.

DoEvents 는 운영 체제에서 다른 이벤트를 처리할 수 있도록 컨트롤을 전송합니다.

Auto 가 참인 경우 (즉, auto 버튼을 클릭)

Timer-sTime & gt；; 인 경우 일반 선언 영역에는 해당 정의문이 없기 때문에 잘 이해할 수 없습니다.

T 를 종료하여 do 주기의 루프에서 뛰어내립니다.

End If'' 판단 종료

재판을 끝내지 마라.

고리

끝단 접합

Private Sub cmdStop_Click ()' 중지 버튼의 Click 이벤트입니다.

CmdStop 입니다. Enabled = False \ "\" 중지 버튼을 사용할 수 없습니다.

나 =0' 나 = 0

Do While True'do loop 루프, 루프 판단 조건은 항상 true 이고 루프는 내부 end loop 문으로 끝납니다.

Llbnum (I+base) 입니다. Caption = trim (str (int (rnd () * IIF (I = 6,5, 10)) 은 이전과 동일합니다.

I = I+ 1' I 는 0 부터 누적됩니다.

I = 7 이면

I=7 이면 루프가 종료되지 않습니다.

만약 ... 끝날거야

P = Rnd/5 "는 0 에서 0.2 사이의 임의 값을 취합니다.

N = Timer'n 은 시스템 타이머 값입니다.

타이머-n < P'

무작위화 타이머

R = Rnd()*(6-i)+ r 에게 I 에서 6-I 까지의 임의 값을 가져오라고 했습니다.

LblNum(r+base) 입니다. Caption = trim (str (int (rnd () * IIF (r = 6,5, 10)))

DoEvents 는 운영 체제에서 다른 이벤트를 처리할 수 있도록 컨트롤을 전송합니다.

고리

고리

"start = false”start 속성이 false 로 변경됩니다.

CmdStart. Enabled = True 시작 버튼을 사용할 수 있습니다.

Cmd 자동. Enabled = True'' 자동 버튼을 사용할 수 있습니다.

CmdStart. SetFocus'' 시작 버튼이 포커스를 받습니다.

끝단 접합

개인 하위 양식 _Load ()' 양식 로드 이벤트

CmdStop 입니다. Enabled = False \ "\" 중지 버튼을 사용할 수 없습니다.

I = 0 ~ 34 인 경우

LblNum(i). 제목 = ""

34 개 값을 모두 지웁니다.

끝단 접합

Privatesublbnum _ mousedown (index 는 정수, button 은 정수, shift 는 정수, x 는 single, y 는 single)' lblnum 의 마우스 누름 이벤트.

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

If (시작되지 않음) 및 (자동 아님) 시작되지 않으면 자동으로 시작되지 않습니다.

R = Index Mod 7'index 는 0 부터 시작하는 숫자를 나타냅니다. 예를 들어 첫 번째 행의 두 번째 인덱스는 1 이고 두 번째 행의 첫 번째 인덱스는 7 입니다. Mod 7 은 7 의 나머지를 취하여 얻은 값으로, 이 행에서 어느 숫자인지 나타냅니다.

Manu = True 는 메뉴를 true 로 만듭니다.

할 때 manu

Lblnum (index) = trim (str (int (rnd () * IIF (r = 6,5, 10)))

DoEvents 는 운영 체제에서 다른 이벤트를 처리할 수 있도록 컨트롤을 전송합니다.

고리

만약 ... 끝날거야

끝단 접합

Private Sub lblNum_MouseUp(Index 는 정수, Button 은 정수, Shift 는 정수, x 는 Single, y 는 Single)

Manu = False'' 마우스 버튼을 놓으면 메뉴가 False 가 되고 위에서 설명한 마우스 누름 이벤트의 루프가 중지됩니다.

끝단 접합

그것뿐입니다. 채택되기를 바랍니다.