扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
VB中求素数的公式
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
求素数,没有公式,只能自己编写过程.例：判断x是不是素数.for&i=2&to&x&if&x%i=0&then&&break&end&ifnext&if&x=i&then&printf&x&&&&not&素数&else&print&x&&&&is&素数&end&if
如果公式改成
if x mod 2 and x mod 3 then
x 不是素数
这样可以吗？
明天考试我想弄明白点
不好意思，刚才打错一个符号，应该是x mod i，你写的只能判断2，3二个因子。所以，不行。
为您推荐：
扫描下载二维码扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
VB写判断素数的很简单问题For i= 2 To Int(Sqr(n))If n Mod i = 0 Then Exit ForNext iIf i> Int(Sqr(n)) ThenP " 是素数"ElseP " 不是素数"End If 为什么 i 是从2循环到Int(Sqr(n))如果输入了N是素数,那下面的那个 i 为什么又会大于Int(Sqr(n))能用几个事例说明一下这个程序的工作过程?
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
不是这么理解的
For i= 2 To Int(Sqr(n))If n Mod i = 0 Then Exit ForNext i这个FOR循环是用来判断N是不是都可以整除前面的i=2到N-1之间的每个数
如果都可以
那么当这个FOR循环结束时
i是等于N+1的
所以后面根据if语句判断 N是素数如果其中有一个N mod i不等于0时
那么就跳出FOR循环了
所以这个时候i肯定是在i=2到N-1之间的其中一个数
然后根据后面的IF语句判断
为您推荐：
扫描下载二维码用vb编写程序 输入一个正整数n,输出1~n中所有的素数_百度知道
用vb编写程序 输入一个正整数n,输出1~n中所有的素数
我有更好的答案
在窗体上放一个按钮，然后代码如下：Private Sub Command1_Click()Dim i, j, k As IntegerDim p As BooleanDim a As Integerk = 1a = InputBox(&请输入n值：&)For i = 2 To ap = False
For j = 2 To a
If j &= i Then Exit For
If i Mod j = 0 Then p = True
If p = False Then
If k Mod 5 = 0 Then Print
End IfNext iPrintEnd Sub
采纳率：57%
来自团队：
为您推荐：
其他类似问题
素数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。求用VB编一个分解质因数的程序_百度知道
求用VB编一个分解质因数的程序
我有更好的答案
Private Sub Command1_Click()Dim M As IntegerM = Val(InputBox(&输入一个整数:&))
Print M & &=&;
Do While M && 0
For I = 2 To M
If M Mod I = 0 ThenPrint I;M = M \ IExit ForEnd IfNextIf M = 1 Then Exit DoPrint &*&;LoopEnd Sub
从百度百科上抄袭来的。呵呵。另外，上面的程序也可以从2到sqrt(M)来除。没必要到M，因为大于sqrt(M)的，一定有一个小于sqrt(M)的对应。可以省掉一定的运算量。
每个合数都可以写成几个质数相乘的形式。其中每个质数都是这个合数的因数，叫做这个合数的分解质因数。 分解质因数只针对合数
Dim x, a, b, k As String Private Sub Command1_Click() a = Val(Text1.Text) x = 2 If a &= 1 Or a & Int(a) Then If a = 1 Then Text2.Text = &它既不是质数，也不是合数& Else MsgBox &请您先输入数据&, vbOKOnly + vbInformation, &友情提示& End If Else Do While a / 2 = Int(a / 2) And a &= 4 If b = 0 Then Text2.Text = Text2.Text & &2& b = 1 Else Text2.Text = Text2.Text & &*2& End If a = a / 2 k = a Loop Do While a & 1 For x = 3 To Sqr(a) Step 2 Do While a / x = Int(a / x) And a &= x * x If b = 0 Then Text2.Text = Text2.Text & x b = 1 Else Text2.Text = Text2.Text & &*& & x End If a = a / x Loop Next k = a a = 1 Loop If b = 1 Then Text2.Text = Text2.Text & &*& & k Else Text2.Text = &这是一个质数& End If End If End Sub Private Sub Command2_Click() Text1.Text = && Text2.Text = && End Sub
采纳率：56%
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。学无止境-开拓创新-ip学习网-ip学习-ip博客,每天学一些程序员开发知识,日积月累,你会成为大牛的!
编程学习-学无止境 http://www.ipvb.cn
listPython内置的一种数据类型是列表：list。list是一种有序的集合，可以随时添加和删除其中的元素。比如，列出班里所有同学的名字，就可以用一个list表示：&&&&classmates&=&['Michael',&...
Python学习
dictPython内置了字典：dict的支持，dict全称dictionary，在其他语言中也称为map，使用键-值（key-value）存储，具有极快的查找速度。举个例子，假设要根据同学的名字查找对应的成绩，如果用list实现，需要两个list：names&=&['M...
Python学习
&版权保护中心，版权公告查询&http://www.ccopyright.com.cn/cpcc/notice/soft/softRegisterNotice.jsp广州市版权资助政策&http://www.gzipo.gov.cn/web/html/index/c...
科技和博客
&Laravel&读作：['laer?vel]Laravel是一套简洁、优雅的PHPWeb开发框架(PHPWebFramework)。它可以让你从面条一样杂乱的代码中解脱出来；它可以帮你构建一个完美的网络APP，而且每行代码都可以简洁、富于表达力。&1、Bu...
&安装了Windows10系统后，如果装Apache是启动不了的，遇到这个Apache启动不了的时候，首先是查看80端口是不是被占用。运行netstat-aon|findstr:80，发现pid是4的进程占用着80端口，这还是一个系统进程，kill不掉。所以只能另想办法：1、打开...
Windows运维
&mysql官方提供的mysqlconnector驱动信息包含http://www.mysql.com/products/connector/MySQLConnectorsMySQLprovidesstandards-baseddriversforJDBC,ODBC,...
&#!/usr/bin/python#-*-coding:UTF-8-*-importdatetimeif__name__=='__main__':&&&#输出今日日期，格式为dd/mm/yyyy。更多选项可以查看str...
Python学习
&#!/usr/bin/python#-*-coding:UTF-8-*-score=int(input('inputscore:\n'))ifscore&=90:&&&grade='A'elif...
Python学习
&#!/usr/bin/python#-*-coding:UTF-8-*-fromsysimportstdoutn=int(input(&inputnumber:\n&))print(&n=%d&%n)foriin...
Python学习
1847次阅读
&#!/usr/bin/python#-*-coding:UTF-8-*-forninrange(100,1000):&&&i=int(n/100)&&&j=int(n/10%10)&&...
Python学习
1606次阅读
&#!/usr/bin/python#-*-coding:UTF-8-*-h=0leap=1frommathimportsqrtfromsysimportstdoutforminrange(101,201):&&&k=i...
Python学习
&#!/usr/bin/python#-*-coding:UTF-8-*-f1=1f2=1foriinrange(1,51):&&&print('%d个月%-12d%50d'%(i,f1,f2))&&...
Python学习
&#!/usr/bin/python#-*-coding:UTF-8-*-importtimeprint(time.strftime('%Y-%m-%d%H:%M:%S',time.localtime(time.time())))#暂停一秒time.slee...
Python学习
Sys模块函数之多，我只能选取自己认为比较实用的一些函数列在此处。借马云找员工的说法,”找最合适的而不是最天才的”，这句话，我个人觉得在很多方面都能适应，学习也不在话下。Sys模块功能的确很多，但我们应该将重点放在那些功能才是最适合我们的，为此，我列的这些函数，就是我认为比较适合我以后开发的函数。(...
Python学习
&#!/usr/bin/python#-*-coding:UTF-8-*-importtimemyD={1:'a',2:'b'}forkey,valueindict.items(myD):&print(key,val...
Python学习
<a href="https://www.ipvb.cn/" title="<<<
一 二 三 四 五 六 日
12345678910111213141516171819202122232425262728293031
您好,欢迎到访网站!&&
&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└&└}