40.下列程式的執行結果為何?
Function FACT(ByRef X)
Dim Y, K As Integer
Y = 1
For K = 1 To X
Y = Y * K
Next
FACT = Y
End Function
Private Sub Form1_Activated(…)…
Dim N As Integer = 5
MsgBox(FACT(N))
End Sub
(A)0
(B)5
(C)24
(D)120
答案:登入後查看
統計: A(2), B(2), C(3), D(1), E(0) #1081444
統計: A(2), B(2), C(3), D(1), E(0) #1081444