수다닷컴

Private Sub CandyButton1_Click()
Dim a As String
a = InputBox(이치에도 맞지않는 것을 억지로 끌어다붙임., 사자성어 퀴즈)
If a = 견강부회 Then
MsgBox 정답입니다
a = InputBox(나라의 운명을 위태롭게 할 만한 절세의 미인, 사자성어 퀴즈)
If a = 경국지색 Then
MsgBox 정답입니다
a = InputBox(나라의 운명을 위태롭게 할 만한 절세의 미인, 사자성어 퀴즈)
If a = 경국지색 Then
MsgBox 정답입니다
a = InputBox(옛것을 익히여 새로운 것을 배운다., 사자성어 퀴즈)
If a = 온고지신 Then
MsgBox 정답입니다
a = InputBox(잘못한자가 잘못한 사실을 뉘우치기는커녕 도리어 큰 소리., 사자성어 퀴즈)
If a = 적반하장 Then
MsgBox 정답입니다
a = InputBox(일을 자주 변경함., 사자성어 퀴즈)
If a = 조령모개 Then
MsgBox 정답입니다
a = InputBox(큰 물건속에 작은 물건., 사자성어 퀴즈)
If a = 창해일속 Then
MsgBox 정답입니다
a = InputBox(타인의 하찮은 언행일지라도 자기의 도를 닦는데 도움이됨, 사자성어 퀴즈)
If a = 타산지석 Then
MsgBox 정답입니다
a = InputBox(짧은 말로 어떤일의 급소을 강타, 사람을 크게 감동시킴, 사자성어 퀴즈)
If a = 촌철살인 Then
MsgBox 정답입니다
a = InputBox(버려두고 상대하지않는다., 사자성어 퀴즈)
If a = 치지도외 Then
MsgBox 정답입니다
End
Else
MsgBox 틀렷습니다
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub이렇게 햇거든요..정답입니다는 다떠요 ㅋㅋ그런데 틀렷습니다가 안떠요..

신청하기