vb题编一sub过程,对于已知正整数,判断该数是否是素数.然后调用该子过程,输出100至200之间的全部素数我的程序是哪里错了?是调用不对吗?正确的是什么?Subss(nAsInteger)DimflagAsBoolean,iAsLongfl

Question

vb题 编一sub过程,对于已知正整数,判断该数是否是素数.然后调用该子过程,输出100至200之间的全部素数
我的程序是哪里错了?是调用不对吗?正确的是什么?
Sub ss(n As Integer)
Dim flag As Boolean,i As Long
flag = True
If n Mod 2 = 0 And n 0 Or n = 1 Then
flag = False
Else
For i = 3 To Sqr(n) Step 2
If n Mod i = 0 Then
flag = False:Exit For
End If
Next i
End If
ss = flag
End Sub
Private Sub Form_Click()
Dim k%
k = 0
For i = 100 To 200
Call ss(i%)
If ss Then
k = k + 1
End If
Next i
Print k
End Sub

Answer 1

sub函数是不能有返回值的,Function是可以有返回的.我把代码修改了下,希望采纳!' 这里sub改成 Function    Function ss(ByVal n As Integer)  &nbs...