以下程序的功能是，产生10个0～1000的随机整数，放入数组Art中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form Click( )
Dim Arr(10)As Integer
Dim Max As Integer
Randomize
For i=1 To 10
Arr(i)=Int(Rnd*1000)
Next i
Max= (14)
For i=2 To 10
If (15) Then
Max=Arr(i)
End If
Next i
Print Max
End Sub

再障的病理改变哪项是正确的（）

A.呈离心性损害

B.全身红髓容量增多

C.组织切片可见造血细胞每平方毫米的数目减少

D.全身淋巴组织轻度增生

E.超微结构无明显异常