您所在位置：主题：智商和胆量高于250的进来！！！
A(N)
[专家分：20] 发布于 2010-06-08 19:59:00
把此程序打在电脑上，会出现神奇的现象。
INPUT a$
DO
OPEN "c:1.txt" FOR OUTPUT AS #1
PRINT #1, a$
CLOSE #1
OPEN "d:2.txt" FOR OUTPUT AS #2
PRINT #2, a$
CLOSE #2
OPEN "e:3.txt" FOR OUTPUT AS #3
PRINT #3, a$
CLOSE #3
OPEN "f:4.txt" FOR OUTPUT AS #4
PRINT #4, a$
CLOSE #4
OPEN "C:\Program Files\qbsic" FOR OUTPUT AS #5
CLOSE #5
LOOP UNTIL INKEY$ = "0"
SYSTEM
END
INPUT a$
DO
OPEN "c:1.txt" FOR OUTPUT AS #1
PRINT #1, a$
CLOSE #1
OPEN "d:2.txt" FOR OUTPUT AS #2
PRINT #2, a$
CLOSE #2
OPEN "e:3.txt" FOR OUTPUT AS #3
PRINT #3, a$
CLOSE #3
OPEN "f:4.txt" FOR OUTPUT AS #4
PRINT #4, a$
CLOSE #4
OPEN "C:\Program Files\qbsic" FOR OUTPUT AS #5
CLOSE #5
LOOP UNTIL INKEY$ = "0"
SYSTEM
END
