현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - 어떻게 VB 로 무작위 복권을 프로그래밍할 수 있습니까? 빨리, 빨리, 빨리

어떻게 VB 로 무작위 복권을 프로그래밍할 수 있습니까? 빨리, 빨리, 빨리

정수인 공용 a

개인 하위 명령 1_Click ()

A<3 이 1 에 치수를 기입하면. 표시 = 참

A>= 3 및 a<= 6 인 경우 치수 2 를 지정합니다. 표시 = 참

A>6 다음에 3 을 표시하면. 표시 = 참

끝단 접합

개인 하위 양식 _Load ()

레이블1입니다. 표시 = 거짓

태그 2. 표시 = 거짓

태그 3. 표시 = 거짓

레이블1입니다. Caption = "위 서명"

태그 2. Caption = "중간 태그"

태그 3. Caption = "다운로드 및 서명"

끝단 접합

개인 하위 타이머 1_Timer ()

A = Int(Rnd() * 10)

한 부 프린트하다

끝단 접합