VB.netでのFactorial Programとバージョンの問題

Question

Francesco BalenaによるVisual Basic.net Core Referenceを購入しましたが、Visual Basicを学びたいと思っていましたが、本の最初のコンソールコードサンプルで問題が発生しています。この本は古すぎると思うし、サンプルはもはや今日のVB.netと互換性がなくなっていますか？コンパイラは、（）私はサブメインを（）不足しているんだけど、フランチェスコの本のサンプルがサブメインを持っていない

Module MathFunctions 
'A public constant 
Public Const DoublePI as Double = 6.2831853 
'A private array 
    Private factValues(169) As Double 
'Return the factorial of a number in the range 0-169 
    Public Function Factorial(ByVal n As Integer) As Double 
'evvaluate all possible values in advance during the first call. 
     If factValues(0) = 0 Then 
      Dim i As Integer 
      factValues(0) = 1 
      For i = 1 To 169 
       factValues(i) = factValues(i - 1) * CDbl(i) 
      Next 
     End If 
'check the argument 
     If n >= 0 And n <= 169 Then 
'return the value in the array if argument is in range 
      Factorial = factValues(n) 
     Else 
'raise an error otherwise 
      Err.Raise(6, , "Overflow") 
     End If 
    End Function 
     'The following code block (except End Module) is what I added to the code sample, but I'm still not getting any output from the console 
    Sub Main() 
    Factorial(32) 
    End Sub 
    End Module 

Answer 1

プログラムは絶対に罰金を実行していることを促しています。

あなたが期待しているのは、関数から返された値を見ることですが、どこにも出力していません。

次にあなたのMainを変更する場合は、結果が表示されます。

Sub Main() 
Console.WriteLine(Factorial(32)) 
End Sub