来源:互联网
2023-05-14 01:00:08
(资料图片仅供参考)
1、PrivateSubCommand1_Click()***.clsDimNAsInteger,iAsIntegerN=InputBox("n=",,9)Fori=1To2*N-1Ifi<=NThenPrintSpace(N-i)+String(2*i-1,CStr(i))ElsePrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))EndIfNextiEndSub。
本文到此分享完毕,希望对大家有所帮助。