下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。
Option Base 1
Private Sub Command1_Click()
Dim arr1()
Dim Min As Integer, i As Integer
arr1=Array(12，-24，435，76，866，78，43，54)
Min= (14)
For i=2 To 8
If arr1(i)＜Min Then (15)
Next i
Text1=Min
End Sub

感染性心内膜炎，行人工瓣膜置换的指征是：（）

A.脾肿大伴左上腹疼痛并闻及摩擦音

B.中度贫血有杆状指

C.高热持续不退，白细胞持续升高

D.皮下出血点增多

E.瓣膜穿孔