무질서한 코드:
개인? Sub? CommandButton 1_Click ()
만약? 명령 버튼 1. 제목? =? "시작"? 그리고 나서
명령 버튼 1. 제목? =? "중지"
텍스트 상자 1. 문자? =? 형식 (Int(Rnd? *? 99? +? 1),? "00")
기타
명령 버튼 1. 제목? =? "가"
끝? 만약
끝? 잠수함
개인? Sub? TextBox 1_Change ()
하다
전화하세요? 지연 (0. 1)' 여기서 무작위 속도를 조정하는데, 지금은 0. 1 초입니다. 원하는 대로 조정하세요.
만약? 명령 버튼 1. 제목? =? "시작"? 그리고는요? 종료? 잠수함
텍스트 상자 1. 문자? =? 형식 (Int(Rnd? *? 99? +? 1),? "00")
고리
끝? 잠수함
개인? Sub? 지연 시간 (t? 로? 싱글)
암담한가? T 1? 로? 단일
T 1? =? 타이머
하다
여러 활동
순환? 언제? 타이머? -응? T 1? & lt? T
끝? 잠수함
주문 코드:
개인? Sub? CommandButton 1_Click ()
만약? 명령 버튼 1. 제목? =? "시작"? 그리고 나서
명령 버튼 1. 제목? =? "중지"
텍스트 상자 1. 문자? =? 형식 (1,? "00")
기타
명령 버튼 1. 제목? =? "가"
끝? 만약
끝? 잠수함
개인? Sub? TextBox 1_Change ()
하다
전화하세요? 지연 (0. 1)
만약? 명령 버튼 1. 제목? =? "시작"? 그리고는요? 종료? 잠수함
만약? 텍스트 상자 1. 문자? =? 99? 그리고 나서
텍스트 상자 1. 문자? =? 형식 (1,? "00")
기타
텍스트 상자 1. 문자? =? 형식 (텍스트 상자 1. 문자? +? 1,? "00")
끝? 만약
고리
끝? 잠수함
개인? Sub? 지연 시간 (t? 로? 싱글)
암담한가? T 1? 로? 단일
T 1? =? 타이머
하다
여러 활동
순환? 언제? 타이머? -응? T 1? & lt? T
끝? 잠수함