왜 오류가....
반혈
Public Class Form06
Dim q As Integer
Dim numbers As Integer
Dim numbers_for_persent1 As Integer
Dim numbers_for_persent2 As Integer
Dim numbers_for_persent3 As Integer
Dim answer As Integer
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Button2.Text = 확인
Val(TextBox1.Text)
Dim a As Integer
Dim b As Integer
q = 40
make: While q 0
Randomize()
For a = 1 To 9
Label1.Text = a
Next
Randomize()
For b = 1 To 9
Label2.Text = b
GoTo check
Next
End While
If q = 0 Then
Form09.Show()
End If
check: answer = a * b
If TextBox1.Text = answer Then
MsgBox(맞았습니다, vbInformation, 정답)
Else
MsgBox(틀렸습니다, vbCritical, 오답)
End If
GoTo make
End Sub
End Class했는데 문제 나오기 전에 숫자를 넣고 실행 무한루프가 되네요....\
도와주세요....
