수안보중학교 로고이미지

RSS 페이스북 공유하기 트위터 공유하기 카카오톡 공유하기 카카오스토리 공유하기 네이버밴드 공유하기 프린트하기
11. For ∼ Next문 이용하기
작성자 컴샘 등록일 20.11.06 조회수 61
문제 11
For ∼ Next문 이용하기
 문제 수준 : 하
 문제 유형 : 숫자의 합 구하기

 

  1에서 50까지의 짝수의 합을 구하는 프로그램을 For ∼ Next문을 이용하여 작성하시오
 




 


  1) For ∼ Next문의 형식
 

형   식
의   미
For  변수 = 시작값 To 종료값 [Step 증가값]
          명령문.......
Next 변수
시작값부터 증가값만큼 증가하거나 감소하면서 종료값이 될 때까지 For와 Next 사이의 명령문을 반복해서 실행한다. 증가값이 생략된 경우는 1씩 증가한다.


  
Private Sub Command_짝수의 합_Click()
Dim i, sum As Integer                   '숫자의 정수 선언
For x = 0 To 50 Step 2                  '짝수 만들어 내기  
sum = sum + x                          '짝수의 합 만들기  
Next
Text1.Text = sum                        '출력하기  
End Sub
 


다음글 10. Select Case문 사용하기