Question

VB编写程序，打印100~200之间的所有素数。

题目的要求是每行输出5个素数。利用function过程判断每个数是否为素数，返回1，否则返回0。还有一个是利用function和sub过程同时解题 非常感谢

Answer 1

' 质数又称素数。指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。换句话说，只有两个正因数（1和自己）的自然数即为素数。比1大但不是素数的数称为合数。1和0既非素数也非合数。素数在数论中有着很重要的地位。Private Sub Command1_Click()
Dim i, j, n, a(200) As Integer
n = 0
For i = 100 To 200
If f(i) = 1 Then
n = n + 1
a(n) = i
End If
Next
For i = 1 To n Step 5
For j = i To i + 4
If i + j - 1 > n Then Exit For
Print a(i + j - 1),
Next
Print
Next
End SubFunction f(ByVal n As Integer) As Integer ' 判断是否素数函数
Dim t As Integer
f = 1
For t = 2 To n - 1
If n Mod t = 0 Then
f = 0
Exit For
End If
Next
End Function