엑셀에서 VB를 이용하여 만든 야구게임

목차

1. 3자리야구게임

2. 4자리야구게임

3. 5자리야구게임

본문내용

Sub 야구()
u1.Show
End Sub

Private Sub n_Click()

Range("b3 : b10000").ClearContents
Range("c3 : c10000").ClearContents
Range("e6").ClearContents
Range("g3 : p3").ClearContents

If three Then
a = 3
ElseIf four Then
a = 4
ElseIf five Then
a = 5
End If

If a = "" Then
MsgBox ("값이 비었습니다.")
Exit Sub
End If

ReDim rndnum2(a)
ReDim r(a)

rndnum1 = Int(Rnd * 10)
rndnum2(1) = Str(rndnum1)

For i = 2 To a
r(i - 1) = rndnum1
reset:
rndnum1 = Int(Rnd * 10)
rndnum2(i) = Str(rndnum1)

For j = 1 To i - 1
If r(j) = rndnum1 Then
GoTo reset
End If
Next j
Next i

MsgBox "숫자가 생성되었습니다. 게임을 시작하세요."
End Sub

키워드

엑셀,   비주얼베이직,   visual basic,   야구게임