would you like to help me? Thanks!

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer                       当中的3个for,next循环分别是什么意思？
Dim m_str As String                     能不能详细帮我讲解一下？？
Form1.Cls
For i = 1 To 9
    m_str = ""
    For j = 9 To i + 1 Step -1
       m_str = m_str + "  "
    Next j
    For j = 1 To 2 * i - 1
       m_str = m_str + Str$(i)
    Next j
    For j = 9 To i + 1 Step -1
       m_str = m_str + "  "
    Next j
    Print m_str
Next i

End Sub

7 个解决方案

#1

这又是作业吧？你可真有意思！
多动手，多思考，会比提问更有收益。

#2

我知道这个是金子塔，但是这段程序让我当程序阅读我不会做，
我只想知道3个for,next循环分别是什么意思？它是怎么样循环的。。
p_s_w（老彭）怎么我提的问题都被你撞到，对是习题，我不懂才哪出来问，
没人帮我答仪我只好来这里发帖子咯！！！

#3

你可以在计算机上运行就可以知道结果的
程序的几个循环语句，你可以根据结果考虑的，你会知道它的含义的，不信，试一试，OK？？

#4

结果是一个金字塔的

#5

金字塔是由若干行字符组成的，每一行都是由若干个空格打头，再来几个数字。
最外层的i循环用来控制行，每循环一次，打印出一行。
内层的三个j循环用来生成这一行中的内容：
第一个j循环用来生成打头的空格；
第二个j循环用来生成紧跟着的数字；
第三个j循环用来生成数字后面的空格，不过纯属多余，反正也看不见；
然后打印出构造好的这一行的内容。
That's OK!

#6

这样够意思了吧！

#7

：-）谢谢老彭先生！！！
现在我懂了，就是我自己在家里怎么看都不理解，由你一指点才恍然大悟！！！
下次我留言帮我在看看哦~~~

#1