40.下列程式的執行結果為何？Function FACT(ByRef X)　Dim Y, K As Integer　Y = For K = 1 To X　　Y = Y * K　Next　FACT = YEnd FunctionPrivate Sub Form1_Activated(…)…　Dim N As Integer = MsgBox(FACT(N))End Sub
(A)0
(B)5
(C)24
(D)120