养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

VB6.0编程实现杨辉三角的打印输出

时间:2024-09-20 12:09:01

杨辉三角是一个著名的数学问题,在高中学二次项系数就学过。仔细观察其规律,可以通过VB6.0编制代码实现杨辉三角的打印输出,接下来就简要介绍步骤。

工具/原料

VB6.0

计算机(WIN7系统)

方法/步骤

1、仔细观察杨辉三角的规律可以发现:从第二行开始,每个数都等于肩头上两个数的和。而且还要注意编程时,为了正确显示,每两个数之间有个空格。

VB6.0编程实现杨辉三角的打印输出

2、打开VB6.0,新建一个工程,在窗体中添邹菁惨挣加一个命令按钮,caption改为“打印”,添加一个图片框控件,用于打印输出,将Form1窗体的caption属性改为“杨辉三角”,将界面设置成下图:

VB6.0编程实现杨辉三角的打印输出

3、双击“打印”命令按钮,进入代码编辑窗口,输入如下代码:Dima(11,11)As咯悝滩镞Integerm=11Fori=1Toma(足毂忍珩i,1)=1:a(i,i)=1NextiFori=3TomForj=2Toi-1a(i,j)=a(i-1,j-1)+a(i-1,j)NextjNextin=30Fori=1TomPicture1.PrintTab(n);k=nForj=1ToiPicture1.PrintTab(k);Picture1.PrintFormat(a(i,j),"@@@@@@");k=k+6NextjPicture1.Printn=n-3Nexti

VB6.0编程实现杨辉三角的打印输出

4、关闭代码窗口,按下F5运行程序,程序界面如图:

VB6.0编程实现杨辉三角的打印输出

5、单击“打印”命令按钮,图片框Picture1中输出结果,如图:

VB6.0编程实现杨辉三角的打印输出

© 一点知识