理学重道德的修养固然不错，其对于中国社会日后发展贡献，也不容忽视，但不能否认，理学所倡导的偏重道德轻视事功倾向，还有它那过分的内省自律，正好为专制帝王起到了为渊驱鱼的效果。读书人的大丈夫气概日渐消亡，英雄豪杰只有在草莽中孕育，从梁山泊里诞生。宋、明两次亡于外族，无疑与宋代以来主流思想的白宫与内敛不无干系。
对这段文字的主旨理解最准确的是( )。

A．理学特有的价值取向遵循了古代统治者的统治需求
B．理学所倡导的精神导致古代读书人中很少出现英雄豪杰
C．读书人大丈夫气概的缺失和理学自身的特点有关
D．宋明两次亡于外族，理学理论起到了推波助澜的作用

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 ThenY=X ElseY=20+X End lf func=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=TrueEnd SubPrinvate Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox(””) If SW ThenPrint func(intNum) End If End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

A．输出0

B．输出25

C．输出45

D．无任何输出