在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：　　Private Sub Command l_Click（）　　Dim a　　a=Array（1,2,3,4）　　I=3：j=1　　Do While i＞=0　　s=s＋a（i）*j　　i=i-1　　j=j*10。　　Loop　　Print s　　End Sub　　运行上面的程序，单击命令按钮，则输出结果是

A．4321

B．123

C．234

D．1234

土地承包经营合同是指发包人和承包人依法定立的约定双方权利和义务的协议。其中，承包人的义务主要有（）。

A.保护土地生态环境

B.按照承包合同约定的用途合理利用土地

C.提供农业生产所需要的所有生产条件

D.按照合同向发包人支付约定的承包费、提留款等

E.按照法律的要求交纳有关税费