Question

求VB数字金字塔1 22 333 4444一直到N的代码

Answer 1

这种效果的，不知道是不是你想要的。

追问

是啊就是这个

追答

我在界面上放了一个文本框和按钮，代码如下：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim str As String
n = Val(Text1.Text)
If n > 0 Then
For i = 1 To n
str = ""
For j = 1 To n - i
str = str & Chr(32)
Next
Print str & vbCrLf
Next
End If
End Sub
但是当n大于等于10，这个形状就会有点变形，因为10是两位数的，占两个字符空间，会跟之前一位数的对不齐。