vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 03:15:59
vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
这是我从前抄的,理解不深,但效果很好:
n = Val(Text1.Text) ' 输入行数.如果只要求输出10行,可去掉这一句,把后面的n换成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
n = Val(Text1.Text) ' 输入行数.如果只要求输出10行,可去掉这一句,把后面的n换成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
Next i
vb编写杨辉三角 格式1 11 121 1331 …… 1 9 36 84 126 126 84 36 9 1
1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序
用VB编写程序,计算1!+2!+3!+……+15!的值.
vb语句编写S=1*2*3*……*n的值怎么编?
用VB编写程序.计算1+2+3+.+100
用vb编写程序:求s=aa…aa-…-aaa-aa-a(此处aa…aa表示n个a,a和n的值在1至9之间)
编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数
求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码
用VB编写程序计算1*9+2= 12*9+3= 123*9+4= 1234*9+5= ... 123456789*9+1
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
用vb do while 语句编写.已知π/4=1-1/3+1/5-1/7+1/9-1/11.,求计算十万次后的结果
用VB编写函数过程,计算s=1+1/2+1/3+…+1/100.运行程序时,单击窗体,输出上述计算结果的值.