问问题描述
vb程序设计打印数字金字塔，拜谢！求解答这个难题！
答精选答案
代码及注释如下：
Private Sub Command1_Click()
For i = 1 To 9 'i从1到9循环
For j = 1 To 9 - i 'j从1到9-i循环，此处j为了产生空格
"
"; '显示空格
Next j
For j = 1 To i 'j从1到9循环，此处j为了产生1-9的数字
Print j; '显示j
Next j
For j = i - 1 To 1 Step -1 'j从9-1循环，此处为了产生镜像的数字
Print j; '显示j
Next j
Print '为了分行，i每变更一行，换一次行
Next i
End Sub
本文来自作者[陈玉佳CUJ2008]投稿，不代表公众科技网立场，如若转载，请注明出处：https://www.cpst.net.cn/yuanxiaowenda/202609/1753893.html
评论列表（4条）
我是公众科技网的签约作者“陈玉佳CUJ2008”！
希望本篇文章《vb程序设计打印数字金字塔》能对你有所帮助！
本站[公众科技网]内容主要涵盖：教育咨询,知识百科
本文概览：代码及注释如下：Private Sub Command1_Click()For i = 1 To 9 'i从1到9循环For j = 1 To 9 - i 'j从1到9-i循环，此处j为了产生空格Print " "; '显示空格Next jFor j = 1 To i 'j从1到9循环，此处j为了产生1-9的数字Print j; '显示jNext jFor j = i - 1 To 1 Step -1 'j从9-1循环，此处为了产生镜像的数字Print j; '显示jNext jPrint '为了分行，i