用VB求(3,500)内的所有素数和(改错)
来源:百度知道 编辑:UC知道 时间:2024/05/26 06:33:41
Private Sub Commandl_Click()
Dim FlagAs Boolean
Sum=0
For x= 3 To 500
Flay=True
For i =2 To x-1
If x Mod =0 Then
Flag=False
Exit For
End If
Next i
(下一行程序有错)
If Flag=False Then (就是这句错了高手帮忙改下谢谢了)
Sum=Sum+x
End If
Next x
Print sum
End Sub
ps:哪个VB高手快点解答下谢谢
Dim FlagAs Boolean
Sum=0
For x= 3 To 500
Flay=True
For i =2 To x-1
If x Mod =0 Then
Flag=False
Exit For
End If
Next i
(下一行程序有错)
If Flag=False Then (就是这句错了高手帮忙改下谢谢了)
Sum=Sum+x
End If
Next x
Print sum
End Sub
ps:哪个VB高手快点解答下谢谢
为什么flag=false才相加呢?我倒觉得flag=true的时候才是素数啊
所以你把这句改成
if flag then
另外之前有点打错的地方
Dim FlagAs Boolean =》 Dim Flag As Boolean
Flay=True =》 Flag=True
If x Mod =0 Then =》 If x Mod i=0 Then
If x Mod =0 Then 这个不对啊!~