填空题 下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的5×5阶的方阵，试将程序补充完整。
Private Sub Command1_Click()
Dim x(5, 5)
For i = 1 To 5
For j = 1 To 5
If 1 Then
x(i, j) = "*"
Else
2
End If
Print 3
Next j
Print
Next i
End Sub