- 博客(0)
- 资源 (1)
空空如也
VB.net打印十阶杨辉三角代码
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j) & " ")
sum += dete(i, j)
Next
Debug.WriteLine(" ")
Next
Debug.WriteLine(" 所有数的和:" & sum)
End Sub
End Class
2011-11-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人