non sono molto convinto di quello che ti ho evidenziato in grassetto
Sub Main ()
dim num,dato,conta As integer
num=4
dato=2
For conta =1 To num Step
dato=dato+num
num+=1
Console.WriteLine ("dato = {0}",dato)
Next
End Sub
End Module
For conta =1 To num
num = num + 1
|