기금넷 공식사이트 - 복권 조회 - 프로그램 입구 디자인 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 "

끝단 접합