Создание оператора Next в операторе Loop в Visual Basic

Question

Привет всем. Мой друг и я переучиваем Visual Basic, и мы немного озадачены этим кодом.

For intAsterisks As Integer = 0 To intLine - 1
  lblAsterisks.Text = lblAsterisks.Text + "*"
Next

Нам нужно сделать это из кода For Next в код Do Loop. Может ли кто-нибудь помочь нам?

Answer 1

Я бы задал вопрос «Зачем вам нужно конвертировать его?»

Dim i as Integer = 0
Do While i < intLine
    lblAsterisks.Text = lblAsterisks.Text + "*"
    i = i + 1
Loop

Answer 2

dim intAsterisks as integer = 0
Do While intAsterisks < intLine
    'Do stuff
    intAsterisks = intAsterisks + 1
Loop

Answer 3

dim i as integer
Private sub command1_click()
  For i = 0 to 30 Step 1
  Print (i)
  next 
end sub