Question

有没有学过VB的高手，进来看段代码！

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
Print Tab(36);
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
For i = 9 To 1 Step -1
Print Tab(39 - 3 * i);
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub

要详细的分析过程，谢谢！
老师说这是个很有趣的东西，有趣到哪里了？？

Answer 1

按钮1 输出上面的数字三角形 按钮2输出下面的数字三角形

代码中 采用嵌套循环  Tab函数作用是控制下一个要打印的字符输出的位置

tab(1)就是在第一列输出

Print Tab(36); 这里就是在第36列输出 后面的分号意思是下一个打印的内容紧接在后面不换行

print 后面没内容就是换行的作用

For i = 9 To 1 Step -1  步进为负一~i 的值 从9 一直到1
没有其他知识点了 整个代码就是控制位置输出数字