以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。
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

男，56岁，头部摔伤1个月，头痛、呕吐3天，CT示右颞叶新月形等密度病灶，中线轻度移位。

下列哪一种是最可能的诊断

A．慢性硬脑膜外血肿

B．慢性硬脑膜下血肿

C．亚急性硬脑膜外血肿

D．亚急性硬脑膜下血肿

E．硬脑膜下水瘤