主题：QB如何变成数据文件？
＆佑慧妹妹＆
[专家分：660] 发布于 2007-05-13 08:59:00
五、编程（8分）
任意一个自然数，我们可以将其平均截取成三个自然数。例如自然数135768，可以截取成13，57，68三个自然数。如果某自然数不能平均截取（位数不能被三整除），可将该自然数高位补零截取。现编程从键盘上输入一个自然数N（N的位数< 12)，计算机截取后第一个数加上第三个数减第二个数的结果。[color=FF0000]创建lyx.dat数据文件，并将求出的结果写入其中。[/color]
回复列表 （共5个回复）
沙发
＆佑慧妹妹＆ [专家分：660] 发布于 2007-05-13 09:00:00
请各位帮帮我，我下午考试
板凳
Matodied [专家分：7560] 发布于 2007-05-13 09:11:00
我下午也考试,希望能见到你.
CLS
INPUT n$
l = LEN(n$)
IF l MOD 3 <> 0 THEN
IF l MOD 3 = 1 THEN n$ = "00" + n$ ELSE n$ = "0" + n$
END IF
l = LEN(n$): k = l / 3
a1 = VAL(LEFT$(n$, k))
a2 = VAL(MID$(n$, k + 1, k))
a3 = VAL(RIGHT$(n$, k))
s = a1 + a3 - a2: PRINT s
OPEN "lyx.dat" FOR OUTPUT AS #1
WRITE #1, s
CLOSE
END
运行后,输入数据,在当前目录就会出现"lyx.dat"文件.
3 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-05-13 09:40:00
dat文件可以用文本格式打开吗？用什么方式打开比较好？
4 楼
Matodied [专家分：7560] 发布于 2007-05-13 09:50:00
当然可以,方法如下:
点击DAT文件,出来一个"打开方式"对话框,在"程序"选项中选择"记事本",之后就可以直接用记事本方式打开这个文件了.
也可以在QB里打开,在建立了这个文件以后,运行QB,输入下列语句:
OPEN "lyx.dat" FOR INPUT AS #1
INPUT #1,s
CLOSE
PRINT s
END
运行后就可以看到这个文件里的内容.
5 楼
moz [专家分：37620] 发布于 2007-05-13 11:47:00
记得很多教材对文件操作都是忽略带过就算了.
其实我觉得文件读写才是最实用的一项.
我来回复
您所在位置：