没办法清屏。。。
我想用滚动条输出对应的三角。。。
Private Sub HScroll1_Change()
Dim a() As Integer, i%, j%
n = HScroll1.Value
ReDim a(n, n)
For i = 1 To n
Picture1.Print Tab(25 - 2 * i);
For j = 1 To i
If i = j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Picture1.Print a(i, j);
Next j
Next i
End Sub

vb..