编写程序，求1之间的最后一位数字是9 的素数的个数_百度知道
编写程序，求1之间的最后一位数字是9 的素数的个数
提问者采纳
printf(&n++) {
a=n%10#include &lt,a;math,h=0;
h++;);&#92,k;=20000;
k=sushu(n).h&i++)
if(n%i==0)
return 1;;int sushu(int n){i&#include &
m=sqrt(n+1);
if(h%10==0)
printf(&quot.h&=m;n&),m;
for(i=2;n&n& } void main(){ for(n=10000;\;
printf(&quot,n);%d &\n%d\n&quot,h);stdio
提问者评价
其他类似问题
为您推荐：
素数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁编程统计自然数1之间的素数个数。_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：64,118贴子：
编程统计自然数1之间的素数个数。收藏
帮帮忙。。。。
做题呢，不会，
要：素数 [质数]' 作者: CBM666' VIP VB教学群: ' CBM666 免费 VB教学群: ' CBM666 免费 VB高级群: '*************************************************'大于1，并且除1和它本身外没有其他因数的自然数叫素数(或质数)'自然数中,2是最小的素数，除2以外,所有的偶数都不是素数.'如它的各位数字任意调换后仍为素数，则称为绝对素数'只要使用2到该数的平方根之间的所有数去除这个数，如能被整除则这个数就不是素数Dim i&, j&, Tss&, Tnum&, MsgTitle$, SS As BooleanPrivate Sub Form_Load()
Me.AutoRedraw = True '窗体自动重画为真
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 '窗体居中
MsgTitle = "【CBM666 的素数 [质数]】"
Me.Caption = "请点击窗体开始打印。。。。"End Sub Private Sub Form_Click() '点击窗体运行
Me.Cls: Tss = 0: Tnum = 0 '清除画面并将所有累计初始值归 0
Call IsPrime(2, 500) '获取 2-500之间的素数End Sub Sub IsPrime(StNum&, EndNum&)
For i = StNum To EndNum '设定的两个起始与终止值之间循环
SS = True '默认素数为真
For j = 2 To Int(Sqr(i)) '使用2到该数的平方根之间的所有数去循环
If i Mod j = 0 Then SS = False: Exit For '如果i被j整除则本数为 非素数 变量SS即为 假, 并立刻退出本次循环
If SS Then '如果变量SS即为 真
Me.ForeColor = QBColor(12) '前景色设为红色
Tss = Tss + 1 '素数的数量增加 1 个
Else '非素数
Me.ForeColor = QBColor(0) '前景色设为黑色
P '打印这个数 但是是接着前面的数据显示不换行
Tnum = Tnum + 1 '所有被检测的数值数量增加1个
If Tnum Mod 10 = 0 Then Print '当所有被检测的数值数量满10个 则往下跳一行
MsgBox "共有: " & CStr(Tss) & " 个素数", vbInformation, MsgTitleEnd Sub
是不是这样啊？Option ExplicitPrivate Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
For A = 10000 To 20000
For B = 2 To A - 1
C = A Mod B
If C = 0 Then
Print DEnd Sub
二楼的做法时间复杂度高了，建议楼主百度“线性筛” 。
一个数只要从2至这个数的平方根之间不能整除就可以确定是质数.因此只要从2循环至此数的平方根进行求模是否有余数就可以确定了.实际上可以再次减少循环次数.因为不能被2整除必不能被4整除.后面的4就可以不进行计算.等等.因此可以将所有计算的质数保存起来.从2开始至此数的平方根之间所有质数进行模运算就可以了.
窗体如上，2个文本框，一个按钮，一个列表。代码如下：Private Sub Command1_Click()List1.ClearDim i As Integer, ii As Integer, a As IntegerFor i = Text1 To Text2a = 0For ii = 1 To iIf i / ii = Int(i / ii) Thena = a + 1End IfNextIf a &= 2 ThenIf i && 1 ThenList1.AddItem iEnd IfEnd IfNextMsgBox "共有" & List1.ListCount & "个素数"End Sub效率可能有点低
Private Sub Command1_Click()List1.ClearDim i As Integer, ii As Integer, a As IntegerFor i = Text1 To Text2a = 0For ii = 1 To iIf i / ii = Int(i / ii) Thena = a + 1End IfIf a & 2 Then Exit ForNextIf a = 2 ThenIf i && 1 ThenList1.AddItem iEnd IfEnd IfNextMsgBox "共有" & List1.ListCount & "个素数"End Sub代码改成这个。。效率稍微高一丁点
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或1块钱之间的钢琴什么牌子好_百度知道
1块钱之间的钢琴什么牌子好
不要太大的最好是木头克的。。
提问者采纳
我理解你说的应该是是外壳，最好的是用实木拼接的，星海、卡哇伊都行，这样应该就是你说的“木头克”了吧，不过据我所知这种板材做的琴20000以下的很少、雅马哈，大部分这个价位的琴都是密度板外壳、珠江，至于牌子你选你听说过的就行了，试试手感和音色选个你喜欢的就可以你说的应该不是实木马克吧。现在新琴没有实木外壳的
其他类似问题
为您推荐：
您可能关注的推广
钢琴的相关知识
其他2条回答
国产雅马哈 卡瓦伊 英昌 珠江 星海 海伦
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁我想买一款1之间得电脑，配置要高，而且硬盘得比较大，外观要漂亮得~~希望大神们推荐啊_百度知道
我想买一款1之间得电脑，配置要高，而且硬盘得比较大，外观要漂亮得~~希望大神们推荐啊
苹果得不知道怎么样，我看了索尼得那个F429怎么样啊
提问者采纳
Intel 酷睿i7 3770K（盒
华硕P8Z77-V DELUXE
金士顿32GB DDR3 1600
希捷Barracuda 3TB 7200
显卡 影驰GTX680 HOF名人堂
机箱 酷冷至尊魔甲兵（SGC-80
电源 航嘉X7-900
显示器 三星S27A550H
键鼠装 Razer 地狱狂蛇游戏标配
光驱 华硕DRW-24D1ST
固态硬盘 BIWIN Elite A816（240G
18433硬盘足够了吧、3T机械的。240G固态的
其他类似问题
为您推荐：
其他4条回答
Razer那伽梵蛇六芒星游戏鼠标 精 灵雷神K7背光游戏键盘 $718 光 驱:1399 内 存：Intel酷睿i53570K $： 三星B2770B $:770 散热系统:1999 键盘鼠标：TT星际指挥官(VN40001W2N) $299 显示器:388 显卡：安钛克模尊520 $549 机箱:1600 主 版：华擎z77 Extreme6 $：超频三黄海S90 $85 电源：希捷Barracuda 2TB 64M SATA3 $：海盗船DDR3 1600 8GB $：NVIDIA GeForce GTX680 $ 3999 硬盘cpu
有钱真好啊
20000元内最强电脑（配置清单）
当时的单价
现在的单价
Intel 酷睿i7 3930K（盒）
¥ 3930
¥ 3650
华擎X79 极限玩家 6
¥ 2299
¥ 2199
三星4GB DDR3 1600（MV-3V4G3/CN）
¥ 165
¥ 185
希捷Barracuda 1TB 7200转 64MB 单碟（ST）
¥ 590
¥ 590
威刚S510（120GB）
¥ 999
¥ 599
微星N590GTX-P3D3GD5
¥ 6999
¥ 6999
Tt 星际指挥官USB3.0版（VN40006W2N）
¥ 359
¥ 359
硬盘的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁人民币1之间能买什么牌子的瑞士表？_百度知道
人民币1之间能买什么牌子的瑞士表？
如题，男士表，一定要瑞士的，谢谢
提问者采纳
浪琴(Longines) 梅花（TITONI) 帝舵（TUDOR）欧米茄（OMEGA) 雪铁纳（Certina）雷达（RADO） 英纳格（Enicar） 美度（MIDO）豪雅（TAG Heuer）
其他类似问题
为您推荐：
瑞士表的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}