请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。　　Private Sub Command1 Click()　　　　Dim s(6，6)　　　　For i=1 To 6　　　　　　　For j=1 To 6　　　　　　　　　If i=j Then　　　　　　　【 】 　　　　　Else　　　【 】 　　　End If　　　Print 【 】 　　　Next j　　　Print　　　Next i　　End Sub

某工地，一民工正在开搅拌机，开了半个小时候，他发现地坑内沙石较多，于是将搅拌机料斗提升到顶，自己拿铁锹去地坑挖沙石，此时料斗突然落下，把人砸成重伤。分析原因。