下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
　　Dim an (10) As Integer
　　Dim max As Integer
　　Randomize
　 For i%=1 To 10
　　 an(i%)= (14)
　 Next i%
　　max=an(1)
　 For i%=2 To 10
　　　if (15) then
　　　 max=an(i%)
　　 End If
　 Next i%
　 print max
　 End Sub
End Sub

一般资料：刘某，男性，14岁，初中二年级学生。 案例介绍：刘某性格内向，遵守纪律，学习认真，热情助人，人际关系良好，很受同学的喜欢。刘某喜欢看科幻片和动画片，对埃及风土人情感兴趣，一年多前曾在母亲陪同下第一次出国去埃及旅游。当时对母亲说自己很多地方都来过，母亲解释可能是以前看过相关片子，是似曾相识的结果，刘某未置可否。旅游回来后同学们反映刘某变了，时常很兴奋，脸上经常荡漾着非常幸福的笑容。刘某对家长和同学说自己是从火星来的"火星娃娃"。家长和同学都对其进行了纠正，但刘某对自己的身世深信不疑。觉得家长、老师、同学都不理解自己，很苦恼。刘某自述近来情绪非常低落，自己有时听别人说话时要数别人一共说了多少个字，父母亲教育他要控制自己，不要把心思放在这上面。刘某自己也知道没有必要数别人说话说了多少字，想去控制自己，但就是控制不住，为此内心更加苦恼。现在刘某已经不上学了，他害怕到学校去总要数老师说了多少个字。 心理咨询师观察了解到的情况：刘某上重点中学，开始成绩良好，后来成绩明显变差。老师考虑刘某的心理出现异常，由父母带来就诊。刘某愿意和心理咨询师讨论问题。

刘某认为埃及的很多地方自己曾经来过，刘某可能是（）。

A.出现了妄想 

B.出现知觉异常 

C.有思维分裂 

D.体验故地重游