vb中如何输出杨辉三角前六行
1个回答
展开全部
Private Sub Command1_Click()
Dim a(10, 10) As Integer
For i = 1 To 10
For j = 1 To i
If j = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
End If
Print Tab((j - 1) * 6); a(i, j);
Next j
Next i
End Sub
呵呵，我直接给了一个10行的~~~望采纳哈
Dim a(10, 10) As Integer
For i = 1 To 10
For j = 1 To i
If j = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
End If
Print Tab((j - 1) * 6); a(i, j);
Next j
Next i
End Sub
呵呵，我直接给了一个10行的~~~望采纳哈
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
