最终输出的结果是多少?

最终输出的结果是多少?
最终输出的结果是多少?
 

最终输出的结果是多少?

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  a = 2 :i = 1
  Do While i < 2013
    a = 1 / (1 - a)
    i = i + 1
  Loop
  MsgBox a,vbInformation,"输出"
End Sub  '结束
 
 先模拟运行再说：
 a=2,i=1,
 a=-1,i=2
 a=1/2,i=3
 a=2,i=4
 显然,这是一个周期函数：
 

 
 其周期是3,显然当i=2013时,a=1/2