Question

求写vb编程代码

求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。

Answer 1

Dim SUM As Long, m As Integer, n As Integer

SUM = 0
For m = 1 To 100
    For n = 2 To m - 1
        If m Mod n = 0 Then Goto NextNum
    Next n

    SUM = SUM + m
NextNum:

Next m

Print SUM

Answer 2

这个不难，稍后联系我