برنامه مثلث اعداد

[arad2000]

()Private Sub Command1_Click
Dim c As Integer
c = 1
Form1.Cls
For i = 1 To 5
For j = 1 To i
c = c * (i - j + 1) / j

Print Tab(35 - 3 * i + 6 * j); i;
Next j
Print
Next i
'=========================
For i = 5 To 1 Step -1
For j = 1 To i
c = c * (i - j + 1) / j
Print Tab(35 - 3 * i + 6 * j); i;
Next j
Print
Next i
End Sub