用QBASIC编制“霓虹灯广告牌” 陈炜先 1997-01-01 　　该程序用ＡＳＣＩＩ码中的光条符号组成英语单词”ＷＥＬＣＯＭＥ”（欢迎），然后从左到右，从右到左，从上到下，轮换方向使ＷＥＬＣＯＭＥ一词显示和熄灭，１５种颜色也轮流变换，就像城市建筑物上的霓虹灯广告牌一样，令人赏心悦目。 　　编程语言和运行环境：ＱＢＡＳＩＣ 　　５　ｃｌｓ：ｌｏｃａｔｅ　１０，２５：ｐｒｉｎｔ　”霓虹灯广告牌” 　　１０　ｓｃｒｅｅｎ　８ 　　２０　ｆｏｒ　ｉ＝１　ｔｏ　１５ 　　３０　ｆｏｒ　ｍ＝１　ｔｏ　２ 　　４０　ｉｆ　ｍ＝２　ｔｈｅｎ　ａ＄＝”　”：ｇｏｔｏ　５５ 　　４５　ａ＄＝ｃｈｒ＄（１７７） 　　５０　ｃｏｌｏｒ　ｉ，０ 　　５５　ｉｆ　ｉ　ｍｏｄ　３＝０　ｔｈｅｎ　ｘ１＝７１：ｘ２＝１０：ｋ＝－１：ｇｏｔｏ　７０ 　　６０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　８０ 　　６５　ｘ１＝１０：ｘ２＝７１：ｋ＝１ 　　７０　ｆｏｒ　ｘ＝ｘ１　ｔｏ　ｘ２　ｓｔｅｐ　ｋ 　　７５　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　９０ 　　８０　ｆｏｒ　ｙ＝５　ｔｏ　１７ 　　８５　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　６５ 　　９０　ｉｆ　ｘ＝１２　ｏｒ　ｘ＝１３　ｏｒ　ｘ＝１６　ｏｒ　ｘ＝１７　ｔｈｅｎ　ｉｆ　ｙ＜１２　ｏｒ　ｙ＞１５　ｔｈｅｎ　４００ 　　１００　ｉｆ　ｘ＝１４　ｏｒ　ｘ＝１５　ｔｈｅｎ　ｉｆ　ｙ＜１０　ｏｒ　ｙ＞１３　ｔｈｅｎ　４００ 　　１１０　ｉｆ　ｘ＝２０　ｏｒ　ｘ＝２１　ｏｒ　ｘ＝２８　ｏｒ　ｘ＝２９　ｏｒ　ｘ＝３６　ｏｒ　ｘ＝３７　ｔｈｅｎ　４００ 　　１２０　ｉｆ　ｘ＝４４　ｏｒ　ｘ＝４５　ｏｒ　ｘ＝５２　ｏｒ　ｘ＝５３　ｏｒ　ｘ＝６４　ｏｒ　ｘ＝６５　ｔｈｅｎ　４００ 　　１３０　ｉｆ　ｘ＞２３　ａｎｄ　ｘ＜２８　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１０　ｔｈｅｎ　４００ 　　１３５　ｉｆ　ｘ＞２３　ａｎｄ　ｘ＜２８　ｔｈｅｎ　ｉｆ　ｙ＞１１　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００ 　　１４０　ｉｆ　ｘ＞３１　ａｎｄ　ｘ＜３６　ｔｈｅｎ　ｉｆ　ｙ＜１６　ｔｈｅｎ　４００ 　　１５０　ｉｆ　ｘ＝４０　ｏｒ　ｘ＝４１　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００ 　　１６０　ｉｆ　ｘ＝４２　ｏｒ　ｘ＝４３　ｔｈｅｎ　ｉｆ　ｙ＞８　ａｎｄ　ｙ＜１２　ｔｈｅｎ　４００ 　　１７０　ｉｆ　ｘ＝４８　ｏｒ　ｘ＝４９　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００ 　　１８０　ｉｆ　ｘ＝５６　ｏｒ　ｘ＝５７　ｏｒ　ｘ＝６０　ｏｒ　ｘ＝６１　ｔｈｅｎ　ｉｆ　ｙ＜７　ｏｒ　ｙ＞１０　ｔｈｅｎ　４００ 　　１８５　ｉｆ　ｘ＝５８　ｏｒ　ｘ＝５９　ｔｈｅｎ　ｉｆ　ｙ＜９　ｏｒ　ｙ＞１２　ｔｈｅｎ　４００ 　　１９０　ｉｆ　ｘ＞６７　ａｎｄ　ｘ＜７２　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１０　ｏｒ　ｙ＞１１　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００ 　　３００　ｃｏｌｏｒ　ｉ，０ 　　３１０　ｌｏｃａｔｅ　ｙ，ｘ：ｐｒｉｎｔ　ａ＄ 　　４００　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４１５ 　　４０５　ｎｅｘｔ　ｙ 　　４１０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４２５ 　　４１５　ｎｅｘｔ　ｘ 　　４２０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４０５ 　　４２５　ｆｏｒ　ｔ＝１　ｔｏ　２００００：ｎｅｘｔ　ｔ 　　４３０　ｎｅｘｔ　ｍ，ｉ 　　４４０　ｅｎｄ