수다닷컴

기본폼Public r1 As Integer, r2 As Integer, r3 As Integer, r2a As Integer, r3a As IntegerPrivate Sub Command1_Click()

r1 = Rnd * 6 + 1

Form& r1.Show
기본.HideEnd Sub폼1번~6번
Private Sub Command1_Click()
If a = 1 Then

If r2 = 0 Then

For r2 = 0 To 0
r2a = Rnd * 6 + 1
If r2a = r1 Then
r2 = 0
Else
r2 = 1
End If
Next

Form& r2.Show
Form1.Hide

ElseIf r3 = 0 Then
For r3 = 0 To 0
r3a = Rnd * 6 + 1

If r3a = r1 Then
r3 = 0
ElseIf r3a = r2 Then
r3 = 0
Else
r3 = 1
End If

Next

Form& r3.Show
Form1.Hide

End If
Else MsgBox 틀렸습니다., vbOKOnly, 틀림 End If

elesif r2 0 End IfEnd Sub\아는데로 이렇게 했는데... 폼의 show가 안되더군요& 변수인줄알았는데... 어떻게쓰는건가요?책이있는데 찾지도 못하겠고... 해서요

신청하기