یک برنامه برای مثلث پاسکال به صورت زیر است
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim a1, a2, a3 As Integer
For i = 0 To 5
a1 = fac(i)
For j = 0 To i
a2 = fac(j)
a3 = fac(i - j)
Print a1 / (a2 * a3);
Next
Print
Next
برنامه دیگر برای مثلث پاسکال
Dim i, j, n As Byte
Dim a(10, 10) As Integer
n = 10
For i = 0 To n
For j = 0 To i
If i = j Or j = 0 Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Print a(i, j);
Next
Print
Next
برنامه دوم بهتر است
ویرایش: سپیدار
با تشکر از افشین