VB 打数字三角形

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

'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

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

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