求100以内的素数的和
2012-04-23 19:46
344 查看
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以内的素数，全部打印出来
- C++编程小练习（一） 找出100以内的素数
- 求解100以内的素数
- 100以内所有的素数，每个素数之间用空格隔开，注：最后一个数字不要空格
- 计算100以内的素数的个数
- 找100以内的素数（经典算法------剔除法）
- 求100以内素数
- 筛选法求100以内的素数（数组）
- 100以内素数判定（筛选法）
- 用vb程序设计输出100以内素数和
- 输出100以内的素数。5个一行
- 100以内的素数
- c++ python 计算100以内的素数
- 016.循环语句进行100以内素数求和
- JAVA面试题：输出100以内所有的素数
- 100以内的素数（又称之为质数）之和
- C语言求1-100以内的素数
- java求100以内的素数示例分享
- Java中循环问题：for,while,do-while 各种练习（打印上三角、下三角、输出100以内的素数、水仙花、最大公约、最小公倍数、分解质因数、兔子问题）