document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module CollatzSequence \'My solution to Project Euler Problem 14
  2.     Sub Main()
  3.         Dim Nbr As Int64, Cnt As Integer = 0
  4.         For i = 2 To 1000000
  5.             Dim CrntNbr As Int64 = i, CrntCnt As Integer = 0
  6.             While Not CrntNbr = 1
  7.                 If CrntNbr Mod 2 = 0 Then CrntNbr /= 2 Else CrntNbr = 3 * CrntNbr + 1
  8.                 CrntCnt += 1
  9.             End While
  10.             If CrntCnt > Cnt Then
  11.                 Cnt = CrntCnt : Nbr = i
  12.             End If
  13.         Next : Console.WriteLine(Nbr)
  14.     End Sub
  15. End Module
');