用VB语言求1000内的质数之和

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 07:42:45
用VB语言求1000内的质数之和
x){>eEӋk_hxi[Y-/x6uÓO'$PΆ32KRKrs254@L[#|!`bCVdB=Ӏ|S 2 !y `]@B[/iKATBSSp@(ٮy) $فSR

用VB语言求1000内的质数之和
用VB语言求1000内的质数之和

用VB语言求1000内的质数之和
Private Sub Form_Click()
For i = 2 To 1000
s1 = 0
For i1 = 1 To i
If i Mod i1 = 0 Then s1 = s1 + 1
Next
If s1 = 2 Then s = s + i

Next
Print s
End Sub