| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 540 人关注过本帖
标题:高手们  帮帮忙
只看楼主 加入收藏
两点三邪
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-4-9
收藏
 问题点数:0 回复次数:3 
高手们  帮帮忙
任意读入10个整数,查找并输出其中的素数。  
素数 即为 只能被1 和本身 整除的树
2008-04-09 09:32
dawn4640576
Rank: 1
等 级:新手上路
帖 子:1079
专家分:0
注 册:2007-9-19
收藏
得分:0 
给你一个求素数的函数
function isprime(n as integer) as boolean
  isprime=true           '赋初值
  for i=2 to int(sqr(n))
      if n mod i=0 then     '如果能除尽
         isprime=false      '证明是素数
         exit for
       end if
   next i
end function

我看青山多妩媚料青山看我应如是
2008-04-09 09:59
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
dim a() as string
randomize
for i=1 to 10
  a(i)=int(100*rnd+1)
next
for i=1 to 10
  for j=2 to a(i)-1
    if a(i)\j=0 then k=k+1
  next
    if k=0 then print a(i)
next
2008-04-09 10:00
论坛元老
Rank: 1
等 级:新手上路
帖 子:812
专家分:0
注 册:2008-3-31
收藏
得分:0 
回复 3# 的帖子
恩,简单明了,不错

怎么不可以用Discuz代码呢!
2008-04-09 10:11
快速回复:高手们  帮帮忙
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030444 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved