.로또 발생기 만들어봤는데요..미숙한부분좀 갈쳐주세요..

[vibration]

Dim ANS As String

Dim NEW_NUMBER As Integer

Dim MAT(6, 6) As Integer




Private Sub cmd_lotto_click()


I = 0

text1.Text = ""

NEW_NUMBER = False

For I = 0 To 5

For J = 0 To 5
MAT(I, J) = Int((50 * Rnd) + 1)
text1.Text = text1.Text + Str(MAT(I, J))

If MAT(I, J) = NEW_NUMBER Then

MAT(I, J) = True

End If

Next J

text1.Text = text1.Text + Chr(13) + Chr(10)

Next I

End Sub

Private Sub Cmd_rec_Click()
For I = 0 To 5
For J = 0 To 5

If I = J Then
label1.Caption = label1.Caption + Str(MAT(I, J))

End If
Next J
Next I


End Sub

Private Sub cmd_end_Click()
ANS = MsgBox("종료하시겠습니까?", vbOKCancel, "종료확인")

If ANS = vbOK Then


End


End If

End Sub

제가짠 코드인데요...

NEW_NUMBER = False

For I = 0 To 5

For J = 0 To 5
MAT(I, J) = Int((50 * Rnd) + 1)
text1.Text = text1.Text + Str(MAT(I, J))

if MAT(I, J) = NEW_NUMBER Then /이부분이 로또 번호들중에서 중복을 없앨려고짠부분ㅇ인데..맞는지좀 봐주세요..실행시키면 에러는 뜨지않는데 뭔가 이상한기분?이들어서요..
고수님들의 조언 부탁드립니다..

MAT(I, J) = True I

End If

Next J

text1.Text = text1.Text + Chr(13) + Chr(10)

Next I

End Sub

[학써니73]

보기에 NEW_NUMBER은 INTEGER형으로 선언되었는데. False는 어떻게 된거죠? 0_0;;