ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : 8.3.Do문.asp
글번호: 95
작성자: 레드플러스
작성일: 2004/04/03 오전 9:58:00
조회수: 3579
파일: 8.3.gif (15 KB) / 전송수: 1560
8.3.gif
<%
     'Do~Loop문으로 1~100까지의 수 중 짝수의 합을 구하는 프로그램
     Dim Sum, Count

     Sum = 0
     Count = 1
     Do Until Count > 100   '조건식이 거짓일 동안...(참일 때까지)
          If Count Mod 2 = 0 Then
               Sum = Sum + Count
          End If
          Count = Count + 1   '카운터 변수 증가
     Loop

     Response.Write("<center>1부터 100까지의 짝수의 합은 " & Sum & " 입니다</center>")

     Sum = 0
     Count = 1
     Do While Count <= 100   '조건식이 참일동안...
          If Count Mod 2 = 0 Then
               Sum = Sum + Count
          End If
          Count = Count + 1   '카운터 변수 증가
     Loop

     Response.Write("<center>1부터 100까지의 짝수의 합은 " & Sum & " 입니다</center>")

     Sum = 0
     Count = 1
     Do    '최소한 한번은 실행한다.
          If Count Mod 2 = 0 Then
               Sum = Sum + Count
          End If
          Count = Count + 1   '카운터 변수 증가
     Loop Until Count > 100   '조건식이 거짓일 동안...(참일 때까지)

     Response.Write("<center>1부터 100까지의 짝수의 합은 " & Sum & " 입니다</center>")

     Sum = 0
     Count = 1
     Do    '최소한 한번은 실행한다.
          If Count Mod 2 = 0 Then
               Sum = Sum + Count
          End If
          Count = Count + 1   '카운터 변수 증가
     Loop While Count <= 100   '조건식이 참일 동안...(거짓일 때까지)

     Response.Write("<center>1부터 100까지의 짝수의 합은 " & Sum & " 입니다</center>")
%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 09. 배열 - 관리자 2000-12-17 4345
  08. 제어문-반복문 - 관리자 2000-12-13 4137
  8.1.For문.asp 8.1.gif(13 KB) 레드플러스 2004-04-03 4100
  8.2.While문.asp 8.2.gif(13 KB) 레드플러스 2004-04-03 3833
현재글 8.3.Do문.asp 8.3.gif(15 KB) 레드플러스 2004-04-03 3579
다음글 07. 제어문-조건문 - 관리자 2000-12-13 4520
 
손님 사용자 Anonymous (손님)
로그인 Home