Question

数字组成的金字塔图案的VB代码？？急求！1

图案如下： 1
222
33333
4444444
555555555
6666666
77777
888
9谢谢了！！。。。

Answer 1

Private Sub Command1_Click()
Dim i&, j&, X&
AutoRedraw = True
X = 1 '与窗口左边距
For i = 2 To 8 '组成的金字塔图案数字
j = Abs(5 - i)
Print Space(j + X) & String(9 - j * 2, "" & i)
Next
End Sub

Answer 2

Dim i As Integer, j As Integer, k As Integer
Dim m As Single
InputNumber:
k = Val(InputBox("", , "9"))
If k < 1 Or k > 9 Then
MsgBox "请正确输入，要求1到9！", vbCritical
GoTo InputNumber
End If
If k Mod 2 Then j = (k - 1) / 2 + 1 Else j = k / 2
m = k / 2
For i = 1 To k
If i < m Then
Me.Print Space(j - i) & Replace(Space(2 * (i - 1) + 1), " ", CStr(k))
ElseIf i = m Then
Me.Print Replace(Space(2 * j - 1), " ", CStr(k))
Else
Me.Print Space(i - j) & Replace(Space(2 * (k - i) + 1), " ", CStr(k))
End If
Next i