syntax error with histogram

• • Reply

  15 years ago

  by D Ashcroft

  dan ashcroft

  Cirencester / San Juan, Puerto Rico

  Joined 15 years ago
  I have this code that is supposed to represent numeric values in a histogram. I can do it with the numbers, but with the histogram I'm stumped:
  txtOutput.Text = "Rating" & vbTab & "Frequency" & vbCrLf
  
        Dim i, j As Integer
        For i = 1 To 10
  
           txtOutput.Text &= i & vbTab & vbCrLf
  
           For j = 1 To m_intResponses(i)
  
              txtOutput.Text &= "*"
           Next
        Next
  
  to list numbers in one column and astericks in the other. I think this is my not having a good grip on the vbTab / vbCrLf commands, but instead of getting
  
  Rating    Frequency
  1            *
  2            ****
  3
  4            **
  
  i get
  
  Rating    Frequency
  1
  *2
  ****3
  4
  **5
  
  any ideas ? thanks.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  15 years ago

  by Trilarian

  Trilarian

  New Orleans, United States

  Joined 15 years ago
  You are placing a return before you print your  '*'.  Try something like this:
  
  Dim i, j As Integer
  For i = 1 To 10
      txtOutput.Text &= i & vbTab
      For j = 1 To m_intResponses(i)
          txtOutput.Text &= "*"
      Next j
      txtOutput.Text &= vbCrLf
  Next i
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  15 years ago

  by D Ashcroft

  dan ashcroft

  Cirencester / San Juan, Puerto Rico

  Joined 15 years ago

  yes thanks. a misplaced carriage return, and it looks like the loops werent nested correctly. thankyou.
  
  

  Report abuse