合同变更的原因可以是下列哪几个？（）

A.因重大误解订立合同

B.因情势变更使合同继续履行显失公平

C.当事人达成协议变更协议

D.基于法律的直接规定

E.想变就变

单击命令按钮时，下列程序的执行结果是（ ）。　　Private Sub Command1_Click()　　　Dim a As Integer，b As Integer，c As Integer　　　a=3　　　b=4　　　c=5　　　Print SecProc(c，b，a)　　End Sub　　Function FirProC(x As Integer，y As Integer，z As Integer)　　FirProc=2*s+y+3*z　　End Function　　Function SecProc(x As Integer，y As Integer，z As Integer)　　　SecProc=FirProc(z，x，y)+x　　End Function

A．20

B．22

C．28

D．30