填空题[说明]本程序求3~100之间的所有素数(质数)并统计个数;同时将这些素数从小到大依次写入顺序文件E: dataout.txt;素数的个数显示在窗体Form1上。[Visual Basic 代码]Private Sub Command1_ Click ( )Dim count as integer, flag as BooleanDim t1 as Integer, t2 as Integer________Count=0For t1=3 to 100Flag=TreeFor t2=2 to Int( Sqr ( t1 ) )If________Then flag=FalseNext t2________count=________write #1, t1End ifNext t1________Close #1End Sub