按金字塔形状打印扬辉三角形（用数组做），在线等-CSDN论坛

论坛帮助

CSDN论坛 > VB > VB基础类

按金字塔形状打印扬辉三角形（用数组做），在线等 [问题点数：0分]

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2 结帖率 100%: 0 2004-11-22 14:08:06 回复次数8

引用・举报・楼主

1
     1   1
    1  2   1
   1  3  3   1
  1  4  6  4   1
1  5  10 10  5  1
如何去做啊？

问题点数：0分

CSDN推荐

CSDN今日推荐

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 0 2004-11-22 14:24:24

引用・举报・ #1 得分：0

Option Explicit

Dim yang(10, 10) As Integer

Private Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8                   '输出的行数
    For i = 0 To n - 1      '第1列和对角线上的元素置1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1      '给杨辉三角形其它元素置数
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 0 To i
            Print yang(i, j);
        Next j
        Print vbNewLine
    Next i
End Sub

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 0 2004-11-22 14:27:09

引用・举报・ #2 得分：0

Option Explicit

Dim yang(10, 10) As Integer

Private Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8
    For i = 0 To n - 1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 1 To (8 - i) * 2
            Print " ";
        Next j
        For j = 0 To i
            Print yang(i, j) & "   ";
        Next j
        Print vbNewLine
    Next i
End Sub

⋅请教一个写游戏中遇到的问题 ⋅哎，工作6年，码代码码了6年，真的很累... ⋅怎么知道电脑上有多少modem拨号连接，不管是有效还是无效的，也不管连上网的还是断开的 更多帖子 关注空间博客 qidaozhilong 本版专家分：182: 0 2004-11-22 14:32:01

引用・举报・ #3 得分：0

我倒，这不是以前大学C语言的入门题嘛！

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2: 0 2004-11-22 14:48:15

引用・举报・ #4 得分：0

daisy8675(莫依)，谢谢你将程序分两部分写，我明白了，先生成数组，再按照特定格式输出，再问个问题：
Form1.AutoRedraw属性是什么意思

⋅请教一个写游戏中遇到的问题 ⋅哎，工作6年，码代码码了6年，真的很累... ⋅怎么知道电脑上有多少modem拨号连接，不管是有效还是无效的，也不管连上网的还是断开的 更多帖子 关注空间博客 qidaozhilong 本版专家分：182: 0 2004-11-22 17:23:09

引用・举报・ #5 得分：0

Form1.AutoRedraw就是重绘属性罗。

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 0 2004-11-22 17:38:11

引用・举报・ #6 得分：0

Form1.AutoRedraw属性是什么意思
//我想这样的问题你应该去查查MSDN^^

⋅如何管理N个WCF服务？ ⋅有没有谁做嵌入式开发的，大虾给俺指导一下？谁有WIN CE的模拟器？ ⋅请各位大虾帮俺出出招儿：关于控制页签显示与关闭的控制问题！！！！！！若能解决将高分奉上……！ 更多帖子 关注空间博客 沧海亦心 本版专家分：231: 0 2004-11-22 22:25:17

引用・举报・ #7 得分：0

这个问题跟我原来写程序一样，写数组和打印输出放在一起了！
分开考虑也是一个很好的思想！

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2: 0 2004-11-23 17:10:34

引用・举报・ #8 得分：0

不好意思，是我偷懒，下次不敢了

其他相关推荐

php练习——用for循环打印半金字塔、金字塔、正方形、倒金字塔、菱形、空心图形等: 1、半金字塔$n=5; //控制层数 for($i=1;$i<=$n;$i++){ //控制每层的 “*” 数 for($j=1;$j<=$i;$j++){ echo "*"; } echo "<br/>"; }2、金字塔$n=5; for($i=1;$i<=$n;$i++){ for($k=1;$k<=$n-$i;$k++){ echo "&nbsp"; //输出空格 } for($j=1

分别用for循环和while循环实现打印金字塔图形: 需求：1、用for循环实现打印金字塔图形2、用while循环实现打印金字塔图形 public class ForWhilePyramids { public static void main(String[] args) { printForPyramids(); printWhilePyramids(); } /** * 使用for循环打印金字塔图形 */ publi

用*号搭建一个金字塔（python实现）: 如图 * * * * * * * * * * * * * * * * * * * * * * * * * 代码如下#coding=utf-8 #raw代表要画的行数 raw=5 n=0 m=raw while n<(raw*2): #画空格 w=m while w>0: print " ",

js打出各种*样式的三角形: js特效打印出各种由**组成的三角形

【java练习】来打印各种形状的三角形吧！！（循环练习）: 正立三角形，倒立三角形，乘法口诀，菱形，空心菱形...

java用*号打印金字塔: /* 功能：用*号打印金字塔 */ import java.io.*; public class Demo { public static void main(String[] args) { Dayin dayin=new Dayin(); dayin.Dayin(); } } class Dayin { public void Dayin() { try {

js基础运用——js用*打印三角形，菱形: js基础运用新手见解，有不足或更简单的方法希望各位指点1.用*排列直角三形（图一）（图二）图一图二是js语句利用*号画出来的直角三角形，方法思路都一致，下面以图一为例讲一下本人所用的方法：<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Document</title> <scrip

Python使用for循环打印星号三角形实例: 简单的for循环打印三角形 1，for循环方法实现星星三角 * * * * * * * * * * * * 代码： for i in range(0,5): for j in range(i+1): if i == 4: print("* ",end="") continue if j...

键盘输入行数，打印三角形: 简单说明一下：这里以打印直角三角形为例，若要打印等腰三角形、平行四边形、菱形等形状可以参考我的相关文章。基础部分我们跳过了，开始新的征程，现在提高一丢丢等次，用方法（函数）来写。思路： 1. 我们要能在键盘上输入； 2. 在控制台能给我们输出 * 代码解析： ①Scanner这是一个类，我们需要通过他来输入信息。使用前要导包（源代码的第一行）。 ②num是接收我们输入的行数（只在

C++实现四种三角形的打印: 1、左上角方式 int main(){for (int i=0; i 2、右上角方式： int mainyoushangjiao(){for (int i=0;ij){printf(" ");}else{printf("%5d",j);}}printf("\n");}getchar();return 0;}

关闭