公平近义词是什么:QB程序不太难但是我不会:关于杨辉三角的,编程输出杨辉三角的前11行。多谢!
来源:百度文库 编辑:神马品牌网 时间:2024/10/05 09:34:01
以下是经VB调试的,请在QB中略作修改:
Dim a(21, 21) As Long
Dim b(21) As String
Dim i As Byte
Dim j As Byte
a(0, 0) = 1
For i = 1 To 11
For j = 1 To 11
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
If a(i, j) <> 0 Then
b(j) = b(j - 1) & " " & a(i, j)
End If
Next j
Print b(i)
Next i
END
你想问什么问题啊?