close

大家記得把握機會，千萬不要當我的學弟



Function check(x)
For i = 2 To x - 1
m = x Mod i
If m = 0 Then
check = 0
Exit Function
End If
Next
check = 1
End Function
Private Sub Command1_Click()
Sum = 0
For i = 2 To 1000
p = check(i)
If p = 1 Then
Sum = Sum + i
a = a + 1
End If
Next

MsgBox "共有" & a & "個，答案是" & Sum

End Sub


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 哈捏大人。 的頭像
    哈捏大人。

    勇往直前的

    哈捏大人。 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄