以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
Private Sub Command1_click()
Dim A(4，4)
For I=1 To 4
For J= 1 To 4
【12】 =1
Next I
【13】
【14】
Next J
For i=1 To 4
For j=1 To 4
Print A(i，j)：
Next j
Print
Next I
End Sub

《中华人民共和国城市规划法》规定：城市总体规划应当包括：城市的性质、发展目标和发展规模、城市主要建设标准和定额指标，( )和各项建设的总体部署，城市综合交通体系和河湖、绿地系统，各项专业规划，近期建设规划。

A．郊区建设用地布局
B．城市建设用地布局
C．城市用地性质布局
D．功能分区
E．城市周边村镇布局