在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_click()
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是 【15】 。

关于道德的定义，理解正确的是（）

A.是一种社会意识形态

B.是一种善恶评价

C.属于经济基础

D.是一种行为规范