字符图形设计源码帮助.doc

字符图形设计代码模板 （写在窗体的单击事件里 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); For j = 1 To 2 * n - 1 c = Chr(96 + n) Print c; Next j Print Next i