기금넷 공식사이트 - 복권 조회 - Vb 배열은 당첨 번호를 생성합니다

Vb 배열은 당첨 번호를 생성합니다

이것은 내가 쓴 프로그램이다. 유용하다고 생각하세요?

Dim a, 즉 h 는 문자열로 사용됩니다

개인 하위 명령 1_KeyPress(KeyAscii 는 정수)

불규칙하게 만들다

I = Int(7 * Rnd+1)

E = int (9999999 * rnd+1000000)

KeyAscii = 32 인 경우

A = InputBox ("안녕하세요, 숫자를 입력해주세요", "상금 프로그램에 오신 것을 환영합니다", "")

Do While Len(Trim(a))>7 또는 len (trim (a)) < 일곱

A = InputBox ("숫자가 7 자리보다 크거나 작습니다. 숫자를 다시 입력하십시오.", "상금 항목에 오신 것을 환영합니다.", "")

고리

If (Mid(Trim(a), 1, 1) = Chr(48) 또는 Mid(Trim(a),/kloc 1,1) = chr (511) = chr (51 2, 1) = Chr(54) 또는 Mid(Trim(a), 2, 1) = Chr(55) 또는 mid (;

및 (Mid(Trim(a), 4, 1) = Chr(48) 또는 Mid(Trim(a), 4,1 1) = Chr(5 1) 또는 Mid(Trim(a), 4, 1) = Chr(52/ 1) = Chr(53) 또는 Mid(Trim(a), 5, 1) = Chr(54) 또는 mid (trim)

및 (Mid(Trim(a), 7, 1) = Chr(48) 또는 Mid(Trim(a), 7,1

Right(Trim(a), 7) = Right(e, 7) 인 경우

H = MsgBox ("축하합니다, 당신은 대상을 받았습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<<& lt& lt& lt& lt& lt& lt”& amp" 사용자 번호 "&; Trim(a) 및 amp" & gt& gt& gt& gt& gt& gt& gt> 상 "

ElseIf Right(Trim(a), 6) = Right(e, 6)

H = MsgBox ("축하합니다. 1 등상을 받았습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<& lt& lt& lt& lt& lt”& amp" 사용자 번호 "&; Trim(a) 과 amp" & gt& gt& gt& gt& gt& gt> 1 등상 "

ElseIf Right(Trim(a), 5) = Right(e, 5)

H = MsgBox ("축하합니다, 당신은 2 등상을 받았습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<& lt& lt& lt& lt”& amp" 사용자 번호 "&; Trim(a) 과 amp" & gt& gt& gt& gt& gt> 2 등상 "

ElseIf Right(Trim(a), 4) = Right(e, 4)

H = MsgBox ("축하합니다, 당신은 3 등상을 받았습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<& lt& lt& lt”& amp" 사용자 번호 "&; 트림 (a) 과 amp" & gt& gt& gt& gt 3 등상 "

ElseIf Right(Trim(a), 3) = Right(e, 3)

H = MsgBox ("축하합니다, 당신은 4 등상을 받았습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<& lt& lt”& amp" 사용자 번호 "&; 트림 (a) 과 amp" & gt& gt& gt 4 등상 "

ElseIf Right(Trim(a), 2) = Right(e, 2)

H = MsgBox ("축하합니다, 당신은 5 등상에 당첨되었습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<<"& "사용자 번호"&; 트림 (a) 과 amp" & gt& gt 5 등상 "

ElseIf Right(Trim(a), 1) = Right(e, 1) 인 경우

H = MsgBox ("축하합니다. 6 등상에 당첨되었습니다." " , 0, "상")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "<& amp" 귀하의 번호 "&; 트림 (a) 과 amp" & gt 6 등상 "

ElseIf Right(Trim(a), I) < -그래>

H = MsgBox ("계속 노력해라, 너는 상을 받지 못했다." " 0, "당첨되지 않았다")

그림 1. 인쇄 SPC (2); "복권 번호"&; E

그림 1. 인쇄 "귀하의 번호"&; Trim(a) 과 amp 는' 당첨되지 않았다'

만약 ... 끝날거야

기타

H = MsgBox ("숫자만 입력할 수 있습니다." " , 0, "오류")

만약 ... 끝날거야

만약 ... 끝날거야

끝단 접합