判断一个整数n(>=3)是否为素数;提示:将一个不小于3的整数n分别除以2到n的平方根之间的所有整数,如果全部除不尽,那么n为素数(质数),否则本为非素数(合数)
编写程序如下:
Sub Form_Click( )
Dim n As Interger
n=InputBox(“请输入一个正整数(n>=3):”)
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If ① then Swit =1
Else i=i+1
Wend
If Swit="0" Then Print n;”是一个素数”
Else Print n;”不是一个素数”
②
End Sub
(1) 函数Sqr(n)的功能是___________________
(2) 语句Swit="1" 在这段程序中执行___________次
(3) 可用于接受用户输入文本,又可用于显示文本的控件是_____________
(4) VB中保存工程文件的文件扩展名为__________________
(5) 想在程序后面加上注释,应用到_____________符号
(6) 变量K的数据类型定义为_________________(integer或string)
(7) 在这段程序中,所用到的循环语句为__________________
(8) 认真阅读程序,在 ①序号出应补充的语句是________________
(9) Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
(10)代码调试后,发现在 ② 处少语句 ,应填写___________________