[单选题]设有如下程序代码：XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
Private Function Fib(ByVal n As Integer) As IntegerXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  If n <= 2 ThenXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
    Fib = 1XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  ElseXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
    Fib = Fib(n - 1) + Fib(n - 2)XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  End IfXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
End FunctionXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
Private Sub Command1_Click()XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  Dim m As IntegerXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  m = 8XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
  Form1.Print Fib(m)XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
End SubXLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
程序时单击命令按钮，在窗体上输出的结果为（  ）XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
A.1XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
B.21XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
C.5XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台
D.8XLa答案窝(daanwo.com)-大学生作业答案及考资分享平台