執行下列 Visual Basic 程式片段,其結果為何? Sub Main() MsgBox (X(8)) End Sub Function X(ByVal n) As Integer If n = 1 Then X=1 Else Select Case n Mod 3 Case 2 X = X(n \ 2 + 1) + 2 Case 1 X = X(n \ 2 + 1) + 1 Case Else X = X(n \ 2) End Select End If

由 Siao 提供