能否用单纯循环实现求质数问题？

Dim objfs,objws
Set objfs=CreateObject("scripting.filesystemobject")
Set objws=WScript.CreateObject("wscript.shell")
Set f=objfs.CreateTextFile("100以内的质数.txt",True)

Dim num

For num=1 To 100
shibu=prime(num)
If shibu=2 Then
f.Write num & " "
End if
Next

objws.Run "100以内的质数.txt"

Function prime(n)
Dim k
k=0
For i=1 To n
If isint(n/i)Then
k=k+1
If k>2 Then Exit For
End if
Next
prime=k
End Function

Function isint(n)
result=Mid(n,Len(CStr(Int(n)))+1,1)
If result="." Then
isint=False
Else
isint=True
End if
End Function

刚写的。看看吧。

不好意思，我不会java

单纯循环是指只用循环还是单循环?
另外说下你需要用什么语言