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
读东、西半球图,回答下列问题:
The sun is ________ bigger than the Earth.