正文
vb.net杨辉三角形 杨辉三角vb语言程序
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用VB编写程序输出一个9行的“杨辉三角形”，求具体代码，急！！
输出9行的“杨辉三角形”代码：
Private Sub Command1_Click()
Dim a(20) As Integer
a(1) = 1
For i = 1 To 9
Print Spc(20 - 2 * i);
For j = i To 1 Step -1
a(j) = a(j - 1) + a(j)
Print Format(a(j), "@@@@");
Next j
Next i
End Sub
相关问答
Q1: 如何用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
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("输出控制符非输出控制符"，输出参数);
Q2: 谁知道VB输出杨辉三角形的代码怎么写?/
先把formvb.net杨辉三角形的autoredraw属性改成truevb.net杨辉三角形，代码如下vb.net杨辉三角形：
==========================
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
Q3: 用vb.net2008打印杨辉三角形(打印10行)，要求如图所示
Public Class Form1
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
Q4: 怎样用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
�Next
�End Sub
�3． 调试并运行程序，观察输出结果。
Q5: 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
vb.net杨辉三角形的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于杨辉三角vb语言程序、vb.net杨辉三角形的信息别忘了在本站进行查找喔。
