使用VBA创建数字金字塔

各位同学数学课中肯定学习过杨辉三角形，英文名称Pascal’s triangle，其实还是多种不同的类似金字塔。

接下来我们看一下如果使用VBA创建如下图所示的数字金字塔。

示例代码如下。

Sub Demo()Dim arrDigit()intRow = 10iNum = 1intCol = intRow * 2 - 1ReDim arrDigit(1 To intRow, 1 To intCol)For i = 1 To intRowFor j = intRow - (i - 1) To intRow + (i - 1)arrDigit(i, j) = iNumiNum = iNum + 1Next jNext iActiveSheet.Cells.Clear[A1].Resize(intRow, intCol) = arrDigit
End Sub

【代码解析】
代码实现其实很简单，重要的是找到数字排练的规律，简单总结：对于第n行，第一个数字位于（总行数-n+1）列，最后一个数字位于（2*n-1）列。
第3行代码设置金字塔共10层。
第4行代码设置数字的初始值。
第5行代码计算最大列数。
第6行代码重新声明态数组，用于保存结果。
第7~12行代码使用双重循环创建数组金字塔。
第7行代码循环变量i为行数（金字塔的层数）。
第8行代码循环变量j为列数。
第9行代码将数字保存在结果数组中。
第13行代码清空工作表。
第14行代码将结果写入工作表。

如果需要创建多种不同层数、不同起始数字的金字塔，大家可用将上述代码改造成带参数的Sub过程。

使用VBA创建数字金字塔相关推荐

java编写数字金字塔_用JAVA写数字金字塔
今年的蓝桥杯中我遇到了一道题是关于数字金字塔的,那时候在比赛时可能是各方面的因素有思路但是没有实现,直到今天回过头来看,其实只要思路正确了题目就会迎刃而解了,其实数字金字塔的的解题思路就是把金字塔分成 ...
使用双重循环，输出数字金字塔
代码: package net.text0702;import java.util.Scanner;/*** @author Mr.Wang* 根据输入数字,输出数字金字塔:输入几就是几行,每行输出当 ...
1625 数字金字塔
1625 数字金字塔链接:http://codevs.cn/problem/1625/ USACO 时间限制: 1 s 空间限制: 128000 KB 题目描述 Description 考虑 ...
【动态规划】数字金字塔
数字金字塔 Description 考虑在下面被显示的数字金字塔. 写一个程序来计算从最高点开始在底部任意处结束的路径经过数字的和的最大. 每一步可以走到左下方的点也可以到达右下方的点. 7 3 8 ...
本题要求实现函数输出n行数字金字塔。_练习5-3 数字金字塔 (15分)
本题要求实现函数输出n行数字金字塔. 函数接口定义: void pyramid( int n ); 其中n是用户传入的参数,为[1, 9]的正整数.要求函数按照如样例所示的格式打印出n行数字金字塔.注 ...
信息学奥赛一本通 1258：【例9.2】数字金字塔
[题目链接] ybt 1258:[例9.2]数字金字塔 [题目考点] 1. 记忆化搜索 2. 动态规划基本型 [解题思路] 思路1:一般深搜(非正确解) 每到一个位置,更新加和,向左下,右下两个方向搜 ...
信息学奥赛一本通（1258：【例9.2】数字金字塔）
1258:[例9.2]数字金字塔时间限制: 1000 ms 内存限制: 65536 KB 提交数: 20019 通过数: 11518 [题目描述] 观察下面的数字金字塔.写一 ...
数字金字塔（信息学奥赛一本通-T1258）
[题目描述] 观察下面的数字金字塔.写一个程序查找从最高点到底部任意处结束的路径,使路径经过数字的和最大.每一步可以从当前点走到左下方的点也可以到达右下方的点. 在上面的样例中,从13到8到26到15 ...
java金字塔显示_java控制台输出数字金字塔示例分享
/*Java *Author: NealFeng at oschina.net *License: GPLv2+ *Time: 2014/1/17 * *在控制台输出数字金字塔: * ...

使用VBA创建数字金字塔

使用VBA创建数字金字塔相关推荐

最新文章

热门文章