기금넷 공식사이트 - 복권 조회 - 프로그램 입구 디자인 VB6.0 대신께서 해 주세요. 벤 샤오백은 이미 한 시간 동안 일했는데, 그는 머리가 아프다. 그는 아직 하지 않았다.
프로그램 입구 디자인 VB6.0 대신께서 해 주세요. 벤 샤오백은 이미 한 시간 동안 일했는데, 그는 머리가 아프다. 그는 아직 하지 않았다.
명시적 옵션
Private zjhm As String
개인 하위 명령 1_Click ()
Cp 를 문자열로 표시
Cp = InputBox ("복권 번호를 입력하십시오!" " ) 을 참조하십시오
Do while len (CP) < & gt 3
Cp = InputBox ("복권 번호를 입력하십시오!" " , "복권 번호가 잘못되었습니다! 다시 입력해 주세요! " ) 을 참조하십시오
고리
I 를 정수로 치수기입합니다
Dim Ls( 1 ~ 3) 를 문자열로 사용
I = 1 ~ 3 의 경우
Ls(i) = Mid(zjhm, I, 1)
다음으로 저는
Dim j 는 정수입니다
N 을 정수로 표시합니다
Cp = zjhm 인 경우
MsgBox "축하합니다. 1 등상을 받았습니다!"
Elseif (mid (mid, 1, 2) = Mid(zjhm, 1, 2)) 또는 (Mid(cp, 2)
(Mid(cp, 1, 1) = Mid(zjhm, 1, 1) 및 mid
MsgBox "축하합니다. 2 등상을 받았습니다!"
Elseif (mid (mid, 1, 1) = Mid(zjhm, 1, 1
(Mid(cp, 2, 1) = Mid(zjhm, 2, 1)) 또는 _
(Mid(cp, 3, 1) = Mid(zjhm, 3, 1)) 그렇다면
MsgBox "축하합니다. 작은 상을 받았습니다!"
기타
MsgBox "아쉽게도 나는 당첨되지 않았다! 참여해 주셔서 감사합니다! "
만약 ... 끝날거야
끝단 접합
개인 하위 양식 _Load ()
당첨번호가 52 1 이라고 가정합니다.
Zjhm = "52 1 "
끝단 접합