邮箱?
源文件?

你把源代码贴上来看看.

 ??
Q$ ?  `            t V [ o y e j                     ~                             R    
i   
j  
a   
m   
n   
k   
h   
l   k1  i1   
x   mext   setp   
p   temp                                                                                                                                                                                                                                                                   ~  s
   m
 n=   j        }
@   j   j d
  `   }
T   j       V d j V     [ 这是用记事本打开后的效果!!!  如果不介意的话，你可以写个邮箱地址给我，我把源文件发给你！！谢谢了！！！！

把源文件 直接粘贴到 邮件正文中发给自己，要用时 打开邮件 再复制下来 就好啦

可是我已经采取了附加文件的方式了，导致现在不能打开，还有没有办法打开呀？谢谢！

发给我看看吧
moz@21cn.net
mozoho@126.com

先谢谢了， 已经发过去了！！
[fly]没有最好，只有更好！！[/fly]

我已经把文件回复给你了,
用 QBASIC.EXE 应该是打不开的(这应该是QBASIC 1.0 版本吧?)
用 4.5 或 7.1 应该可以打开,(应该是 QB.EXE 或者是 QBX.EXE )
你原来的文件是用了二进制方式保存的,
并不是文本方式,所以用记事本打开是看不清楚的.

我打开你的文件后
另存为文本方式后发回给你了
也贴到这里来了:

CLS
INPUT "n=", n
OPTION BASE 1
DIM a(n, n + 1)
DIM x(n)
FOR i = 1 TO n
FOR j = 1 TO n + 1
PRINT "a("; i; ","; j; ")"
INPUT a(i, j)
NEXT j
NEXT i
FOR k = 1 TO n - 1
   i1 = k
   FOR i = k + 1 TO n
      IF ABS(a(i, k)) > ABS(a(i1, k)) THEN
         i1 = i
        END IF
     NEXT i
   PRINT "aaa", i1
   IF m <> k THEN
   FOR j = k TO n + 1
       SWAP a(k, j), a(i1, j)
   NEXT j
   END IF
   FOR i = k + 1 TO n
   FOR j = 2 TO n + 1
       l = a(i, k) / a(k, k)
       a(i, j) = a(i, j) - l * a(k, j)
   NEXT j
NEXT i
NEXT k
   IF a(n, n) = 0 THEN
   PRINT "aaa"
   END
   ELSE
   x(n) = a(n, n + 1) / a(n, n)
   FOR i = n - 1 TO 1 STEP -1
       FOR j = i + 1 TO n
           p = 0
           p = p + a(i, j) * x(j)
       NEXT j
   x(i) = (a(i, n + 1) - p) / a(i, i)
   PRINT x(i)
   NEXT i
   END IF

太感谢了！已后尽量用记事本COPY一下，或用更高的版本编辑了！

还想请上面的高手帮一个忙，能不能把QBX.EXE和QBASIC.EXE发给我一下，谢谢了！

在你这一张贴的头顶上有介绍下载的链接.