继发闭经患者用孕激素治疗不出现撤退性出血，提示（）

A．无子宫内膜，但卵巢功能正常

B．有子宫内膜，卵巢功能正常

C．子宫性闭经

D．卵巢能分泌一定量的雌激素

E．可能是妊娠

在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As String ^* 10
Private Sub Command1_Click()
a= "1234"
b= Len(a)
Me!Lb1.Caption=b
End Sub
打开窗体后单击命令按钮，标签中显示的内容是( )。

A) 4
B) 5
C) 10
D) 40