(资料图片仅供参考)

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。

本文到此分享完毕,希望对大家有所帮助。

推荐阅读

更多 >

最近更新

更多 >