求100以内的素数的和
来源:互联网 发布:天猫 淘宝商城床单人床 编辑:程序博客网 时间:2024/03/29 12:51
Private Sub Command1_Click()
Dim Result As String
Dim Sum As Long
Sum = 0
For i = 1 To 100
If IsSushu(i) = True Then
Sum = Sum + i
Result = Result & " " & i
End If
Next
MsgBox Result & vbNewLine & "=========总和为========" & Sum
End Sub
Function IsSushu(ByVal Num As Integer)'判断是否是素数
Dim Sushu As Boolean
Sushu = True
If Num >= 2 Then
For i = 2 To Num - 1
If (Num Mod i) = 0 Then
Sushu = False
Exit For
End If
Next
IsSushu = Sushu
Else
IsSushu = False
End If
End Function
Dim Result As String
Dim Sum As Long
Sum = 0
For i = 1 To 100
If IsSushu(i) = True Then
Sum = Sum + i
Result = Result & " " & i
End If
Next
MsgBox Result & vbNewLine & "=========总和为========" & Sum
End Sub
Function IsSushu(ByVal Num As Integer)'判断是否是素数
Dim Sushu As Boolean
Sushu = True
If Num >= 2 Then
For i = 2 To Num - 1
If (Num Mod i) = 0 Then
Sushu = False
Exit For
End If
Next
IsSushu = Sushu
Else
IsSushu = False
End If
End Function
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内的素数的和
- 求100以内素数的和
- 求100以内素数的和
- 求100以内素数的和
- 求100以内的素数!
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 求100以内的素数
- 100以内素数的和
- 100以内素数的和
- 筛选素数个数(10^8以内)
- ISCSI配置,挂载客户端摘除
- Oracle Label Security(Oracle标签安全性)
- ZenCart后台订单详细页显示产品图片和链接
- java
- 求100以内的素数的和
- HTML或JSP中如何使用js程序
- OSB实战开发【二】配置 配置OSB的域模版
- 黑马程序员_存储过程入门
- 文档模式DOCTYPE
- 时间管理(详细说明)
- AM1808 开发记录(一)
- 黑马程序员_带参数存储过程入门学习
- 美国各州名记缩写