31岁，G₁P₁，因"继发不孕2年"就诊，患者12岁月经初潮，周期28天，否认性传播疾病史，查体：子宫大小形态正常，宫骶韧带触痛结节。基础体温双相型，HSG示输卵管走行、弥散可，宫腔正常，男方34岁，精液分析正常。

以下哪些药物治疗该病有效（）

A.抗生素

B.二甲双胍

C.孕三烯酮

D.达那唑

E.戈舍瑞林

F.妈富隆

G.米非司酮

H.雌激素

I.人工周期

下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。
Private Sub Command1_Click()
Max=0
Min=10
For i=1 To 20
n=Val(InputBox("请输入分数"))
If n>Max Then Max=n
If n s=s+n
______
s=s-Min-Max
p=s/18
Print"最高分";Max;"最低分";Min
Print"最后得分:";p
End Sub