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
①哲学智慧产生于人类的实践活动
②真正的哲学可以使人们正确地看待人生的变化与发展
③没有哲学的指导,人们就会无法实现健康
④哲学是指导人们生活得更好的艺术
靠反冲力运动的交通工具有____ 、 ____,靠反冲力运动的动物有____ 。
青少年要学会遵守社会公德,要做到( )
①爱护公共财物 ②遵守公共秩序 ③维护公共安全 ④保护环境