VB 求从1000～1100之间的所有素数。（输出的结果显示在文本框中

Answer 1

Private Sub Command1_Click()
Dim a%
a = 1000 '从1000开始找
Do
a = a + 1
If isprime(a) Then '调用isprime()函数过程判断a是否素数
Text1.Text = Text1.Text & " " & a
End If
Loop Until a > 1100
End Sub

'下面这个函数是用来判别一个数是否是素数的
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean, b%
flag = True
b = 2
Do While b <= Int(a / 2) And flag
If Int(a / b) = a / b Then
flag = False
Else
b = b + 1
End If
Loop
isprime = flag
End Function

Answer 2

for a=1000 to 1100
if a mod 2<>0 then
text1.text=text1.text+cstr(a)+chr(13)+chr(10)
'//chr(13)+chr(10)是换行
end if
next