질문과 답변· 2006.12.26·pjh2509·조회 12,478

VB 질문입니다 가르쳐 주세요~~

죄송합니다
VB를 혼자 공부하는 초보자입니다.

정말 죄송한데 이코드 좀 한줄 한줄 설명좀 해주시면 안됩니까???
정말 모르겠고 이해가 안갑니다.

Private Sub cmdCalc_Click()
Dim strResult, i, j, n, bPrime
n = Val(txtInput.Text)

For i = 2 To n
       bPrime = True

       For j = 2 To i - 1
      If i Mod j = 0 Then
           bPrime = False
           Exit For
    End If
Next j
If bPrime = True Then strResult = strResult + CStr(i) + ""
Next i

txtResult.Text = strResult

End Sub

솟수 예제구하는 것이데 전 도저히...
도와주십쇼...
부탁드립니다.

읍~ 2006.12.29
Private Sub cmdCalc_Click() // cmdCalc_Click() 클릭시
Dim strResult, i, j, n, bPrime // 변수 선언
n = Val(txtInput.Text) // 입력받은 변수를 n에 저장

// 2중 for문
For i = 2 To n // i가 2부터 입력받은 수 n까지 for문
bPrime = True // bPrime를 true로 설정.

For j = 2 To i - 1 //j가 2부터 i-1까지 for문
If i Mod j = 0 Then //나머지가 0과 같으면
bPrime = False // bPrime 를 False로 설정
Exit For // for 끝
End If // if 끝
Next j // 다음 j
// 만약 bPrime이 True 이면 값을 strResult에 저장
If bPrime = True Then strResult = strResult + CStr(i) + ""
Next i // 다음 i

txtResult.Text = strResult // 나온 값을 txtResult라는 text에
저장 한다.

End Sub // 끝!

VB 질문입니다 가르쳐 주세요~~

댓글 1