이렇게하심될듯
짝수들만의 합, 혹은 홀수들만의 합은 그 차체로 등차수열을 합입니다.
2,4,6,8... 이나 1,3,5,7... 이나 모두 공차가 2인 등차수열이므로
합의 일반항은 (n * (2* a + (n-1) * d)) / 2 입니다.
a는 짝수일경우 2, 홀수일경우 1, n은 수열의 갯수,d 는 공차입니다.
따라서 다음과 같이 코딩하시면 됩니다.
숫자입력란의 이벤트에 (change 이벤트든 key press 이벤트든 상관없습니다. VB를 공부하신다니 이벤트는 아시겠지요)

dim lng입력숫자 as long
dim n짝홀수 as integer
dim n갯수 as integer

'입력된 값을 변수로 저장합니다.
lng입력숫자=숫자입력text.text
n짝홀수 = lng입력숫자 mod 2 '2로 나누어 떨어지면 짝수,아님 홀수

select case n짝홀수
case 0
n갯수=lng입력숫자/2
결과.text=(갯수 * (2 * 2 + (n갯수 - 1) * 2)) / 2
case 1
n갯수=(lng입력숫자+1)/2
결과.text=(갯수 * (2 * 1 + (n갯수 - 1) * 2)) / 2

end select

폼에 넣어 테스트해보지는 않았으니 문장에 오타같은게 있을수도 있을겁니다. 하지만 공식은 맞으니 답이 잘 안나오면 공식을 이해하고 다시 코딩해보세요. 이외에도 반복문을 사용하여 하는 방법이 있으나 저급한 방법임. ↓댓글에댓글

??
음 지금 해보고는 있는데 잘 안되고 있어요..워낙 초보라 그런지..님이 적은걸 그대로 복사해서 넣고 할려니 안되는것 같습니다. 좀더 풀어 써주시면 감사할께요..번거롭게 해서 죄송할따름입니다. ↓댓글에댓글

음...잘안되신다기에 제가 폼을 만들어봤습니다.
저는 숫자가 들어오면 짝,홀수에 따라 그 합을 구하는 건줄 알았는데
다시 읽어보니 아니더군요..^^ 그래도 공식은 같습니다.
필요하시다면 메일로 보내드리지요. 여기에 올리려니 파일올리는데가
없네요. 메일주소를 남겨주시면 보내드리도록 하겠습니다. ↓댓글에댓글

감사
his010@hanmail.net 입니다.. ↓댓글에댓글