vb.net杨辉三角形 c#杨辉三角程序

用vb.net2008打印杨辉三角形(打印10行)，要求如图所示

Public Class Form1

成都创新互联公司，为您提供成都网站建设、成都网站制作、网站营销推广、网站开发设计，对服务航空箱等多个行业拥有丰富的网站建设及推广经验。成都创新互联公司网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏心悦目的作品。 与客户共同发展进步，是我们永远的责任！

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim n As Integer, i As Integer, j As Integer, a(,) As Integer

n = 10

ReDim a(n + 1, n + 1)

For i = 1 To n + 1

a(i, 1) = 1 : a(i, i) = 1 : Next i

For i = 3 To n + 1

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j, i

For i = 1 To n + 1

For j = 1 To i

TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j))))) Trim(Str(a(i, j))))

Next j

TextBox1.AppendText(vbCrLf)

Next i

End Sub

End Class

谁知道VB输出杨辉三角形的代码怎么写?/

先把form的autoredraw属性改成true，代码如下：

==========================

Option Explicit

Dim a(10, 10) As Long

Dim b(10) As String

Dim i As Byte

Dim j As Byte

Private Sub Form_Load()

a(0, 0) = 1

For i = 1 To 9

For j = 1 To 9

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

Print b(i)

Next

End Sub

怎样用vb打印杨辉三角形?

要求在窗体上打印出杨辉三角形，其打印行数由键盘输入。

【设计思路】�1．定义一个整型二维动态数组，其实际元素个数由键盘输入。�

2． 对输入数据进行检查，确保输入数据在1至16之间，以免溢出。�

3． 编写程序代码，当确认输入数据后，在窗体上打印杨辉三角形。

【操作步骤】

�1． 建立新项目，并设计窗体。

文本框用来输入要打印杨辉三角形的行数；“确定”按钮执行具体打印操作；窗体左 侧的数字为打印的杨辉三角形实例。

�2． 为“确定”按钮编写如下代码：

Private Sub Command1Click()

�Dim RowNum() As Integer ′定义整型动态数组

�Dim i As Integer, j As Integer ′定义循环变量

�Dim Num As Integer

�Cls ′清空窗体内容

�Num=Val(Text1.Text) + 1

�If Num =18 Then ′对输入数据进行检查（小于17）

� Text1.Text= 〃〃

� Exit Sub�

End If

ReDim RowNum(1 To Num, 1 To Num) ′根据输入值重新确定数组

’维数及大小�下面是具体打印杨辉三角形的代码：

For i = 1 To Num-1′将第一列及对角元素置1

� RowNum(i, i)=1

� RowNum(i, 1)=1

�Next

�For i = 3 To Num-1 ′计算其它元素值

� For j = 2 To i-1

� RowNum(i, j)=RowNum(i-1, j-1)+Row Num(i-1,j)

� Next

�Next

�For i = 1 To Num-1 ′打印杨辉三角形

� For j = 1 To i

� Print RowNum(i, j);

� Next

� Print

�Next

�End Sub

�3． 调试并运行程序，观察输出结果。

VB.Net的问题，输入整数n，显示具有n行的杨辉三角形。

参考：

以下为十行的杨辉三角输出，根据这个自己做相应修改，都做好了，那你就是伸手党了。

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

End Sub

End Class