《字符图形设计源码帮助.doc》由会员分享,可在线阅读,更多相关《字符图形设计源码帮助.doc(5页珍藏版)》请在金锄头文库上搜索。
1、字符图形设计代码模板(写在窗体的单击事件里 form_click())Cls 清屏For i=初值1 To 终值1 控制图形的行数 n=列数 图形每行的列数 Print Tab(首字符位置);每行起始位置 For j=初值2 To 终值2控制图形每行的列数 c=要打印的内容 每列打印的内容赋值设置 Print c; Print Space(字符间距);每个字符的间距的 Next j PrintNext i注:1、是注释语句;2、外循环; 3、内循环矩形图形代码:ClsFor i = 1 To 4 n = 7 Print Tab(1); For j = 1 To 7 c = * Print c;
2、 Next j PrintNext i半三角形代码:ClsFor i = 1 To 6 n = 6 Print Tab(1); For j = 1 To i c = * Print c; Print Space(0); Next j PrintNext i正三角代码:ClsFor i = -4 To 0 n = Abs(i) Print Tab(5 - Abs(i); For j = 1 To 2 * n + 1 c = * Print c; Next j PrintNext i倒三角代码:ClsFor i = 0 To 4 n = 5 - i Print Tab(i + 1); For j
3、= 1 To 2 * n - 1 c = * Print c; Next j PrintNext i菱形 代码:ClsFor 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 PrintNext i漏斗形 代码:ClsFor i = -4 To 4 n = Abs(i) Print Tab(5 - Abs(i); For j = 1 To 2 * n + 1 c = * Print c; Next j PrintNext i上下对称数字 代码ClsFor
4、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 PrintNext i左右对称数字图形 代码:ClsFor 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 PrintNext i 上下对称的字母图形 代码:ClsFor i = -4 To 4 n = 5 - Abs(i) Print Tab(Abs(i) + 1); For j = 1 To 2 * n - 1 c = Chr(96 + n) Print c; Next j PrintNext i