Command 버튼을 이용한 퀴즈(Quiz) 프로그램

---

Command Box 클릭으로 이용한, 프로그램

퀴즈

( Quiz )

---

1. 프로그램 형식

넌센스 퀴즈를 클릭시, "한라산의 높이는 얼마입니까?" 라는 문구를 출력하며

정답을 클릭시, "1950미터입니다" 라는 문구를 출력하고, Exit 버튼을 누를 시 프로그램 종료

2. 프로그램 소스

Private Sub cmdend_Click() '-- Exit 버튼

End

End Sub

Private Sub cmdQuiz_Click() '-- 넌센스퀴즈 버튼 

'-- 버튼을 클릭하였을때, txtQuiz 의 Text 속성에, "한라산의 높이는 얼마입니까?" 를 출력

txtQuiz.Text = "한라산의 높이는 얼마입니까?"

End Sub

Private Sub cmdresult_Click() '-- 정답 버튼

'-- 버튼을 클릭하였을때, txtresult 의 Text 속성에, "1950미터입니다" 를 출력

txtresult.Text = "1950미터입니다"

End Sub

3. 소스 관련 파일

Project.zip