Imports System
Public Class Test
Public Shared Sub Main()
' your code goes here
Dim i As Integer = 3
For i = 1 To i*5 Step i+1
Console.WriteLine(i)
Next i
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIHlvdXIgY29kZSBnb2VzIGhlcmUKCQlEaW0gaSBBcyBJbnRlZ2VyID0gMwoJCQoJCUZvciBpID0gMSBUbyBpKjUgU3RlcCBpKzEKCQkJQ29uc29sZS5Xcml0ZUxpbmUoaSkKCQlOZXh0IGkKCUVuZCBTdWIKRW5kIENsYXNz