2009-06-07 2 views

Antwort

3

Ich würde die Frage stellen "Warum müssen Sie es konvertieren?"

Dim i as Integer = 0 
Do While i < intLine 
    lblAsterisks.Text = lblAsterisks.Text + "*" 
    i = i + 1 
Loop 
3
dim intAsterisks as integer = 0 
Do While intAsterisks < intLine 
    'Do stuff 
    intAsterisks = intAsterisks + 1 
Loop 
0
dim i as integer 
Private sub command1_click() 
    For i = 0 to 30 Step 1 
    Print (i) 
    next 
end sub 
+0

Am besten ist es eine Erklärung für den Code zu verlassen. –