Private Sub 계산하기_Click()
Dim m, n, 배수, 계산 As Integer

m = Val(m.Text)
n = Val(n.Text)
배수 = Val(배수.Text)

 

Do While m <= n

m = m + 1

If m Mod 배수 = 0 Then


End If

Loop

sum.Text = Str(m)

 


End Sub

m부터 n까지의 특정한 배수의 합을 출력하는 프로그램인데...

대체 왜 424 런타임 오류만 나는지...

참, 울고시퍼라~~