UC知道vb的素数和
来源：百度知道 编辑：UC知道 时间：2024/05/30 07:47:00
Function isprime(Num As Long) As Boolean
If Num < 2 Then isprime = False: Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
Dim s As Long
For i = 100 To 200
If isprime(i) Then s = s + i
Next i
Print "100到200的素数和:";s
End Sub
上面这道题一定要有“isprime = False”或者“isprime = True”吗？？依然用funtion方法，还有其他的写法吗？？
If Num < 2 Then isprime = False: Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
Dim s As Long
For i = 100 To 200
If isprime(i) Then s = s + i
Next i
Print "100到200的素数和:";s
End Sub
上面这道题一定要有“isprime = False”或者“isprime = True”吗？？依然用funtion方法，还有其他的写法吗？？
isprime=false是起判断作用。你也可以改成其他的
当然。方法有很多种。能做到题目的要求就行
还有就是语句越少越好
并非语句用的越少越好,而是计算的次数越少效率越高越好.
判断素数方法很多,楼主求素数的方法很好,也可以不用定义函数.
如:用数组A,把数组定义为TRUE,假设全是素数,2是素数,把所有是2的倍数去掉,A[2*X]都为FALSE,A[3]的值为1,没给去掉,三是素数,把所有3的倍数去掉......
ghjmghjmgjhgjh,kkkkgj,