PrivateSubCommand1_Click()
t=6'（这里设置从A起的字母个数，A-F时为6A-Z时为26）
Fori=1Tot
s=""
Forj=1To2*i-1
s=s&Chr(i+64)
Next
PrintSpace(t-i)&s&Space(t-i)
Next
Fori=1Tot-1
s=""
Forj=1To(t-i)*2-1
s=s&Chr(64+t-i)
Next
PrintSpace(i)&s&Space(i)
Next
EndSub
PrivateSubCommand1_Click()
t=6'（这里设置从A起的字母个数，A-F时为6A-Z时为26）
Fori=1Tot
s=""
Forj=1To2*i-1
s=s&Chr(i+64)
Next
PrintSpace(t-i)&s&Space(t-i)
Next
Fori=1Tot-1
s=""
Forj=1To(t-i)*2-1
s=s&Chr(64+t-i)
Next
PrintSpace(i)&s&Space(i)
Next
EndSub
