vb编程题 输出3到100之间所有的质数 (质数:只能被1和它本身整除的数)
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 14:06:57
vb编程题 输出3到100之间所有的质数 (质数:只能被1和它本身整除的数)
Private Sub Command1_Click()
For i = 3 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Int(Sqr(i)) Then s = s & i & " "
Next
MsgBox s
End Sub
再问: 给解释下好不好,有些看不懂
再答: mod 函数作用是求余数
判断i是否为质素,就是判断从2开始到i,除i自身外有没有数能和i整除 余数为0 就是能整除
为了减少不必要的判断 循环到 i 平方根 就可以了 再上面就根本不会有满足整除的数
如果求余数为0 则退出循环 此时的j变量值 一定是小于或等于 循环的终止值 sqr(i)
如果在j循环里 找不到 If i Mod j = 0 Then Exit For 满足这个条件的数 当退出j循环时
j值等于 srq(i)+1 会大于 srq(i) 故判断j 值大小 就知道 这个i 是否为质素
For i = 3 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Int(Sqr(i)) Then s = s & i & " "
Next
MsgBox s
End Sub
再问: 给解释下好不好,有些看不懂
再答: mod 函数作用是求余数
判断i是否为质素,就是判断从2开始到i,除i自身外有没有数能和i整除 余数为0 就是能整除
为了减少不必要的判断 循环到 i 平方根 就可以了 再上面就根本不会有满足整除的数
如果求余数为0 则退出循环 此时的j变量值 一定是小于或等于 循环的终止值 sqr(i)
如果在j循环里 找不到 If i Mod j = 0 Then Exit For 满足这个条件的数 当退出j循环时
j值等于 srq(i)+1 会大于 srq(i) 故判断j 值大小 就知道 这个i 是否为质素
vb编程题 输出3到100之间所有的质数 (质数:只能被1和它本身整除的数)
C语言.质数是只能被一和它本身整除的数.写100-200所有质数的编程~~
VB题:编程输出1-100之间的所有可能被3整除的数
用C#输出1到100的所有素数(只能被1和自身整除的数是素数或质数)
求VB编程 :输出100~200间所有不能被3整除的数并求和.
只能被1和它本身整除的自然数一定是质数,正确吗
vb 编程 计算100~300之间所有能被3和7整除的数之和,求代码
输入一个自然数,判断是否为质数(即能被1和它本身整除的数)
编程输出1-1000之间所有个位是3但不能被3整除的数
求出1到100的自然数系列中能被3整除的所有数之和,并在文本框中输出结果,请编程 (要求用VB程序写)
编程输出1~100之间能被9整除余2的所有数及它们的和
VB编程:计算从1到1000中的能被1整除的数,并输出