执行下面的程序段，x的值为【】。　　Private Sub Command1_Click()　　　For i=1 To 9　　　　　a=a + i　　　Next i　　　x=Val(i)　　　MsgBox x　　End Sub

患者，男性，40岁，右下肢进行性乏力伴复视1年余。眼科检查未见明显异常；腰穿CSF提示细胞数轻度增高，外观正常，压力不高。为明确诊断最有价值的检查是（）

A.头颅CT

B.头颅及颈椎MRI

C.头颅MRI

D.视觉诱发电位

E.体感诱发电位