[说明] 本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件E: \dataout.txt；素数的个数显示在窗体Form1上。 [Visual Basic 代码] Private Sub Command1_ Click ( ) Dim count as integer, flag as Boolean Dim t1 as Integer, t2 as Integer (1) Count=0 For t1=3 to 100 Flag=Tree For t2=2 to Int( Sqr ( t1 ) )If (2) Then flag=False Next t2 (3) count= (4) write #1, t1 End if Next t1 (5) Close #1End Sub

如果通过监盘发现被审计单位存货账面记录与经监盘确认的存货发生重大差异，注册会计师采用的程序可能无效的是( )。

A．对存货进行分析程序，确认差异的真实性

B．提请被审计单位对已确认的差异进行调整

C．进一步执行审计程序，查明差异原因

D．如果被审计单位不采纳注册会计师的调整意见，应根据其重要程序确定是否在审计报告中予以反映