求100以内素数的和
来源:互联网 发布:c语言九九乘法表的输出 编辑:程序博客网 时间:2024/04/29 20:38
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以内素数
- 字符串第一个重复出现的字符_超级牛逼的死想
- VC基于MSCOMM控件串口通讯
- 程序编译和链接
- linux顶半部和底半部中断机制
- 基本链表的逆转
- 求100以内素数的和
- 构建嵌入式linux平台下的用户应用
- 利用sslstrip和ettercap 嗅探http密码,dns、arp欺骗
- jquery如何判断checkbox(复选框)是否被选中
- za
- SQL Server数据库六种数据移动方法
- C++ Qt4 编程学习笔记(二)——Qt入门
- 字符设备驱动程序框架
- 打印质因子