这是我学VB看到的一个小程序:判断一个大于或等于3的正整数是不是一个素数。
答案:4 悬赏:20 手机版
解决时间 2021-04-07 20:54
- 提问者网友:几叶到寒
- 2021-04-07 11:22
这是我学VB看到的一个小程序:判断一个大于或等于3的正整数是不是一个素数。
最佳答案
- 五星知识达人网友:撞了怀
- 2021-04-07 11:47
sub form click_()
dim n as integer
n =inputbox("请输入数")
k=int(spr(n))
i=2
swit=0‘令swit=0
接下来的意思是 N除以小于N的输 如果能被整除SWIT就等于1SWIT=1 就不是素数
while i <=k and swit=0
if n mod i =0 then
swit=1
else
i=i+1
end if
wend追答
追问:什么情况下swit=0这个程序也没有交代,他是不是一个函数?
追答:交代 了啊一运行这个程序 SWIT就等于0 之后只要有一次出现1就表示不是素数
追问:都怪我笨,还是不明白,上面那个程序我的逻辑感觉他不对。
swit=0是什么意思程序没交代,那电脑怎么识别他是什么意思?
追答:这段话中SWIT=0表示是素数SWIT=1表示不是素数
比如说走岔路不停的往左走 就是正确的路 你就是素数但是你有一次往右走了 你就走错路了 SWIT=1 表示你不是素数所以说只要有一次出现SWIT=1就表明不是素数
还比如说 如果N被I整除了我就给你一块钱等N除到N-1的时候如果你手里有钱了N就不是素数
追问:程序后面还有一段,
if swit=0 then
print n ;"是一个素数"。这样就说明了swit=0的意义了。第四位回答者的回答让我看了看整个程序,然后就明白了。
谢谢大家了!
dim n as integer
n =inputbox("请输入数")
k=int(spr(n))
i=2
swit=0‘令swit=0
接下来的意思是 N除以小于N的输 如果能被整除SWIT就等于1SWIT=1 就不是素数
while i <=k and swit=0
if n mod i =0 then
swit=1
else
i=i+1
end if
wend追答
追问:什么情况下swit=0这个程序也没有交代,他是不是一个函数?
追答:交代 了啊一运行这个程序 SWIT就等于0 之后只要有一次出现1就表示不是素数
追问:都怪我笨,还是不明白,上面那个程序我的逻辑感觉他不对。
swit=0是什么意思程序没交代,那电脑怎么识别他是什么意思?
追答:这段话中SWIT=0表示是素数SWIT=1表示不是素数
比如说走岔路不停的往左走 就是正确的路 你就是素数但是你有一次往右走了 你就走错路了 SWIT=1 表示你不是素数所以说只要有一次出现SWIT=1就表明不是素数
还比如说 如果N被I整除了我就给你一块钱等N除到N-1的时候如果你手里有钱了N就不是素数
追问:程序后面还有一段,
if swit=0 then
print n ;"是一个素数"。这样就说明了swit=0的意义了。第四位回答者的回答让我看了看整个程序,然后就明白了。
谢谢大家了!
全部回答
- 1楼网友:酒安江南
- 2021-04-07 15:16
开始已经定义了swit=0,如果不满足条件就还是0
- 2楼网友:洒脱疯子
- 2021-04-07 14:30
默认为零。
你看 当整除后swit=1也就退出循环、当从要测试的数的平方根开始除以原数。除到2了也测试完了。直到测试到2也没有被整除过说明这个数为素数。
你看 当整除后swit=1也就退出循环、当从要测试的数的平方根开始除以原数。除到2了也测试完了。直到测试到2也没有被整除过说明这个数为素数。
- 3楼网友:荒野風
- 2021-04-07 13:03
swit是用来标记n是否是素数的。
第6行,swit初始值是0。
在7~13行的while循环中,如果条件 n mod i =0 一直不满足,那么swit一直是0;如果条件 n mod i =0 一旦满足,swit=1且退出循环。
最后根据swit的值判断结果,是0为非素数,1为素数。
追问:标志变量是不是有他的一定用法?
我不明白的是,程序没有交代swit=0的意义,程序怎么判断?
第6行,swit初始值是0。
在7~13行的while循环中,如果条件 n mod i =0 一直不满足,那么swit一直是0;如果条件 n mod i =0 一旦满足,swit=1且退出循环。
最后根据swit的值判断结果,是0为非素数,1为素数。
追问:标志变量是不是有他的一定用法?
我不明白的是,程序没有交代swit=0的意义,程序怎么判断?
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯