Private Sub Form_Click()
If 시작 <= 1 Then
MsgBox ("이제 왔군 학생")
MsgBox ("이번이 시험인건 알고 있겠지?")
MsgBox ("문제를 낼테니 잘 풀어라")
문제 = InputBox("흑곰의 이전 닉네임은 무엇이였나?")
If 문제 = "답" Then
MsgBox ("맞았군")
Cls
Print 10
MsgBox ("그는 한때 엘레덴타의 촌장이었지 그럼 2번째 문제를 내겠다.")
또문제 = InputBox("사립탐정이동헌 마완도 사건편에서 처음에 이동헌한테 당하는 인간의 이름은? ")
End If
End If
If 또문제 = "답" Then
MsgBox ("가볍게 맞췄어!")
MsgBox ("혼둠에 대해 기본적으로 알고있군 자네의 점수를 더 올려주마")
Cls
Print 30
또또문제 = InputBox("압박이라는 언어를 사용하는 wkwkdhk랑 가장 비슷하게 생긴 바다 생물은?")
End If

If 또또문제 = "답" Then
MsgBox ("맞았어")
MsgBox ("이것도 알다니..")
Cls
Print 50
또또문제2 = InputBox("시게아르타 주인장의 이름은? [힌트 大]")
End If

If 또또문제2 = "답" Then
MsgBox ("솔직히 여기까지는 너무 쉬어")
MsgBox ("이번엔 진짜로 어려운 문제를 내줄테다")
Cls
Print 70
또또문제3 = InputBox("이 사람은 몇년전에 떠났습니다. 그 전에 최초로 혼돈과 어둠의 땅에 압박을 전하셨다. 누구인가?")
End If

If 또또문제3 = "답" Then
MsgBox (".........")
MsgBox (".........")
Cls
Print 100
MsgBox ("험! 이번엔 진짜다!")
또또문제4 = InputBox("박동흥 게임중 로크10000을 리메이크한 사람의 닉네임은?")
End If

If 또또문제4 = "답" Then
MsgBox ("크아아.. 넌 대단했어 이것만 맞추면 시험은 끝이야..")
Cls
Print 120
또또문제4 = InputBox("혼돈과 어둠의 땅에서 어둠땅의 주인은 원래 누구?")
End If

If 또또문제4 = "답" Then
MsgBox ("대단하다!! 꺼도 좋아!! 만약 이 프로그램이 업그레이드 된다면 다시 만날지도 몰라 굿바이!")

Else
MsgBox ("이런 바보! 처음부터 다시시작 합니다.")

End If






End Sub


Private Sub Image1_Click()
MsgBox ("여기는 미스테리학원")
MsgBox ("젠장 이번이 첫 학원시험이군")
MsgBox ("한번 시험에 도전해볼까?")
Image1.Top = 5000
시작 = 1
End Sub
=======================================================================

cls
print       이거 지워도 좋음 일방적인 눈속임 점수니
* 똥똥배님에 의해서 게시물 이동되었습니다 (2008-03-11 15:13)