思路：

总共n个学生(对应学号从1到n)；每次抽查m个学生的作业；

输入n和m。得到每次抽查的学号；

而每次抽查的学号分为两部分：一部分是上次抽查过的人中随机30%的学号；另一部分是为抽查过的人中70%的学号；

最后，将每次抽查的人数在matlab界面显示，同时分别输出到D盘下的不同的txt文件中。

注意事项：最多抽查次数为10次；

具体如下：

function homework()

clear;

fid=fopen('d:\01.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\02.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\03.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\04.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\05.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\06.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\07.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\08.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\09.txt','w');%覆盖txt中已有的数据

fclose(fid);

fid=fopen('d:\10.txt','w');%覆盖txt中已有的数据

fclose(fid);

%disp，显示输入提示或者为文字；

disp('--------随机点名程序----------');

n=input('请输入班级总人数：');

m=input('请输入每次抽检的人数：');

disp('根据输入的数据，如果要所有学号抽查完，需要抽检的次数是');

x=floor((n-m)/(m-round(0.3*m)))+2

disp('请按任意键继续')

pause

%总人数为n，代表最大的学号；并将所有学号组成一个数列Z，这个表达式很简练的生成了一个行矩阵；

z=1:n;

%k0为所有学号第一次随机排列后的数列.

k0=randperm(n);

%从数列k0中随机生成m个不重复的学号，作为第一次抽检的学号数列；

s1=z(k0(1:m));

%有了第1次随机生成的数列S1，要从总数列Z中排除掉这个元素并形成一个新的矩阵s10；

%setdiff表示从z和S1中挑选中不同的！因为上面重复了多次，所以和原始人数比较选出不同的可以消去重复。

s10=setdiff(z,s1);%所有学号z中去掉已经抽取的s1学号，得到剩余的未抽取的学号；

%====================

disp('【第1次抽检的学号如下】');

disp('*********************************************************')

s1

disp('*********************************************************')

%====================

disp('---------第1次抽查后剩余的学号如下----------');s10

%下面是将s1输出到D盘1.txt文件中

[row,col]=size(s1);

fid=fopen('d:\01.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s1(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%==第2次抽查过程==================

%表示从s1(即第一次从z中抽出数量)中随机取30%(用round(0.3*m)表示数量)；从s10(剩余学号)中随机取剩下的。

%注意，这里不是直接抽取，而是先生成数列序号的随机数，再用随机数序号表示出矩阵元，比如随机抽取5,8,1序列号，对应的位置的数据就被随机选中了。

k1=randperm(length(s1));k10=randperm(length(s10));

s130=s1(k1(1:round(0.3*m)));

if

length(s10)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s1070=s10(k10(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s2=[s130,s1070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s20=setdiff(s10,s1070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第2次抽检的学号如下】');

disp('*********************************************************')

s2

disp('*********************************************************')

disp('---------第2次抽检后剩余的学号---------------');s20

%下面是将s1输出到D盘2.txt文件中

[row,col]=size(s2);

fid=fopen('d:\02.txt','wt') ;

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s2(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

disp('【【【第2次抽检的学号】】】')

s10;

disp('已完成一次完整抽查。')

%下面是将s1输出到D盘txt文件中

[row,col]=size(s10);

fid=fopen('d:\02.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s10(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

return

end

%==第3次抽查过程==================

k2=randperm(length(s2));k20=randperm(length(s20));

s230=s2(k2(1:round(0.3*m)));

if

length(s20)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s2070=s20(k20(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s3=[s230,s2070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s30=setdiff(s20,s2070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第3次抽检的学号如下】');

disp('*********************************************************')

s3

disp('*********************************************************')

disp('---------第3次抽检后剩余的学号----------------');s30

%下面是将s3输出到D盘3.txt文件中

[row,col]=size(s3);

fid=fopen('d:\03.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s3(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s20);

fid=fopen('d:\03.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s20(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('----------第3次抽检的学号----------------')

s20;

disp('已完成一次完整抽查。')

return

end

%==第4次抽查过程==================

k3=randperm(length(s3));k30=randperm(length(s30));

s330=s2(k3(1:round(0.3*m)));

if

length(s30)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s3070=s30(k30(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s4=[s330,s3070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s40=setdiff(s30,s3070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第4次抽检的学号如下】');

disp('*********************************************************')

s4

disp('*********************************************************')

disp('---------------第4次抽检后剩余的学号-------------');s40

%下面是将s4输出到D盘4.txt文件中

[row,col]=size(s4);

fid=fopen('d:\04.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s4(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s30);

fid=fopen('d:\04.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s30(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第4次抽检的学号】】】')

s30;

disp('已完成一次完整抽查。')

return

end

%==第5次抽查过程==================

k4=randperm(length(s4));k40=randperm(length(s40));

s430=s3(k4(1:round(0.3*m)));

if

length(s40)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s4070=s40(k40(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s5=[s430,s4070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s50=setdiff(s40,s4070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第5次抽检的学号如下】');

disp('*********************************************************')

s5

disp('*********************************************************')

disp('-------------第5次抽检后剩余的学号-------------------');s50

%下面是将s5输出到D盘5.txt文件中

[row,col]=size(s5);

fid=fopen('d:\05.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s5(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s40);

fid=fopen('d:\05.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s40(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第5次抽检的学号】】】')

s40;

disp('已完成一次完整抽查。')

return

end

%==第6次抽查过程==================

k5=randperm(length(s5));k50=randperm(length(s50));

s530=s4(k5(1:round(0.3*m)));

if

length(s50)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s5070=s40(k50(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s6=[s530,s5070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s60=setdiff(s50,s5070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第6次抽检的学号如下】');

disp('*********************************************************')

s6

disp('*********************************************************')

disp('----------------第6次抽检后剩余的学号--------------');s60

%下面是将s1输出到D盘2.txt文件中

[row,col]=size(s6);

fid=fopen('d:\06.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s6(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s50);

fid=fopen('d:\06.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s60(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第6次抽检的学号】】】');s50

disp('已完成一次完整抽查。')

return

end

%==第7次抽查过程==================

k6=randperm(length(s6));k60=randperm(length(s60));

s630=s5(k6(1:round(0.3*m)));

if

length(s60)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s6070=s50(k60(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s7=[s630,s6070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s70=setdiff(s60,s6070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第7次抽检的学号如下】');

disp('*********************************************************')

s7

disp('*********************************************************')

disp('-------------第7次抽检后剩余的学号----------------');s70

%下面是将s1输出到D盘2.txt文件中

[row,col]=size(s7);

fid=fopen('d:\07.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s7(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s60);

fid=fopen('d:\07.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s60(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('-------------第7次抽检的学号---------------');s60

disp('已完成一次完整抽查。')

return

end

%==第8次抽查过程==================

k7=randperm(length(s7));k70=randperm(length(s70));

s730=s6(k7(1:round(0.3*m)));

if

length(s70)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s7070=s60(k70(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s8=[s730,s7070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s80=setdiff(s70,s7070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第8次抽检的学号如下】');

disp('*********************************************************')

s8

disp('*********************************************************')

disp('---------------第8次抽检后剩余的学号---------------');s80

%下面是将s8输出到D盘8.txt文件中

[row,col]=size(s2);

fid=fopen('d:\08.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s8(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s70);

fid=fopen('d:\08.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s70(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第8次抽检的学号】】】');s70

disp('已完成一次完整抽查。')

return

end

%==第9次抽查过程==================

k8=randperm(length(s8));k80=randperm(length(s80));

s830=s7(k8(1:round(0.3*m)));

if

length(s80)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s8070=s70(k80(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s9=[s830,s8070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s90=setdiff(s80,s8070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第9次抽检的学号如下】');

disp('*********************************************************')

s9

disp('*********************************************************')

disp('-------------第9次抽检后剩余的学号----------------');s90

%下面是将s9输出到D盘9.txt文件中

[row,col]=size(s9);

fid=fopen('d:\09.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s9(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s80);

fid=fopen('d:\09.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s80(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第9次抽检的学号】】】');s80

disp('已完成一次完整抽查。')

return

end

%==第10次抽查过程==================

k9=randperm(length(s9));k90=randperm(length(s90));

s930=s8(k9(1:round(0.3*m)));

if

length(s90)>(m-round(0.3*m))%如果剩余的学号s10的个数length(s10)大于70%m

s9070=s80(k90(1:(m-round(0.3*m))));%则从s10中随机抽取m-round(0.3*m)个学号。

s_10=[s930,s9070];%再将这m-round(0.3*m)个学号和从s1中抽取的30%的学号s130合并，得到第2次抽查的学号

s_100=setdiff(s90,s9070);%从第1次所有剩下的学号(S10)中减去S1070(它是从第1次剩余的s10中抽走的学号)；

disp('【第10次抽检的学号如下】');

disp('*********************************************************')

s_10

disp('*********************************************************')

disp('-------------第10次抽检后剩余的学号-----------------');s_100

%下面是将s_10输出到D盘10.txt文件中

[row,col]=size(s_10);

fid=fopen('d:\10.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s_10(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%导出文件完毕

else

%下面是将s1输出到D盘txt文件中

[row,col]=size(s90);

fid=fopen('d:\10.txt','wt');

for i=1:row

for j=1:col

fprintf(fid,'.0f\n',s90(i,j));

end

fprintf(fid,'\n');

end

fclose(fid);

%上面的txt文件导出结束

disp('【【【第10次抽检的学号】】】');s90

disp('已完成一次完整抽查。')

return

end