求100以内素数的和

原创 2012年04月24日 21:11:27

Private Sub Command1_Click()

 Dim s As Integer, n As Integer

   s = 0: n = 1

 Do While n <= 100

  If IsPrimer(n) <> 0 Then

       s = s + n

    End If

    n = n + 1

 Loop

 Print "1~100之内的素数的和是:" + Str(s)

  

'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi”)

End Sub

Private Function IsPrimer(n As Integer) As Integer

 Dim i As Integer

    For i = 2 To n - 1

       If n Mod i = 0 Then

        Exit For

       End If

    Next i

   

    If i = n Then

        IsPrimer = n

    Else

        IsPrimer = 0

    End If

   

End Function

相关文章推荐

求100以内的全部素数

  • 2013年01月12日 11:11
  • 340B
  • 下载

求100以内素数(使用标签的流程控制)(in Java)

1: public class TestContinueOuter { public static void main(String[] args) { int n=0; outer: ...

求100以内的素数

  • 2012年03月23日 16:27
  • 597B
  • 下载

VB程序求100以内的孪生素数

  • 2012年12月08日 19:25
  • 2KB
  • 下载

筛选法求100以内的素数

用筛法求素数的基本思想是:把从1开始的、某一范围内的正整数从小到大顺序排列, 1不是素数,首先把它筛掉。剩下的数中选择最小的      数是素数,然后去掉它的倍数。依次类推,直到“筛子”为空时结束。如...

求100以内的素数 水仙花数

1、新建一个Win32控制套
  • wwkaven
  • wwkaven
  • 2014年07月28日 19:53
  • 746

筛选法求100以内的素数

筛选法求100以内的素数:  基本思想:通俗讲从2开始依次将100以内2的倍数(>1)置为1,将3的倍数(>1)置为1...以此将100以内所有非1的元素的倍数(>1)均置为1;最后输出非1的元素即为...

Java 求1-100以内的所有素数,判断一个数是不是素数。Java代码实现附测试结果图

质数(prime number)又称素数,有无限个。 质数定义为在大于1的自然数中,除了1和它本身以外不再有其他因数的数称为质数。 小师弟问了我个这么个联系题,虽然看似简单,但是,大家都觉得简单的东...

JAVA找出100以内的素数

  • 2017年10月29日 15:51
  • 833B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:求100以内素数的和
举报原因:
原因补充:

(最多只允许输入30个字)