患者男，55岁，某公司财务主管，因塞牙就诊。自述塞牙已近2年，有剔牙习惯，但近期塞牙不断加重，且有牙齿松动，塞牙后疼痛，食物剔除后疼痛可缓解，尚无自发痛，由于工作压力大，常有夜磨牙习惯。检查：全口牙齿磨耗严重，牙本质暴露，牙齿咬合面探诊无异常，46、47邻间有一深大龋洞，探诊敏感，尚未穿通髓腔。

如去腐过程中，去净腐质后意外穿髓，46穿髓孔约针尖大小，47穿髓孔约1mm，此时处理恰当的是（）

A.46、47直接盖髓

B.46直接盖髓、47活髓切断

C.46、47活髓切断

D.46活髓切断、47根管治疗

E.46、47根管治疗

下面运行程序后，单击命令按钮，输出的结果是______。
Private Sub Commandl_clck()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
Fori=1 To 4
a(i)=i
Nexti
For i=3 To 6
b(i)=i
Nexti
s1=YAS(a)
S2=YAS(b)
Printt"s1="；S1"S2="；s2
End Sub
FunctionYAS(a()AsInteger)
Dimt#，i%
t=1
For i=LBound(a)ToUBound(a)
t=t*a(i)
Nexti
YAS=t
End Funtoon