在口腔黏膜中药物渗透性能最佳部位是( )。

A．颊黏膜
B．舌下黏膜
C．牙龈黏膜
D．硬腭前部黏膜
E．硬腭后部黏膜

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