For i = 0 To 4 '打印第0到4行
For j = 1 To i * 2 + 1 '每行字数由1、3、5、7、9递增
Print i; '打印字符
Next
Print '打完一行后换行
Next
For i = 5 To 9 '打印第5到9行
For j = 1 To 19 - i * 2 '每行字数由9、7、5、3、1递减
Print i; '打印字符
Next
Print '打完一行后换行
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024