수다닷컴

과제2-3 배수의 합을 구하는 프로그램을 작성한다.

조건1) 텍스트 상자 2개와 버튼 1를 배치한다.
조건2) 텍스트 상자 1에 숫자를 입력(2~9)까지의 수만 입력하도록 한다.
조건3) 1~100 까지의 숫자에서 텍스트 상자 1에 입력한 숫자의 배수의 합을 텍스트 상자 2에 출력하도록 한다.
예) 텍스트 상자 1에 2를 입력하면 텍스트 상자 2에는 2+4+6+....+100까지의 합이 출력되도록 한다.

이게 문제인데요.. 제가 밑에 보이는 소스까지 했는데요.. text1 박스에 숫자를 2-9 넣어서 배수 하는방법몰라서 ㅠ
간단히 가르쳐 주실분 계신가여
Private Sub Command1_Click()
Dim i, x As Integer
Dim a As IntegerFor i = 1 To 100
If i Mod 10 = 0 Then x = x + i
NextText2.Text = x
End Sub

신청하기