在Visual Basic中將下一條語句變爲Loop語句

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