以下程序的功能是，产生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

患者男，43岁，以"乏力1个月"为主诉入院。1月前患者无明显诱因出现活动后乏力、心悸，休息后可缓解。患者现乏力明显，嗜睡，饮食不佳，尿色呈深黄色，大便正常。病来体重无明显变化。查体：T37.1℃，P92次/分，R18次/分，BP120/80mmHg，查体合作，贫血貌，睑结膜苍白，巩膜黄染，周身皮肤及黏膜未见出血点，黄染。浅表淋巴结未触及肿大，胸骨无压痛。心肺腹未及异常。双下肢无水肿。辅助检查：血常规：WBC8.7×10g/L，HGB48g/L，PLT119×10⁹/L，RET33.2%。

患者确诊为自身免疫性贫血，可予下列哪些治疗（）

A.肾上腺皮质激素

B.口服氯苯那敏

C.脾切除

D.免疫抑制剂

E.化疗

F.抗感染

G.补充叶酸和B₁₂

H.干扰素

I.对症输洗涤红细胞