VB Urgent를 사용하여 복권 교환 프로그램을 만드는 방법! ! ! ! ! ! ! ! !

If?IsNumeric(Text1)?And?Len(Text1)?=?7?Then?' 입력이 7자리 숫자인지 확인합니다.

무작위화

a?=?Format(Int(Rnd?*?9999999? ?1),?"0000000")?'복권 번호 생성

Label1.Caption?= ?" 이 기간의 복권 번호는 다음과 같습니다. "?amp;?a

For?i?=?1?To?7?' 숫자별로 동일한지 확인하고, b는 동일합니다. 숫자

If?Mid(Text1,?i,?1)?=?Mid(a,?i,?1)?Then

b?=?b?1

끝 ?If

다음

If?b?=?7?Then

Label2.Caption?=?"당선을 축하합니다 1등상"

ElseIf?b?=?6?Then

Label2.Caption?=?"2등상 축하드립니다"

ElseIf?b?=?5 ?Then

Label2.Caption?=?"3등 수상을 축하합니다"

'이를 이용하여 귀하의 수상 여부를 판단하세요

Label2.Caption?=?"3등 수상을 축하합니다" p>

Else

Label2.Caption?=?"안타깝게도 상을 받을 뻔했습니다."

End?If

Else

MsgBox?"7자리 숫자 중 하나를 입력하세요"

Exit?Sub

End?If

End?Sub