급!! 비주얼베이직 모듈로 프로그램 짜는것좀 도와주세요.

안녕하세요, 레지나입니다.

1. 윗님처럼

s = s + i 로 하셔서 그렇습니다.

2.

a = val(text1.text)

For i = 1 To a
  q = 0
  For j = 2 To i - 1
    If i Mod j = 0 Then q = 1
  Next j
  If q = 0 Then
    Print i
  End If
  Next i

이쯤이면 될거 같네요.

3.

유클리드 호제법을 사용하시면 됩니다.

최대공약수

1. 두 수 X,Y가 있을때 작은수로 큰수로 나누었을때 나머지가 0이면, 작은수가 최대 공약수가 된다.

2. 나머지가 생긴다면 작은수를 나머지로 나누어서 나머지가 0이면, 작은 수가 최대공약수가 된다.

3. 또 나머지가 생긴다면 위의 방법을 나머지가 0일때까지 계속 반복한다.

최소공배수는 두 수를 곱한후 최대공약수로 나누면됩니다.

Private Function GCM(x, y)
Dim 나머지 As Integer
If (x > y) Then
    Do
        나머지 = x Mod y
        x = y
        y = 나머지
    Loop While (나머지 0)
    GCM = x
Else
    Do
        나머지 = y Mod x
        y = x
        x = 나머지
    Loop While (나머지 0)
    GCM = y
End If
End Function

Private Sub command1_click()
Dim x, y, 최대공약수, 최소공배수 As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
최대공약수 = GCM(x, y)
최소공배수 = (Val(Text1.Text) * Val(Text2.Text)) / 최대공약수
Print 최대공약수
Print 최소공배수
End Sub

이정도면 될거같네요.[헉헉 타이핑 귀찮은데 나름대로 열심히

4. select case라[...

for문으로 하면 쉽게 될 거 같은데

저도 잘 못해서요~[실은 귀찮아서

그럼 내일 답해드릴께요~

이해 안되는건 쪽지로 부탁드립니다.

1번에서는 아마도

s = s + 1 문장을

s = s + i (1 대신에 i로) 했을 것 같네요..

www.TopBrain21.com