我国南方地区盛产的水果是
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