Dim sum As Integer = 0, For i As Integer = 1, To 3, sum = sum + i, Next i, MsgBox(sum)

Ranking

Estilo visual

Opções

Alterar modelo

Restaurar arquivo salvo automaticamente: ?