복권 번호 비교 테스트 등 VB를 활용한 비교 프로그램 작성 방법에 대한 조언을 구해보세요.

'텍스트 상자 3개 추가, 여러 줄로 설정, 버튼 3개

Option?Explicit

Private?Sub?Command2_Click()

Dim?myJY()?As?String, ?myDD()?As?String, ?myOutput?As?String, ?i?As?Integer, ?j?As?Integer, ?myOk?As?Boolean

Text1.Text?=?Replace(Text1.Text,?",",?"?")

Text1.Text?=?Replace(Text1.Text,?vbCrLf, ?"")

Text2.Text?=?Replace(Text2.Text,?",",?"?")

Text2.Text?=?Replace(Text2. Text,?vbCrLf,?"")

myDD?=?Split(Text1.Text,?"?")

myJY?=?Split(Text2.Text,?" ?")

For?i?=?0?To?UBound(myJY)

myOk?=?False

For?j?=?0 ?To?UBound(myDD)

If?myJY(i)?=?myDD(j)?Then

myOk?=?True

끝? If

다음

myOutput?=?myOutput?amp;?myJY(i)?amp;?vbTab?amp;?IIf(myOk?=?True,?"예" ,?"잘못")?vbCrLf

다음

Text3.Text?=?myOutput

End?Sub

Private?Sub ?Command3_Click()

Text3.Text?=?""

End?Sub