高技术力？如何把别人的电脑变臭！第一部分-程序撰写

所需设备：电脑、脱粪对象、被脱粪对象

软件：dosbox，quick basic

使用的便乘（划掉）编程语言：Quick Basic

先把代码发出来：

OPEN "114514.INM" FOR OUTPUT AS #1
CLS
N = 1919810
PRINT "Writing file...."
FOR E = 1 TO N
PRINT #1, "114514 1919810 HOMO INM"; E
LOCATE 19, 1
PRINT E; "/"; N
NEXT E
PRINT "Wrinting a file terminator..."
PRINT #1, CHR$(26)
PRINT "Closing file..."
CLOSE #1
PRINT "Complete!"
END

看不懂？不要着急，我会慢慢的给诸位Homo讲解。

OPEN “114514.INM” FOR OUTPUT AS #1

这段代码的意思是打开（如果没有则新建）一个叫做114514.INM的文件，为写入模式，挂载到#1编号。

CLS：清屏

N = 1919810：设定变量N的值为1919810

Print：这里把程序里所有print都讲一遍

PRINT “Writing file….” ：将引号内内容显示到屏幕上

PRINT “Wrinting a file terminator…”：便乘上面

PRINT “Closing file…”:便乘上面

PRINT “Complete!”:sodayo

PRINT E; “/”; N:这个有所不同，E和N都是变量名，过将他们放在引号外并用“;”分隔的话是会显示这个变量名代表的变量。

PRINT #1, “114514 1919810 HOMO INM”; E：这个是将逗号右侧的内容写入到#1所挂载的文件。

PRINT #1, CHR$(26)：CHR$()是个函数，作用是将括号内的数字转换成ASCII（美国信息交换标准代码）字符26是“文件结束符”。

FOR E = 1 TO N

…

NEXT E

将省略号中的内容从1重复执行N次，E为当前次数。

LOCATE 19, 1：将光标移动到 （19，1）（坐标系）。

CLOSE #1 ：关闭挂载到#1的文件。

END：结束程序。

运行结果： 运行它你会得到一个叫做114514.INM的文件，用记事本打开你会发现有1919810行文字。