怎样用VB写杨辉三角的完整代码
『壹』 怎么用vb程序编杨辉三角形
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(10, 10) As Integer
For i = 2 To 10
For j = 2 To i
If i = 1 Or j = i Then
a(i, j) = 1
Else
If i > 2 Then a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Print a(i, j);
Next
Print
Next
End Sub
『贰』 用vb自定义函数编杨辉三角的代码，求解
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = Val(Text1.Text) + 1
Dim a(9, 9) As Integer
For i = 0 To n - 1
a(i, 0) = 1
Next i
For i = 1 To n - 1
For j = 1 To i
If i = j Then a(i, j) = 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 0 To n - 1
For j = 0 To i
Picture1.Print Tab(30 - 3 * i + 6 * j); a(i, j);
Next j
Picture1.Print
Next i
End If
End Sub
『叁』 vb打印出杨辉三角的代码怎么写
窗体上添加一个按钮，代码如下：
Option Explicit
Private Sub Command1_Click()
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
N = InputBox("请输内入行数！容", , 10)
ReDim a(N + 1, N + 1), b(N + 1, N + 1)
Cls
k = 8
For i = 1 To N
Print String((N - i) * k / 2 + 1, " ");
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
b(i, j) = Trim(Str(a(i, j)))
Print b(i, j); String(k - Len(b(i, j)), " ");
Next j
Print
Next i
End Sub
『肆』 杨辉三角如何用VB语言表示
来个短一点的，呵呵。
Private Sub Form_click()
Cls
Dim a() As Single
n = Val(InputBox("请输入行数", "杨辉三角", 5))
ReDim a(n + 1, n + 1)
For i = 1 To n
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
Print a(i, j);
Next j
Print
Next i
End Sub
『伍』 如何用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
输出结果：
(5)怎样用VB写杨辉三角的完整代码扩展阅读：
printf的格式
printf函数的原型为：
#include<stdio.h>
int printf(const char*format,...);
在讲每一个函数的时候都会先把它的函数原型写出来，这个原型你们现在看不懂不要紧，等到学完C语言之后再来看这个原型就会发现它是很有参考意义的！它对深刻理解函数有着很大的价值。
printf的格式有四种：
1)printf("字符串 ");
#include<stdio.h>
int main(void)
{
printf("Hello World! ");// 表示换行
return 0;
}
其中 表示换行的意思。它是一个转义字符，前面在讲字符常量的时候见过。其中n是“new line”的缩写，即“新的一行”。
此外需要注意的是，printf中的双引号和后面的分号必须是在英文输入法下。双引号内的字符串可以是英文，也可以是中文。
2)printf("输出控制符"，输出参数);
#include<stdio.h>
int main(void)
{
int i=10;
printf("%d ",i);/*%d是输出控制符，d表示十进制，后面的i是输出参数*/
return 0;
}
这句话的意思是将变量i以十进制输出。
i本身就是十进制，程序中虽然写的是i=10，但是在内存中并不是将10这个十进制数存放进去，而是将10的二进制代码存放进去了。计算机只能执行二进制0、1代码，而0、1代码本身并没有什么实际的含义，它可以表示任何类型的数据。
所以输出的时候要强调是以哪种进制形式输出。所以就必须要有“输出控制符”，以告诉操作系统应该怎样解读二进制数据。
如果是%x就是以十六进制的形式输出，要是%o就是以八进制的形式输出。
3)printf("输出控制符1输出控制符2…",输出参数1,输出参数2,…);
#include<stdio.h>
int main(void)
{
int i=10;
int j=3;
printf("%d%d ",i,j);
return 0;
}
输出控制符1对应的是输出参数1，输出控制符2对应的是输出参数2……编译、链接、执行后看一下输出结果：
10 3
注意：10和3之间有一个空格；因为上面%d和%d之间有空格，printf中双引号内除了输出控制符和转义字符 外，所有其余的普通字符全部都原样输出。比如：
#include<stdio.h>
int main(void)
{
int i=10;
int j=3;
printf("i=%d,j=%d ",i,j);
return 0;
}
再编译、链接、执行一下：
i=10,j=3
i=、,、空格和j=全都原样输出了。此外需要注意的是：“输出控制符”和“输出参数”无论在“顺序上”还是在“个数上”一定要一一对应。
4)printf("输出控制符非输出控制符"，输出参数);
『陆』 谁知道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编写杨辉三角
INPUT "N="; n
Dim a(n, n)
FOR j = 1 TO n
a(j, j) = 1
a(j, 1) = 1
FOR k = 2 TO j - 1
a(j, k) = a(j - 1, k - 1) + a(j - 1, k)
NEXT k
NEXT j
FOR j = 1 TO n
FOR k = 1 TO j
PRINT TAB(5 * k); a(j, k);
NEXT k
Print
NEXT j 试一下吧!
『捌』 如何用vb编杨辉三角
在标准模块些下面函数
Public Function zuhe(ByVal u As Long, ByVal d As Long) As Long
Dim i, a, b As Long
a = 1
b = 1
dd = d - u + 1
For i = d To dd Step -1
a = a * i
Next
For i = u To 1 Step -1
b = b * i
Next
zuhe = a / b
End Function
在对象代码中响应某个按钮的事件，将在窗体上显示杨辉三角，若把i循环中的10改为其他数，可显示不同的级数
Private Sub Command1_Click()
Dim s As String
Dim i, j As Long
For i = 1 To 10
For j = 0 To i
s = s + Str(zuhe(j, i))
Next
Print s
s = ""
Next
End Sub
高中数学讲过二项式定理，应用排列组合的知识就可以解决。函数zuhe()用来算d个中取u个的组合数，不明白借本高二的书看看。