下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form Click()
Dim Ch As String * 1
Open "c:\a1.txt" For Input As #10
Do While 【8】
Ch= Input(1, #10)
If 【9】 Then
Print Ch;
End If
Loop
【10】
End Sub

妊娠时患巨幼红细胞性贫血的原因除外

A．妊娠期叶酸需要量增加

B．妊娠期叶酸吸收减少

C．妊娠期叶酸排泄增加

D．妊娠期维生素B12体内储藏量少

E．由于一些原因引起维生素Bl2吸收减少