下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。
Private Sub Form_Click()
Dim k As Integer
Open 【13】
Randomize
For i=1 To 10
k=100+Int(899*Rnd)
【14】
Next i
【15】
End Sub

女患，48岁，以"晚饭后聊天时突然出现头昏、头痛、呕吐1次"为主要表现来急诊。查体：血压170/105mmHg，神清语利，左侧鼻唇沟浅，伸舌偏左、无舌肌萎缩，左侧肢体肌力2级、左侧偏身痛觉消失，颈强直（+）。诊断考虑为（）

A.蛛网膜下腔出血

B.脑出血

C.脑梗死

D.高血压脑病

E.短暂性脑缺血发作