求100以内的素数的和
来源:互联网 发布:知中.竹林七贤pdf 编辑:程序博客网 时间:2024/04/26 04:02
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以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内素数的和
- 求100以内素数的和
- 求100以内素数的和
- 求100以内的素数!
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 100以内素数的和
- 100以内素数的和
- JVM运行情况分析-如何输出堆Thread、Heap Dump及分析
- 第九周任务四
- ubuntu下的ROOT用户
- C++运算符重载小程序
- 九周任务5
- 求100以内的素数的和
- Windows Phone 7中添加上下文菜单
- 【转】周鸿祎给员工的一封信:我们为什么起诉腾讯?
- Linux命令echo -e
- 关于循环语句中的几个需要注意的地方
- 一、Spring简介
- 关于C++中在函数中按值返回、临时对象、拷贝构造函数的一点理解
- 设计模式 - 外观模式
- 函数式编程初探