Question

VB求100到300之间所有的素数。为什么这样写没有结果

Answer 1

i = 2 和 k = False 要放到 For a = 100 To 300 的下面

End Sub 上面的三行（If ... End If）要移到 Next a 的上面

友情赠送一个更简洁的代码：

Private Sub Command1_Click()
Dim a As Integer, i As Integer
For a = 100 To 300
    For i = 2 To Sqr(a)
        If a Mod i = 0 Then Exit For
    Next i
    If i > Sqr(a) Then Print a;
Next a
End Sub

Answer 2

一笑而过

Answer 3

笑而不语