vb，求1~100内素数，最大公约数

单击Command1便可产生1～100内素数。代码如下。
－－－－－－－－－－－－－－－－－－
Function IsPrime(ByVal n As Long) As Boolean
Dim i As Long
For i = 2 To Int(n / 2)
If n Mod i = 0 Then IsPrime = False: Exit Function
Next
IsPrime = True
End Function
Private Sub Command1_Click()
For i = 2 To 100
If IsPrime(i) = True Then Print i
Next
End Sub

'--------------------------------------
求两个数最大公约数的程序，格式为MaxDeno(x,y)，返回x,y的最大公约数。代码如下。
'--------------------------------------
Function MaxDeno(ByVal x As Long, ByVal y As Long) As Long
While x <> y
If x > y Then
x = x - y
Else
y = y - x
End If
Wend
MaxDeno = x
End Function