A：他们能产生生殖细胞
B：它们能产生生殖细胞和分泌性激素
C：它们能分泌性激素
D：它们能分别分泌雄性激素和雌性激素
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i=8 to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub
