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

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

admin2012-12-10  65
问题 阅读以下说明及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://www.kaotiyun.com/show/Z6jZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)