患者女性，35岁，主因G₂P₀，妊娠38周，因食欲减退、恶心、乏力半月，加重2日就诊。患者于半月前出现食欲减退，厌油腻，伴有恶心、呕吐、乏力，近2日症状加重，并伴有肝区疼痛遂来院就诊。查体：Bp：110/60mmHg，HR：100次/分，R：25次/分，T：37℃，皮肤巩膜黄染，心肺无明显异常，肝区轻压痛，因妊娠触诊不满意。妊娠足月腹型，FHR150bpm。

以下选项属于乙型病毒性肝炎母婴传播途径有（）

A.粪-口传染

B.娩出时接触母亲产道分泌液或血污染

C.母婴垂直传染

D.乳汁传染

E.密切生活接触传染

F.唾液传染

在窗体上有一个命令按钮，然后编如下事件过程：　　Function SR( x As Double)As Double　　　　Select Case Sgn(x)　　　　　Case 1　　　　　　　SR=Sqr(x)　　　　　　　Exit Function　　　　Case 0　　　　　SR=0　　　　Case-1　　　　　SR=-1　　　End Select　　End Function　　Private Sub Command1 _ Click( )　　　Dim Msg，SRN　　　Dim N AS Double　　　N=InputBox("请输入要计算平方根的数")　　　Msg=N&"的平方根"　　　Select Case SR(N)　　　　　　Case 0　　　　　　　　Msg=Msg &"是0"　　　　　　Case-1　　　　　　　　Msg=Msg&"是一个虚数"　　　　　　Case ElSe　　　　　　　　Msg=Msg &"是"& SR(N)　　　End Select　　　MsgBox Msg　　End Sub　　程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。