암담한가? B? 로? 정수
암담한가? Js? 로? 정수
개인? Sub? Button 1_Click(ByVal? 보낸 사람? 로? 시스템. 대상,? 바이발? E? 로? 시스템. EventArgs)? 손잡이? 단추 1. 클릭
만약? 나. 단추 1. 문자? =? "시작"? 그리고 나서
암담한가? 대답? 로? 정수? =? MsgBox ("게임 준비됐어?" Msgbox 스타일. 그렇지 않나요? "힌트!" ) 을 참조하십시오
만약? 대답? =? 6? 그리고 나서
Js? =? 1
나. 단추 1. 문자? =? "좋아"
나. 버튼 2. 텍스트? =? "돌아가기"
나. 레이블 2. 텍스트? =? "1 부터 10 까지의 양의 정수가 있습니다. 뭔지 알아맞혀 봐. "
나. 텍스트 상자 1. 보이십니까? =? 진짜
임의 추출 ()
B? =? Int(Rnd ()? *? 9? +? 1)
기타
종료? 잠수함
끝? 만약
기타
만약? 나. 텍스트 상자 1. 텍스트. 트리밍? =? "? 아니면? Asc (나). 텍스트 상자 1. 본문)? & lt? 19? 아니면? Asc (나). 텍스트 상자 1. 본문)? & gt? 57? 그리고 나서
MsgBox ("숫자를 입력하십시오.")
종료? 잠수함
기타
만약? Js? =? 3? 그리고 나서
MsgBox ("죄송합니다. 3 회 이상 하셨습니다. 다시 시작하십시오.")
나. 단추 1. 문자? =? "가"
나. 버튼 2. 텍스트? =? "종료"
나. 텍스트 상자 1. 보이십니까? =? 잘못된
나. 레이블 2. 텍스트? =? ""
기타
만약? 나. 텍스트 상자 1. 문자? =? B? 그리고 나서
나. 레이블 2. 텍스트? =? "너는 운이 좋게도 알아맞혔다."
나. 단추 1. 보이십니까? =? 잘못된
나. 버튼 2. 표시? =? 잘못된
나. 버튼 3. 표시? =? 진짜
엘세프? 텍스트 상자 1. 문자? & gt? B? 그리고 나서
Js? +=? 1
나. 텍스트 상자 1. 문자? =? ""
나. 레이블 2. 텍스트? =? "당신의 데이터가 너무 큽니다. 다시 한번 추측해 주세요. 세 번만 추측할 수 있습니다.
엘세프? 텍스트 상자 1. 문자? & lt? B? 그리고 나서
Js? +=? 1
나. 텍스트 상자 1. 문자? =? ""
나. 레이블 2. 텍스트? =? "데이터가 너무 작습니다. 다시 한번 맞춰보세요. 세 번만 추측할 수 있습니다.
끝? 만약
끝? 만약
끝? 만약
끝? 만약
끝? 잠수함
개인? Sub? Button3_Click(ByVal? 보낸 사람? 로? 시스템. 대상,? 바이발? E? 로? 시스템. EventArgs)? 손잡이? 버튼 3. 클릭
나. 단추 1. 문자? =? "가"
나. 버튼 2. 텍스트? =? "돌아가기"
나. 텍스트 상자 1. 문자? =? ""
나. 버튼 3. 표시? =? 잘못된
나. 텍스트 상자 1. 보이십니까? =? 잘못된
나. 레이블 2. 텍스트? =? ""
나. 단추 1. 보이십니까? =? 진짜
나. 버튼 2. 표시? =? 진짜
끝? 잠수함
끝? 학급
나는 단지 VB 로 컴파일하려고 했을 뿐이다.
당신이 필요하다면 보내 드리겠습니다.