프로그램

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=104&docId=67604951&qb=dmIgMzY56rKM7J6EIO2VqQ==&enc=utf8&section=kin&rank=1&search_sort=0&spq=0&pid=SPHj/woRR2KssZHvYw8sssssssh-398510&sid=OKeFbzYZo2UO2dHq294sgw%3D%3D

문제)369게임에서 2번째 “짝”은 얼마를 의미하나?

n=0
do i=1,10
   i2=mod(i,10)
   if(i2.eq.3.or.i2.eq.6.or.i2.eq.9)then
      n=n+1
      print*,n,i
   end if
end do

stop
end

결과) 위 프로그램은 1부터 10까지 3, 6, 9의 갯수를 표현, 결과는 6이나와야 할텐데?

원래문제로 돌아가서 1부터 100까지 "짝" 숫자의 합 코딩  수정하면

n = 0

For i = 1 To 100

   a$ = Str(i)

    If InStr(a$, "3") Or InStr(a$, "6") Or InStr(a$, "9") Then n = n + i

Next i

Text1.Text = n