Question

你好请问这段计算100以内的素数的代码哪儿有问题啊？

Private Sub Command1_Click()
Dim n%, m%, sum%
m = Sqr(n) And m <= 100
For i = 2 To m
If n Mod i = 0 Then
Exit For
Else
sum = sum + n
End If
Next
Print sum

End Sub

Answer 1

你的程序中有好几处问题：
1、n没有被赋值，默认为0，m = Sqr(n) 应该也为0，那么 For i = 2 To m 就不能循环。
2、“m = Sqr(n) And m <= 100”是一个Boolean的结果，只能是0 和1。应该是m = Sqr(n) 。
3、If n Mod i = 0 Then
Exit For
Else

第一个数就会n Mod i = 0，就执行Exit For，那么后面的数就不用管了。所以也是错误的。
4、n是什么数值，sum = sum + n？
你的问题太多。我给你一个程序，供你参考：
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 2 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then
sum = sum + i
Print i; sum
End If
Next i
Print sum
End Sub

Answer 2

Private Sub Command1_Click()
    Dim n%, m%, sum%, i%
    For i = 2 To 100
        m = Sqr(i)
        For n = 2 To m
            If i Mod n = 0 Then Exit For
        Next
        If n > m Then sum = sum + i
    Next
    Print sum
End Sub