VB.NET输出杨辉三角 vb杨辉三角

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

Public Class Form1

辽宁ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

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,9,

xixihahano1 举报

谢谢了，但是你写的代码可以输出多少行？多久会溢出了

举报 ccddty

没试过，你可以试试，将n的值加大 当n》16的时候就显示“参数“Number”必须大于或等于 0。”了 有没有办法解决？,

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

如何用VB编程输出杨辉三角？

VB代码：

Option Base 1

Private Sub form_click()

Const n=10

Dim arr(n,n)As Integer

For i=1 To n

arr(i,i)=1

arr(i,1)=1

Next i

For i=3 To n

For j=2 To i-1

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

Next j

Next i

For i=1 To n

For j=1 To i

Print arr(i,j);

Next j

Print

Next i

End Sub

输出结果：

扩展资料：

printf的格式

printf函数的原型为：

#includelt;stdio.hgt;

int printf(const char*format,...);

在讲每一个函数的时候都会先把它的函数原型写出来，这个原型你们现在看不懂不要紧，等到学完C语言之后再来看这个原型就会发现它是很有参考意义的！它对深刻理解函数有着很大的价值。

printf的格式有四种：

1)printf("字符串\n");

#includelt;stdio.hgt;

int main(void)

{

printf("Hello World!\n");//\n表示换行

return 0;

}

其中\n表示换行的意思。它是一个转义字符，前面在讲字符常量的时候见过。其中n是“new line”的缩写，即“新的一行”。

此外需要注意的是，printf中的双引号和后面的分号必须是在英文输入法下。双引号内的字符串可以是英文，也可以是中文。

2)printf("输出控制符"，输出参数);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

printf("%d\n",i);/*%d是输出控制符，d表示十进制，后面的i是输出参数*/

return 0;

}

这句话的意思是将变量i以十进制输出。

i本身就是十进制，程序中虽然写的是i=10，但是在内存中并不是将10这个十进制数存放进去，而是将10的二进制代码存放进去了。计算机只能执行二进制0、1代码，而0、1代码本身并没有什么实际的含义，它可以表示任何类型的数据。

所以输出的时候要强调是以哪种进制形式输出。所以就必须要有“输出控制符”，以告诉操作系统应该怎样解读二进制数据。

如果是%x就是以十六进制的形式输出，要是%o就是以八进制的形式输出。

3)printf("输出控制符1输出控制符2?",输出参数1,输出参数2,?);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("%d%d\n",i,j);

return 0;

}

输出控制符1对应的是输出参数1，输出控制符2对应的是输出参数2??编译、链接、执行后看一下输出结果：

10 3

注意：10和3之间有一个空格；因为上面%d和%d之间有空格，printf中双引号内除了输出控制符和转义字符\n外，所有其余的普通字符全部都原样输出。比如：

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("i=%d,j=%d\n",i,j);

return 0;

}

再编译、链接、执行一下：

i=10,j=3

i=、,、空格和j=全都原样输出了。此外需要注意的是：“输出控制符”和“输出参数”无论在“顺序上”还是在“个数上”一定要一一对应。

4)printf("输出控制符非输出控制符"，输出参数);

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