어떻게 무작위 추첨에서 이름을 움직일 수 있습니까? (VB 언어)

새 프로젝트를 만들고 타이머 컨트롤, 1 텍스트 컨트롤 및 1 명령 컨트롤을 추가합니다. 아래 절차를 복사하기만 하면 됩니다.

개인 하위 명령 1_Click ()

If 명령 1. Caption = "시작"

타이머 1. 작동 가능 = 참

명령 1. Caption = "끝"

기타

타이머 1. 활성화 = false

명령 1. Caption = "Go "

만약 ... 끝날거야

끝단 접합

개인 하위 양식 _Load ()

타이머 1. 간격 = 10

타이머 1. 활성화 = false

텍스트1. FontSize = 20

끝단 접합

개인 하위 타이머 1_Timer ()

R 을 정수로 치수기입합니다

R = Int(5 1 * Rnd+1)

R = 1 그렇다면 k = "후루룩"

R = 2 인 경우 k = "황덕청"

R = 3 이면 k = "왕혜"

R = 4 인 경우 k = "장 이순신"

R = 5 이면 k =' 경임인' 이다

R = 6 인 경우 k = "코리나"

R = 7 이면 k = "금란란"

R = 8 이면 k = "손병희"

R = 9 이면 k = "모금봉"

R = 10 이면 k = "이샤오밍"

R = 1 1 인 경우 k = "최이춘"

R = 12 라면 k =' 조루루'

R = 13 이면 k =' 유' 입니다

R = 14 이면 k = "장술평"

R = 15 이면 k = "진아리"

R = 16 이면 k =' 제묘'

R = 17 이면 k =' 조밍' 입니다

R = 18 이면 k =' 유' 입니다

R = 19 라면 k =' 장빈'

R = 20 이면 k = "유문형"

R = 2 1 이면 k = "황비연"

R = 22 이면 k = "왕량"

R = 23 이면 k = "상홍폭"

R = 24 이면 k = "타웨연"

R = 25 이면 k = "양붕비"

R = 26 이면 k = "진든"

R = 27 이면 k = "조각상"

R = 28 이면 k = "노란색"

R = 29 이면 k = "진영걸"

R = 30 인 경우 k = "류버윈"

R = 3 1 이면 k = "왕태그"

R = 32 인 경우 k = "장아위"

R = 33 인 경우 k = "Xi 보 잘 생긴"

R = 34 이면 k = "이암"

R = 35 인 경우 k = "이채용"

R = 36 인 경우 k = "샤이엔 기호"

R = 37 이면 k = "장자양"

R = 38 이면 k =' 제맹충이'

R = 39 인 경우 k = "장강"

R = 40 이면 k = "강호함"

R = 4 1 이면 k = "곽효봉"

R = 42 인 경우 k = "왕 웨이보"

R = 43 이면 k = "왕항"

R = 44 이면 k = "피샤 남"

R = 45 이면 k = "멩"

R = 46 이면 k = "곽"

R = 47 인 경우 k = "마셀린"

R = 48 이면 k = "후표"

R = 49 이면 k = "주뢰"

R = 50 이면 k = "장유"

R = 5 1 그렇다면 k = "늘 가랑비"

텍스트1. 텍스트 = k

끝단 접합