VB6 비주얼베이직 도와주세요

 

 

 

 

비주얼 베이직 6.0 에서

1 부터 100까지의 수중에서 3의 배수만 빼고 출력하는

코드좀 알려주세요 !!!

 

 

 

 

안녕하세요?

 

1. 아래의 코드는 3의 배수를 빼고, 메시지 박스에 출력합니다.

 

     Private Sub Command1_Click()

          Dim strMessage As String
          Dim i As Integer
          Dim count As Integer

 

          strMessage = ""
          count = 0
          For i = 1 To 100

              

               ' i Mod 3 -> i를 3으로 나눈 나머지를 반환합니다. 나머지가 0이면 3의 배수
               If ((i Mod 3) <> 0) Then

                   

                    ' 메시지 박스에 1열로 숫자를 표시하면 너무 길어서,

                    ' 10개씩 1줄에 표시하고, 줄을 바꿉니다.

                    ' vbCrLf 는 행을 바꾼후, 커서를 행의 첫칸으로 이동합니다.

                    count = count + 1

                    If ((count Mod 10) = 0) Then
                         strMessage = strMessage & CStr(i) & ", " & vbCrLf
                    Else
                         strMessage = strMessage & CStr(i) & ", "
                    End If

 
               End If

          Next i

 

          ' 100 옆에 붙은 ", "를 지우고 표시

          ' Mid 함수는 주어진 문자열에서 시작위치 ~ 길이 만큼의 문자열을 반환합니다.

          ' 2를 뺀 이유는 "," 1바이트, " " 1바이트

 

          strMessage = Mid(strMessage, 1, Len(strMessage) - 2)  

           MsgBox(strMessage)

     End Sub

 

2. 실행결과

       

 

 

도움이 되시길 바랍니다.

감사합니다.

 

 

 

written by

  

legend

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

C과외/C#과외/VB과외 프로그래밍 과외.서울인천경기-방문강의.기타전국-화상강의.제대로 체계적으로 배우고싶은분들.15년경력 프리랜서.삼성/포스코/한진 등.

​서울,인천,경기,분당,일산,과천,산본,부천,부평,평촌,안산,안양,광명,용인,시흥,성남,수원,평택,오산,화성,동탄,천안,아산,

c#프로그래밍1:1과외, 15년 이상 프로젝트 경력의 프리랜서 직접 강의,

c#프로그래밍 과외, c#프로그래밍교육, IT·컴퓨터·컴퓨터과외비·프로그래밍과외, c# 강좌, c# 프로그래밍,

데이터베이스, 데이터베이스 프로그래밍, db, DB, 과외비,컴퓨터1:1,컴퓨터개인지도,컴퓨터실무과외,컴퓨터과외,컴퓨터1:1과외,

서울,인천,경기,부천,안산,분당,일산,천안,과천,산본,안양,광명,평촌,수원,평택,오산,용인,부평,시흥,성남,화성,동탄

​광주,부산,대구,대전,마산,창원,울산,전주,군산,원주,강릉,충청남도,충청북도,강원도,경상남도,경상북도,전라남도,전라북도,제주도