VB 추측 디지털 프로그래밍 ...

양식에 명령 단추 cmdGuess ("추측하겠습니다" 라는 제목) 와 텍스트 상자 txtShow 를 추가하고 코드 창에 다음 코드를 추가합니다.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Dim RndNum 은 정수입니다

Private Sub CmdGuess_Click ()

Dim GueNum 을 변형으로 사용

설정 I = 1: 설정 s = 0

내가<= 10 일 때

하다

GueNum = InputBox ("컴퓨터가 무작위로 숫자를 생성합니다. 아래에 컴퓨터가 생성한다고 생각하는 숫자를 입력하십시오.", frmGueNum. 캡션, "",5000,5000).

숫자가 아닌 경우 msgbox 는 "숫자를 정확하게 입력하되 숫자를 입력하지 않은 경우 다시 입력하십시오.", vbCritical, frmGueNum.Caption.

IsNumeric(GueNum) 까지 순환합니다

GueNum-RndNum = 0 이면

MsgBox "축하합니다. 컴퓨터 생성 번호를 맞추는 데 성공했습니다. 컴퓨터는 복권 구매를 강력히 추천합니다." vbokonly+vbsystemmodal, frmguenum.caption.

S = s+1

수출 Do

ElseIf Abs(GueNum-RndNum) > 그럼 10

MsgBox "팁: 너무 큽니다. 추측한 수와 컴퓨터가 생성한 수의 차이가 10 ",VB 정보, frmguenum 을 초과합니다. 제목.

I = I+1

S = s+1

ElseIf Abs(GueNum-RndNum)>5 및 ABS (guenum-rndnum) < 그럼 10

MsgBox "팁: 접근, 추측한 수와 컴퓨터가 생성한 수의 차이는 5 이상 10 이하", VB 정보, frmguenum 입니다. 제목.

I = I+1

S = s+1

ElseIf Abs(GueNum-RndNum)>0 및 ABS (guenum-rndnum) < 그럼 5

MsgBox "팁: 점점 가까워지고 있습니다. 네가 추측한 숫자와 컴퓨터가 생성한 숫자의 차이는 5 를 넘지 않는다. 계속해! ",vbInformation, frmGueNum. 제목

I = I+1

S = s+1

만약 ... 끝날거야

내가> 그렇다면 10

MsgBox ("이미 10 을 알아차렸고, 최대 10 만 허용했습니다. 다시 시작하시겠습니까? ",vbYesNo, frmGueNum. Caption) = vbYes

I = 1: s = 0

기타

Cmd 게스트. 활성화 = false

만약 ... 끝날거야

만약 ... 끝날거야

고리

TxtShow. Text = "당신은 완전히 짐작했습니다"&; 스탠다드 푸르. "컴퓨터 생성 숫자는"&; RndNum

끝단 접합

개인 하위 양식 _Load ()

무작위화 (타이머)

Rndnum = fix ((100-1+1) * rnd ()+1)

TxtShow. Text = "컴퓨터가 무작위로 숫자를 생성했습니다." 추측하고 싶습니다 "버튼을 클릭하여 추측하기 시작하십시오!" "

끝단 접합