Question

VB 打数字三角形

想要打出如下图形
1
1 2 1
1 2 3 2 1
……
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

Answer 1

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer, j As Integer, k As Integer
n = InputBox("输入你要的行数")
For i = 1 To n
Print Tab(n * 2 - i);
For j = 1 To i
Print Trim(Str(j));
Next
For k = i - 1 To 1 Step -1
Print Trim(Str(k));
Next
Print
Next
End Sub

Answer 2

Private Sub Form_Click()
Dim i As Long, j As Long, l As Long
l = 9
For i = 1 To l
Print Space(l - i);
For j = 1 To i * 2 - 1
Print CStr(j + CBool(j > i) * ((j - i) * 2));
Next j
Print
Next i
End Sub

Answer 3

长时间不做这东西，有点生疏，有麻烦的自己改改

'Option Explicit

Private Sub Form_Click()
For x = 1 To 9
For y = 1 To x
Print y;
Next y
For j = 1 To x-1
b = x - j
Print b;
Next j
Print
a = 1
Next x
Print
End Sub