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