阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序求3~100之间的所有素数(质数)并统计个数;同时将这些素数从小到大依次写入顺序文件 E:\dataout.txt;素数的个数显示在窗体Form1

admin2012-12-10  31

问题 阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在对应栏内。
[说明]
   本程序求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

解析
转载请注明原文地址:https://kaotiyun.com/show/Z6jZ777K
0

最新回复(0)