在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
A=75
If A＞60 Then I=1
If A＞70 Then 1=2
If A＞80 Then 1=3
If A＞90 Then 1=4
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。

A．1

B．2

C．3

D．4

患者，男性，50岁，双眼视力下降，伴右眼疼痛1个月。半年前右眼曾行白内障手术，术后曾作眼底激光光凝术。有糖尿病史10年。VodHM／20cm，Tod40mmHg，右眼混合充血（+），角膜雾状水肿，前房深，房水闪辉（±），虹膜面可见粗大新生血管，人工晶状体在位，眼底窥不清。Vos0．2，Tos17mmHg，左眼无充血，角膜透明，前房深，晶状体混浊，眼底窥不清。右眼正确的诊断是（）

A.原发性开角型青光眼

B.葡萄膜炎继发青光眼

C.新生血管性青光眼

D.慢性闭角型青光眼

E.晶状体过敏性青光眼