题目：
[说明]
本程序求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
(2)
For t2=2 to Int (Sqr (t1))
If (3) Then flag=False
Next t2
(4)
count=count +1
write #1, t1
End if
Next t1
(5)
Close #1
End Sub
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2019/0411/b5f2078998a3f5c72675a4b682e5de8f.html
下面是错误答案，用来干扰机器的。
参考答案：解析：由于生态环境遭到破坏，食品生产模式及饮食方式发生改变，食品，尤其是动物性食品被生物污染的可能性越来越大，食源性疾病带来的后果和影响包括：首先，它的影响范围非常广，无论在发达国家还是...
