자유롭게 이야기를 적는 공간
글 수 15,185
Dim 출현, 잡은수, 놓친수
Private Sub 벌레_Click()
잡은수 = 잡은수 + 1
Label2.Caption = "잡은수:" + Str(잡은수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마1_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마2_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마3_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub Form_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub Image1_Click()
게임스타트 = InputBox("게임을 시작하시겠습니까? 예/아니오")
If 게임스타트 = "예" Then
Image1.Left = 10000
Image1.Top = 10000
End If
End Sub
Private Sub Timer1_Timer()
벌레.Left = Rnd * 5700
벌레.Top = Rnd * 2200
출현 = 출현 + 1
Label1.Caption = "출현:" + Str(출현)
잡지마3.Left = Rnd * 5700
잡지마3.Top = Rnd * 2200
잡지마1.Left = Rnd * 5700
잡지마1.Top = Rnd * 2200
잡지마2.Left = Rnd * 5700
잡지마2.Top = Rnd * 2200
End Sub
Private Sub 벌레_Click()
잡은수 = 잡은수 + 1
Label2.Caption = "잡은수:" + Str(잡은수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마1_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마2_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub 잡지마3_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub Form_Click()
놓친수 = 놓친수 + 1
Label3.Caption = "놓친수:" + Str(놓친수)
If 놓친수 >= 20 Then
MsgBox ("좀더 분발하시길!!")
리게임 = InputBox("다시 도전하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
End If
ElseIf 잡은수 >= 10 Then
MsgBox ("축하합니다. 게임에서 승리하셧습니다.")
리게임 = InputBox("다시 하시겠습니까? 예/아니오")
If 리게임 = "예" Then
놓친수 = 0
잡은수 = 0
출현 = 0
Else
MsgBox ("-the end-")
End If
End If
End Sub
Private Sub Image1_Click()
게임스타트 = InputBox("게임을 시작하시겠습니까? 예/아니오")
If 게임스타트 = "예" Then
Image1.Left = 10000
Image1.Top = 10000
End If
End Sub
Private Sub Timer1_Timer()
벌레.Left = Rnd * 5700
벌레.Top = Rnd * 2200
출현 = 출현 + 1
Label1.Caption = "출현:" + Str(출현)
잡지마3.Left = Rnd * 5700
잡지마3.Top = Rnd * 2200
잡지마1.Left = Rnd * 5700
잡지마1.Top = Rnd * 2200
잡지마2.Left = Rnd * 5700
잡지마2.Top = Rnd * 2200
End Sub