검색어 입력폼

[비주얼베이직] 야구게임

등록일 2002.12.14 엑셀파일MS 엑셀 (xls) | 3페이지 | 가격 1,000원

목차

vba로 작성한 야구 게임입니다. 3자리 수를 맞추는 게임인데 모든 버그를 다 잡은 완벽한 자료입니다. 자리를 수를 늘려 만들때도 참조하여 만들면 좋을 것 같습니다.

본문내용

Private Sub cb1_Click()

Cells.Clear
Cells.ClearContents
Range("a26").Select

ActiveWindow.DisplayGridlines = False 'worksheet 환경 설정

Range("a1") = "n u m b e r "
With Range("a1").Font
.Size = 15
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
.Name = "휴먼매직체"
End With

Range("c1") = "R e s u l t"
With Range("c1").Font
.Size = 15
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
.Name = "휴먼매직체"
End With

trial = 0

For i = 1 To 10 ' 5번의 순환

If trial = 10 Then
GoTo ed
End If

trial = trial + 1 '순환의 가산

ag:
inta = InputBox(" 숫자를 맞춰보세요!!! ", " !! 신중한 판단 !!")

참고 자료

모든 버그를 잡은 완벽한 게임 프로그램 입니다.
다운로드 맨위로