VB Do While문 질문

 

 

 

     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim i, sum As Integer
        TextBox1.Text = 0
        sum = 0
        Do While i <= 100
            sum = sum + i
            TextBox1.Text = TextBox1.Text & " + " & i
            i = i + 1
        Loop
        TextBox1.Text = TextBox1.Text & " = " & sum
    End Sub

 

     

    

    앞에 0+0+ 을 어떻게 없애나요?

 

 

 

 

 

안녕하세요?

 

1. 아래와 같이 코드를 수정해 보세요.

     Dim i, sum As Integer

     '''TextBox1.Text = 0          ' <-- 주석처리 합니다. (여기에서 처음 0+ 가 발생합니다.)

 

     i = 1                             ' i를 1로 초기화 하는게 좋을 듯 합니다. 0부터 돌면 한번 낭비.

     sum = 0
     Do While i <= 100
         sum = sum + i

 

         If (sum = 1) Then
              TextBox1.Text = i                                         ' 처음에는 숫자만 찍고
         ElseIf (sum > 1) Then
              TextBox1.Text = TextBox1.Text & " + " & i     ' 다음부터 "+ 숫자"로 연결
         End If

 

         i = i + 1
     Loop

 

     TextBox1.Text = TextBox1.Text & " = " & sum

 

도움이 되시길 바랍니다.

감사합니다.

 

 

 

written by

  

legend

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

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

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

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

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

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

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