用VB.NET写一个程序，要求解出任意阶乘的Flip Game（又名翻转游戏、点灯游戏、灭灯游戏）的正确步骤

Flip Game（又称为灭灯游戏或翻转开关游戏）是一种简单的数学游戏，通常用于计算阶乘的过程，尤其是涉及到递归的情况。以下是使用VB.NET编写一个基本的Flip Game程序来求解阶乘的一个简单示例：

Module Module1
    Function Factorial(n As Integer) As Long
        If n <= 1 Then
            Return 1 ' 阶乘的基本情况，0! 和 1! 都等于 1
        Else
            ' 使用递归计算阶乘
            Return n * Factorial(n - 1)
        End If
    End Function

    Sub Main()
        Console.Write("请输入一个非负整数n: ")
        Dim input As Integer = Int32.Parse(Console.ReadLine())
        
        ' 检查输入是否合法
        If input < 0 Then
            Console.WriteLine("请输入正整数.")
        Else
            Console.WriteLine($"数字 {input} 的阶乘是: {Factorial(input)}")
        End If
        
        Console.ReadKey() ' 等待用户按下回车键
    End Sub
End Module

在这个程序中，`Factorial`函数通过递归实现了阶乘的计算。当用户输入一个值后，程序会调用这个函数并输出结果。对于Flip Game来说，如果这是在一个模拟的游戏环境中，你可以设计一个循环来模拟玩家反复点击按钮直到所有灯都关闭，然后返回阶乘的结果。