VB 를 사용하여 복권 보너스를 작성하고 계산하십시오.

개인 하위 명령 1_Click ()

과자만큼 길다

I = 0 ~ 9999 의 경우

여러 활동

J = 1 끝 len 의 경우 (I)

Select Case UBound(Split(Str(i), Mid(Str(i), j, 1)))

시나리오 2: 합계 = 합계+10

시나리오 3: 합계 = 합계+100

시나리오 4: 합계 = 합계+1000

기타 상황

선택을 마치다

나. 제목 = 합계

다음 J.

다음으로 저는

그 결과: 170640. 이 결과는 33 13 과 같이 같은 동일한 연관성이 있든 없든 간에 100 원에 당첨되었다.

나. 제목 = 합계

끝단 접합