Question

vb问题 打印数字金字塔的一段代码，请哪位给我解释一下，要详细一点。

Private Sub Form_DblClick() For i = 1 To 9 For T = 1 To i Print Tab(10 - i); Next For j = 1 To i Print Trim(j); Next For k = j - 2 To 1 Step -1 Print Trim(k); Next Print Next End Sub

Answer 1

Private Sub Form_DblClick() ‘窗体双击事件 For i = 1 To 9 ’外层循环，用于控制打印行数 For T = 1 To i ‘内层循环，用于控制每行的打印列数 Print Tab(10 - i); ’定位首个打印字符的位置。这里可以使用spc（10-i），可以获得相同的效果 Next For j = 1 To i ‘打印字符 Print Trim(j); Next For k = j - 2 To 1 Step -1 ‘打印另一组字符 Print Trim(k); Next Print ’换行 Next End Sub