免费预览已结束，剩余1页可下载查看
下载本文档
版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
字符图形设计代码模板字符图形设计代码模板 写在窗体的单击事件里 写在窗体的单击事件里 form click Cls 清屏 For i 初值初值 1 To 终值终值 1 控制图形的行数 n 列数 图形每行的列数 Print Tab 首字符位置首字符位置 每行起始位置 For j 初值初值 2 To 终值终值 2 控制图形每行的列数 c 要打印的内容 每列打印的内容赋值设置 Print c Print Space 字符间距字符间距 每个字符的间距的 Next j Print Next i 注 1 是注释语句 2 外循环 3 内循环 矩形图形代码 Cls For i 1 To 4 n 7 Print Tab 1 For j 1 To 7 c Print c Next j Print Next i 半三角形代码 Cls For i 1 To 6 n 6 Print Tab 1 For j 1 To i c Print c Print Space 0 Next j Print Next i 正三角代码 Cls For i 4 To 0 n Abs i Print Tab 5 Abs i For j 1 To 2 n 1 c Print c Next j Print Next i 倒三角代码 Cls For i 0 To 4 n 5 i Print Tab i 1 For j 1 To 2 n 1 c Print c Next j Print Next i 菱形 代码 Cls For i 4 To 4 n 5 Abs i Print Tab Abs i 1 For j 1 To 2 n 1 c Print c Next j Print Next i 漏斗形 代码 Cls For i 4 To 4 n Abs i Print Tab 5 Abs i For j 1 To 2 n 1 c Print c Next j Print Next i 上下对称数字 代码 Cls For i 4 To 4 n 5 Abs i Print Tab 3 Abs i 1 For j 1 To 2 n 1 c Abs i Print c Next j Print Next i 左右对称数字图形 代码 Cls For i 4 To 4 n 5 Abs i Print Tab 3 Abs i 1 For j 1 To 2 n 1 c Abs n j Print c Next j Print Next i 上下对称的字母图形 代码 Cls For i 4 To 4 n 5 Abs i Print Tab Abs i
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论