如何在VB中实现

Private Sub Command1_Click()
For i = 1 To 6
For j = 1 To i
Print Tab(j * 4); j;
Next j
If j > 1 Then
For j = i - 1 To 1 Step -1
Print Tab((2 * i - j) * 4); j;
Next j
End If
Print
Next i
End Sub

Private Sub Command1_Click()
Cls
Dim i, j As Integer
For i = 1 To 6
For j = 1 To 2 * i - 1
If j <= i Then Print j; Else Print 2 * i - j;
Next
Print
Next
End Sub

超简单，PRINT 方法
双击窗体
PRINT 1
PRINT 1 2 1
PRINT 1 2 3 2 1
PRINT 1 2 3 4 3 2 1
PRINT 1 2 3 4 5 4 3 2 1
PRINT 1 2 3 4 5 6 5 4 3 2 1
最后把Private Sub Form_LOCD()
里的LOCD 改成CLICK
就可以了
超简单

强烈赞同 yipkinwing43 同志的方法!!!!!!!!运行速度是最快的....

Private Sub Command1_Click ()
Dim i As Integer,j As Integer
For i=1 to 6
For j=-(i-1) to i-1
Print Str(i-Abs(j));
Next j
Print vbCrLf
Next i
End Sub

唉，