高考问答ico是什么文件格式:关于VB的程序问题高手来
来源：百度文库 编辑：高考问答 时间：2024/04/28 11:40:39
1。打印n行杨辉三角的表示方法
2。对已知存放数组A中的N个数，用选择法按递增的顺序排序，并打印在窗体Form1上
怎么写程序
2。对已知存放数组A中的N个数，用选择法按递增的顺序排序，并打印在窗体Form1上
怎么写程序
n=inputbox("enter n")
dim yh(1 to n,1 to n) as integer
dim i as integer,j as integer
for i=1 to n
yh(i,1)=1
yh(i,i)=1
next i
for i=3 to n
for j=2 to i-1
yh(i,j)=yh(i-1,j-1)+yh(i-1,j)
next j,i
for i=1 to n
for j=1 to i
debug.print yh(i,j);"";
next j
debug.print
next i
杨汇三角自己搜索一下,这样的例子有很多.或许可以是C或者pascal，你自己翻译成VB就OK了．
第一个问题：
杨辉三角形每一行是（X+Y）的n次方的展开式的各项系数。
可以用二维数组yh来表示杨辉三角形
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
由图有yh(i,j)=yh(i-1,j-1)+yh(i-1,j)
源程序：
n=inputbox("enter n")
dim yh(1 to n,1 to n) as integer
dim i as integer,j as integer
for i=1 to n
yh(i,1)=1
yh(i,i)=1
next i
for i=3 to n
for j=2 to i-1
yh(i,j)=yh(i-1,j-1)+yh(i-1,j)
next j,i
for i=1 to n
for j=1 to i
debug.print yh(i,j);"";
next j
debug.print
next i