作者ILYY (毅力)
看板Visual_Basic
标题[请益]巴斯卡三角形
时间Sat May 13 18:57:40 2006
'显示结果要对齐真难
Dim j As Integer
Dim i As Integer
Dim n As Integer
Dim c1 As Double
Dim c2 As Double
Dim c3 As Double
Private Sub Command1_Click()
j = 1
n = InputBox("N层")
Do
Print
Print Space(n * 3 - j * 2 - n * 1.2); '这边的空格是用目测的
For i = 0 To j '要怎样才能刚刚好？
Call cxy(0, 0)
c1 = cxy(j, j - i)
Call cxy(0, 0)
c2 = cxy(i, 0)
c3 = c1 / c2
If c3 > 9 Then
Print "" & c3;
Else
Print c3;
End If
Next
j = j + 1
Loop Until j = n
End Sub
Function cxy(a As Integer, b As Integer) As Double
If a > b Then
cxy = cxy(a - 1, b) * a
Else
cxy = 1
End If
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.231.58.120
1F：推 fumizuki:me.fontname="细明体" 05/13 20:28
2F：→ ILYY:谢谢 我知道了 05/14 10:53