下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a()As InteSer)
For I=1 to 10\2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click()
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x()
For1=1 to 10
Print x (i)
Next I
End Sub

列宁说：“没有‘人的感情’，就从来没有也不可能有人对于真理的追求”。这句话表明了非理性因素的（）。

A.指导作用

B.动力作用

C.诱导作用

D.激发作用