执行以下程序后输出的是______。
Private Sub Command1_Click()
ch $="VisualBasic"
Print Mid(Right(ch $,6),Len(Left(ch $,4)),2)
End Sub

A) 1Basic
B) Visu
C) si
D) asic

病历摘要：女性，30岁，因性交出血半年，加重3个月就诊。患者月经正常，近半年偶有性交出血，自认为与宫内避孕环有关。近3个月性交出血频繁，G₁P₁，男孩已5岁，足月顺产。4年前放置避孕环时妇科检查正常，此后未再进行过妇科检查。妇科检查：外阴（-）， * * 少许血迹，宫颈前唇有一菜花样赘生物，直径2cm，质脆易出血，子宫前位，正常大小，双侧宫旁组织未及增厚（双合诊及三合诊检查）。