기금넷 공식사이트 - 복권 조회 - 다음은' 복권 선택 도우미' 의 Visual Basic(VB) 프로그램 코드입니다. 다음은 설계 인터페이스로, 높은 사람을 찾아 하나하나 코드를 해석하려고 한다.
다음은' 복권 선택 도우미' 의 Visual Basic(VB) 프로그램 코드입니다. 다음은 설계 인터페이스로, 높은 사람을 찾아 하나하나 코드를 해석하려고 한다.
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
그게 다야
- 관련 기사
- 아빠 생일에 얼마나 많은 꽃을 보내야 하나요?
- 귀신이 당신을 죽이러 오는 꿈을 꾸는 것은 무슨 뜻입니까?
- 우리의 관점의 능력은 학력보다 더 중요하다. 나는 많은 정보 등이 필요하다.
- 임산부가 머리를 짧게 자르는 꿈을 꾸는 것은 무엇을 의미합니까?
- 0부터 999까지 세 자리 숫자를 몇 세트나 배열할 수 있나요?
- 산시성 비과세 결제란 무엇을 의미하나요?
- 포켓몬 에메랄드에는 몇 개의 주구가 있습니까?
- 충칭 채민 만 장의 그림에 대한 묘사 _ 충칭 채민 만 장의 그림에 대한 묘사가 사실인가요?
- 허베이 () 성 보정시 이현 () 에 행정촌이 몇 개나 있습니까?
- Guangdong Renke Shipping Co., Ltd.는 어떻습니까?