수다닷컴

Dim 문제(10), a(10), b(10), c(10), 정답(10), 제출답(10)
Dim 점수, 시간, 번호, k
------------------------------------------------------------------------ 변수
Private Sub Command1_Click()
번호 = 번호 + 1

Label1.Caption = 문제(번호)
Option1.Caption = a(번호)
Option2.Caption = b(번호)
Option3.Caption = c(번호)
Option4.Value = True여기서 왜 Option4 하나를 더 만드는것죠? 또exe로 실행 했을때 Option4를 안보이게하는 방법알려주세여ㅜ

If 번호 = 10 Then
Command1.Enabled = False여기서 이두가지를 왜 쓴거에여??
Command2.Enabled = True
End If
End Sub
--------------------------------------
Private Sub Command2_Click()
점수 = 10
For k = 1 To 10
If 정답(k) = 제출답(k) Then
점수 = 점수 + 10
End If
Next k

If MsgBox(점수 & 점 입니다. 다시 풀까요?, vbYesNo + vdquestion, 질문) = vbYes Then 여기서여만약 다시풀까요가 아니라( 점수 &점 틀렸습니다. 다시 풀까요?면요 (점수 & 점 입니다. 다시 풀까요?,를 바꾸기만 하면 되나여??
Command1.Enabled = True
Command2.Enabled = False
번호 = 0
시간 = 180
Timer1.Interval = 1000
Command1_Click
End If
End Sub
------------------------------
Private Sub Form_Load()
번호 = 1
시간 = 180

문제(1) = 문제1. OA 프로그램이 아닌 것은?
a(1) = EXCEL
b(1) = WORD
c(1) = Visual Basic
정답(1) = 3
문제(10) = 문제10. 논리 연사자 중 두 조건이 서로 다를 때만 참인 것은?
a(10) = Xor
b(10) = And
c(10) = Eqv
정답(10) = 1
Label1.Caption = 문제(1)
Option1.Caption = a(1)
Option2.Caption = b(1)
Option3.Caption = c(1)
End Sub
------------------------------
Private Sub Option1_Click()
제출답(번호) = 1
End Sub
--------------------------
Private Sub Option2_Click()
제출답(번호) = 2
End Sub
---------------------------------
Private Sub Option3_Click()
제출답(번호) = 3
End Sub
----------------------------
Private Sub Timer1_Timer()
시간 = 시간 - 1
Label3.Caption = 시간 & 초

If 시간 = 0 Then
Command2.Enabled = True
Command2_Click
Timer1.Interval = 0
End If
End Sub

신청하기