执行下面的程序，消息框里显示的结果是______。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
Str="abc"
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
MsgBox S
End Sub

患者因楔状缺损，复合树脂充填后咬合痛。查：左上尖牙颊侧颈区树脂充填物在、咬诊疼痛、冷测(++)，去除刺激后疼痛持续几秒钟。治疗方案应为

A．去除充填物，氧化锌丁香油安抚
B．去除充填物，氢氧化钙护髓，重新充填
C．去除充填物，改用玻璃离子充填
D．根管治疗
E．脱敏治疗