请求高手指点迷经，编出此题代码，重谢！！！

Question

设s=1x3x5x7x···x(2n+1),求s不大于400000时的最大n。

Answer 1

太简单了Module Module1    Sub Main()
        Dim n As Long = 1
        Dim s As Long = 1
        While s < 400000
            s *= n
            n += 2
        End While
        n -= 2
        Console.WriteLine(n)
    End SubEnd Module
15

Answer 2

Module Module1    Sub Main()
        Dim n As Long = 1
        Dim s As Long = 1
        While s < 400000
            s *= n
            n += 2
        End While
        n -= 2
        Console.WriteLine(n)
    End SubEnd Module

Answer 3

写错了，修改下：Module Module1    Sub Main()
        Dim n As Long = 1
        Dim s As Long = 1
        While s < 400000
            n += 2
            s *= n
        End While
        n -= 2
        Console.WriteLine(n)
    End SubEnd Module结果 13。

Answer 4

你的vb.net代码很有c#风格阿
我还是很老实写
n=n+2
s=s*n

Answer 5

class Program
    {        static void Main(string[] args)
        {
            int n = 1;
            long s = 1L;
            while (s < 400000)
            {
                n += 2;
                s *= n;
            }
            n -= 2;
            Console.WriteLine("n={0},s={1}", n, s);
            Console.ReadLine();
        }
    }

Answer 6

我的与大家的不一样啊:Dim N As Integer, A As Integer
Dim S As Long
A = 1
S = 1
N = 0
Do Until S >= 400000
    N = N + 1
    A = 2 * N + 1
    S = S * A
Debug.Print N & "_" & A & "_" & S
Loop结果是  7  啊