Private Sub Form_Click()Dim i, j As IntegerFor i = 1 To 9
For j = 1 To 9 - i
'打空格
Print " ";
Next j
For j = 1 To i
'大前段
Print j;
Next j
For j = i - 1 To 1 Step -1
'大后段
Print j;
Next j
Print
Option ExplicitPrivate Sub Command1_Click()Dim i, j, k, s As IntegerFor i = 1 To 9Dim m, a As Stringm = ""a = ""For j = 1 To iFor k = 1 To 9 - iIf j = 1 Thenm
option explicitoption base 1private sub command1_click()dim a() as integer,i as integer,j as integer,n as integer,p as integern=inputbox("请输入行数：")redim a(n,2*n-1)for i=
Private Sub Form_Click()Dim i%, j%For i = 1 To 9 For j = 1 To 9 - i: Print " ";: Next j For j = 1 To i: Print j;: Next j For j = i - 1 To 1 Step -1: Print j;: Next j
