Private Sub Command1Click(   )

Dim n As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

s = 1

For i = 1 To n

s = s * i

a(i) = s

List1.AddItem Str(a(i))

Next i

End Sub

不同时代，诗歌也在悄然地发生着改变，但它的基本特征是不变的，即凝练性、跳跃性、节奏韵律性。材料蕴含的哲学道理是（    ）

①事物是绝对运动与相对静止的统一

②脱离物质的运动是不存在的

③世界上一切事物都处于运动和变化之中

④运动是物质的唯一特性