摘要： 在进行耐火砖检验时，按照国家的现定，应从100块砖（即为100个样本）中首先随机抽取21个样本进行一般性检验，并以这对个样本为基数，随机抽取3个样本作抗折试验，然后以对个样本中剩余的18个样本为基数，随机抽取6个样本进行其它项目的试验。本程序按照国家规定的抽样方法，一次性的确定这几起样本的编号，对正确取样，公正检验起到了良好的作用。该程序可在一般计算机上运行，亦可在PC－1500袖珍计算机上运行。程序清单如下：10PANDOMIZE20PRINT“FOR21：”30DIMS（21）40FORI＝1TO2150A＝INT（RND）（1）*（101－1）＋1）60FORK＝1TOI70IFK＝1THEN1…