Question

用VB编程如何打印数字金字塔

用VB编程如何打印数字金字塔，如下所示： 1 12112321...........

Answer 1

For i = 1 To 9 For j = 1 To 9 - i Print " "; Next j For j = 1 To i Print j; Next j For j = i - 1 To 1 Step -1 Print j; Next j Print Next i

Answer 2

代码及注释如下：
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 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