Question

VB输出三角形

这样的
1
121
12321
1234321
如果让这个三角形是等要的该怎么办呢？

Answer 1

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim j As Integer
n = 4
For i = 0 To n - 1
For j = -i To i
Print CStr(i + 1 - Abs(j));
Next j
Print
Next i
End Sub

等腰的
Private Sub Command1_Click()

Dim n As Integer
Dim i As Integer
Dim j As Integer
n = 4
For i = 0 To n - 1

For j = i To n - 1
Print " ";
Next j
For j = -i To i
Print CStr(i + 1 - Abs(j));
Next j
Print
Next i
End Sub

Answer 2

Private sub command1_click
for i=1 To 4
print tab(11-i);
for i=1 To 2* i-1
print "#";
nexit i
Print
nexit i