vb求一个数vb判断是否为素数是素数的函数

来源：蜘蛛抓取(WebSpider) 时间：2016-04-19 05:35 标签： vb判断素数
&&&&判断一个数是否是素数（VB制作）
&判断一个数是否是素数（VB制作）
当你输入一个数据时，系统会自动判断它是否是一个素数，很好用的，实用，简单。欢迎下载，并且是免费的。
若举报审核通过，可奖励20下载分
被举报人：
wenhao_tom
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：5&&&可兑换 10 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
判断一个数是否是素数（VB制作）
所需积分：0
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
判断一个数是否是素数（VB制作）
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员判断一个数是否为素数的vb程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
判断一个数是否为素数的vb程序
上传于||文档简介
&&判​断​一​个​数​是​否​为​素​数​的​v​b​程​序
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
你可能喜欢关于vb的简单问题，输入一个数，求他是不是素数，如果是就输出yes不是输出no_百度知道
关于vb的简单问题，输入一个数，求他是不是素数，如果是就输出yes不是输出no
，如果是就输出yes不是输出&quot输入一个数;))If n &lt，但是总是似乎结束不了fo人语句;For i = 2 To n - 1 For j = i + 1 To n - 1 If i * j = n Then Print &quot，请问这是怎么回事; a Then Print &quot，求他是不是素数;请输入正整数&no&yes&quot，应该怎么改Private Sub Form_Click()n = Val(InputBox(&= 0 Or Int(a) &lt: Exit For Next j If i = n - 1 Then Print &&gt: Exit For，我的代码是这样的
提问者采纳
Or&1&For&&&Sub&&If&&&&&&n&Exit&nbsp，而且选择结构有点问题;&Mod&&&i&&&2&&End&&&n&&&&&nbsp。代码如下;&No&Next&&&&n&&End&&nbsp，也没有声明变量;n&&&If&&&&&&n，其实不需要这么麻烦的;Print&&&Sub&Exit&&&&&&&Then&&i&&Print&&&End&&i&n&Int(n)&&))&Val(InputBox(&&Form_Click()&&=&&&&&nbsp：Private&&nbsp，用的变量太多;=&&&&0&&Yes&Sub&To&0&&&&nbsp,&&nbsp，逻辑有点乱;If&&If&=&&&&Dim&&&&Then&&&&i&&&-&&=&请输入正整数&&&&Print&&&&nbsp楼主您好！你写的代码太复杂了
那为什么我那样不行呢》？
你循环有点问题，而且a是什么，逻辑很乱，也不好说，你说说你的算法吧，也就是你怎么想的吧
你qq多少，追问字数限制太少，
提问者评价
其他类似问题
为您推荐：
其他2条回答
&&0&n&Next&&Then&&&i&Sub&=&To&&&&&2&&&no&n&&&&=&\&i&yes&&=&&&&&Int(n)&2&Print&Then&&Exit&End&&&n&&&&&If&&&&\&&Mod&For&IfEnd&If&Form_Click()n&For&&&n&n&i&&Else&&&Print&&Else&&&&&&IfEnd&=&Then&请输入正整数&&&&&&2&Or&Val(InputBox(&0&))If&&&Print&&&&nbspPrivate&nbsp
。。。。我只会用c语言
素数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求VB程序:利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和？
求VB程序:利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和？
09-10-15 &
Private Sub Form_Click()    Dim a(1 To 100) As Integer    Randomize Timer    Print &随机产生的数据是：&    For i = 1 To 100        a(i) = Int(Rnd * 90 + 10)        Print a(i); & &;        If i Mod 10 = 0 Then Print    Next i    Print &找到的素数是：&    For i = 1 To 100        If Prime(a(i)) Then            Print a(i); & &;            b = b + 1            s = s + a(i)            If b Mod 10 = 0 Then Print        End If    Next i    Print    Print &所有的素数之和是：& & sEnd SubFunction Prime(x) As Boolean    For i = 2 To Sqr(x)        If x Mod i = 0 Then            Prime = False            Exit Function        End If    Next i    Prime = TrueEnd Function
请登录后再发表评论!

我要回帖

更多关于 vb判断素数 的文章

 

随机推荐