求100以内的素数的和
来源:互联网 发布:莫达非尼 知乎 编辑:程序博客网 时间:2024/04/26 03:37
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以内素数的和
- 计算你的出生日期是星期几
- 省略PHP结束标记 “?>”的好处
- Funambol with Mysql: how to install (非常好的tutorial)
- 判断一个数是否是素数
- ubuntu 刚安装后。。。
- 求100以内的素数的和
- java中的数据结构--二分查找
- 如何学习Linux 下 c 语言对 php 的扩展 (从零到上手)
- NMEA 解析程序
- virtualbox using usb
- java例程练习(重写toString())
- 查看ubuntu硬件信息 命令
- 短信猫部署过程
- 创建latch 分析工具包