用QBASIC语言编写一程序

Question

已知有一文件1.txt,有5条记录，每条记录有6个数据，
03 05 09 13 18 23
04 06 09 13 15 19
08 15 19 20 23 24
05 06 19 12 15 18
03 09 12 18 21 30
要求删除不符合条件的记录
条件1：每条记录必须含有01，07 ，12，18，23，29中的一个或者两个。
条件2 02,,03,04,05中的一个或两个。
或者用VF也可以

Answer 1

你是彩票爱好者吧，一定要用　QBASIC　？？这东西太古老啦，好多函数都忘记了

如果你要其他语言支持的话，都好做的
比如C,Pascal,VB等..........

给你个思路吧。
用Readln读取每行
然后吧每行的数字导入数组，用判断空格的方式判断每个自然数据
然后比对数组然后判断数组中的数字 (考虑用2唯数组)

for i:= 1 to 6 do
begin
if array[1][i] = 01 then
begin
Inc(ai[1]); //反正一个对上就加1,
end;
..........
end;

这样的思路明白吧，只要最后看　ai[x]>n　//array[x]的数组就是符合你要求的数组