下列程序的输出结果为______。
Private Sub Command1_Click()
Dim a(5)
For i=LBound(a)To UBound(a)
a(i)=i*i+2*i+1
Next i
Print a(LBound(a))
End Sub

用于诊断朊蛋白病的临床特征错误的是（）

A.2年内发生的进行性痴呆

B.肌阵挛

C.小脑症状

D.无动性缄默

E.脑电图示特征性慢波