七夜雪

记录着我的生活

求100以内素数的和

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

阅读更多
文章标签: integer function command
个人分类: VB
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭