Option Explicit
Public Sub 显示(c1$, c2$, n%)
Dim i%, j%, k%, m%, ZF$
For i = 1 To n
k = (i - 1) * 2 + 1
m = n - i + 1
For j = 1 To k
If j Mod 2 = 1 Then
ZF = c1
Else
ZF = c2
End If
Print Tab(m + j); ZF;
Next j
Print
Next i
For i = n - 1 To 1 Step -1
k = (i - 1) * 2 + 1
m = n - i + 1
For j = 1 To k
If j Mod 2 = 1 Then
ZF = c1
Else
ZF = c2
End If
Print Tab(m + j); ZF;
Next j
Print
Next i
End Sub
Private Sub Form_Click()
Dim n%
Me.AutoRedraw = True ' 窗体可打印
Cls
n = Val(InputBox("请输入 n = ?", "输入", "5"))
Call 显示("A", "B", n)
End Sub