执行下面的程序段，x的值为【】。　　Private Sub Command1_Click()　　　For i=1 To 9　　　　　a=a + i　　　Next i　　　x=Val(i)　　　MsgBox x　　End Sub

《国务院关于加强土地调控有关问题的通知》中关于完善新增建设用地土地有偿使用费收缴办法，表述正确的是（）。

A.新增建设用地土地有偿使用费实行先缴后分，按规定的标准就地全额缴入国库。

B.新增建设用地使用费由国库按规定的比例就地分成划缴，但情况特殊时可予以适当减免。

C.新增建设用地土地有偿使用费要严格按法定用途使用由中央支配的部分，要向粮食生产区倾斜。

D.探索建立国有土地收益基金，遏制片面追求土地收益的短期行为。