问题
填空题
[说明] 本程序求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
答案
参考答案：(1) open“ e:\dataout.txt”For Output as#1 (2) Flag=True
解析：(3) t1 mod t2=0 (4) If t2＞Int (sqr (t1))Then (5) Form1. Print "素数个数"；count