[填空题]以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
PrivateSubCommand1_click()
DimA(4，4)
ForI=1To4
ForJ=1To4
【12】=1
NextI
【13】
【14】
NextJ
Fori=1To4
Forj=1To4
PrintA(i，j)：
Nextj
Print
NextI
EndSub

教师考试 导游证考试 房产评估类 人资类别 IT计算机证 社会工作 法律类别 职业资格类 外贸类 特种作业考试 交通交规 通信类考试 软考考试 项目管理 计算机等级考试