填空题
【程序说明】本程序求3～100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:/dataout.txt；素数的个数显示在窗体Form1上。
Private Sub Command1_Click 1
Dim coun As Integer, flag As Boolean
Dim t1 As Integer, t2 As Integer
2
coun = 0
For t1 = 3 To 100
flag = True
For t2 = 2 To Int(Sqr(t1))
If 3 then flag = False
Next t2
4
coun = coun+1
Write #1, t1
End If
Next t1
5
Close #1
End Sub
1、
【正确答案】
1、Open "e:/dataout.txt" For Output As #1 t1 Mod t2 = 0 If flag Then Print coun