巴斯卡三角形(編號：1895)

我想請問各位高手：
我寫了一個巴斯卡三角形的程式，程式如下，要如何列式才不會列出"0"(使用VB6.0，作業平台Windows98)
Private Sub Command1_Click()
Cls
Dim x() As Double
n% = InputBox("number")
ReDim x(n% + 1, n% + 1)
For i = 1 To n%
x(i, 1) = 1
Next i
For i = 1 To n%
For j = 1 To n%
x(i + 1, j + 1) = x(i, j + 1) + x(i, j)
Next j
Next i
For i = 1 To n%
For j = (n% - i) To 1 Step -1
Print " ";
Next j
For k = 1 To n%
Print x(i, k);
'Print x(k, 1)
Next k
Print
Next i
End Sub
請幫個忙，謝謝!!