字符图形设计源码帮助

《字符图形设计源码帮助》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、字符图形设计代码模板（写在窗体的单击事件里form_click()）Cls‘清屏Fori=初值1To终值1 ‘控制图形的行数n=列数  ‘图形每行的列数PrintTab(首字符位置);  ‘每行起始位置Forj=初值2 To 终值2  ‘控制图形每行的列数c=要打印的内容  ‘每列打印的内容赋值设置Printc;Print Space(字符间距);  ‘每个字符的间距的NextjPrintNexti注：1、是注释语句;2、外循环;3、内循环矩形图形代码：ClsFori=1To4n=7PrintTab(1);Forj=1To7c="*"Printc;NextjPrintNexti半

2、三角形代码：ClsFori=1To6n=6PrintTab(1);Forj=1Toic="*"Printc;PrintSpace(0);NextjPrintNexti正三角代码：ClsFori=-4To0n=Abs(i)PrintTab(5-Abs(i));Forj=1To2*n+1c="*"Printc;NextjPrintNexti倒三角代码：ClsFori=0To4n=5-iPrintTab(i+1);Forj=1To2*n-1c="*"Printc;NextjPrintNexti菱形代码：ClsFori=-4To4n=5-Abs(i)PrintTab(Abs(i)+1);

3、Forj=1To2*n-1c="*"Printc;NextjPrintNexti漏斗形代码：ClsFori=-4To4n=Abs(i)PrintTab(5-Abs(i));Forj=1To2*n+1c="*"Printc;NextjPrintNexti上下对称数字代码ClsFori=-4To4n=5-Abs(i)PrintTab(3*Abs(i)+1);Forj=1To2*n-1c=Abs(i)Printc;NextjPrintNexti左右对称数字图形代码：ClsFori=-4To4n=5-Abs(i)PrintTab(3*Abs(i)+1);Forj=1To2*n-1c=Ab

4、s(n-j)Printc;NextjPrintNexti上下对称的字母图形代码：ClsFori=-4To4n=5-Abs(i)PrintTab(Abs(i)+1);Forj=1To2*n-1c=Chr(96+n)Printc;NextjPrintNexti