24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2440  |  回复: 6
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

rop678

新虫 (初入文坛)

[求助] vb中怎么编码求逆序素数已有2人参与

例如先求出100-300的素数,然后怎样求出其逆序也为素数的所有数?
option base 1
private sub command1_click()
   dim count as integer
   picture1.print"100-300得所有素数"
   for i =100 to 300
       for j = 2 to sqr(i)
          if i mod j=0 then
          exit for
       next j
          if i mod j<>0 then
          count=count+1
          picture1.print a(count)
          end if
   next i
   picture1.print
end sub
这以上是求素数的过程,求下面求逆序素数的代码 万分感谢!!!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

陌上过客

新虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
引用回帖:
3楼: Originally posted by rop678 at 2015-12-21 14:31:04
vb初学 就是具体如何逆序排序不清楚 希望能指教一下 谢谢...

逆序就是指把数字倒过来输出,通俗的讲,一个三位数,正序输出是先输出个位,接着十位,最后百位,而逆序是先百位后十位最后个位

发自小木虫Android客户端
4楼2015-12-24 10:40:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

尼摩2012

金虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
输出后再排序下不就可以啦?
你只需在一点上自命不凡!
2楼2015-12-21 12:56:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rop678

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by 尼摩2012 at 2015-12-21 12:56:50
输出后再排序下不就可以啦?

vb初学 就是具体如何逆序排序不清楚 希望能指教一下 谢谢
3楼2015-12-21 14:31:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

陌上过客

新虫 (初入文坛)

你这题的意思就是,你已经得到的素数中,还要判断倒过来是否也为素数

发自小木虫Android客户端
5楼2015-12-24 10:42:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见