编写如下事件过程和函数过程：
Private Sub Form_Chck()
DimBum(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
Bum(4)=32:num(5)=-56:num(6)=100
Print
Pdnt p2(6,hum())
End Sub
Private Function p2(ByVal n As Integer,number()As Single)As Integer
p2=number(1)
Forj=2 Ton
lfnumber(j)＜p2 Thenp2=number(j)
Next j
End Function
程序运行后窗体上显示的值是( )。

A．-56
B．0
C．103
D．190

使人们自觉遵循和践行道德原则规范的有效途径是（）

A.一切道德传统

B.培养良好的道德品质

C.随心所欲地选择道德行为

D.靠国家强制力来维护道德原则规范