如右图,分别用大小相等的力拉或压同一弹簧。该实验表明,弹簧受力产生的效果与力的 ( )
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