ユーザー関数の作成

素数を判定するルーチンを、ユーザー関数として、独立させて作ってみます。

'素数かどうかを判定する関数
Function isPrime(n)
　　Dim I

　　If Not IsNumeric(n) Then
　　　　isPrime = False
　　　　Exit Function
　　End If

　　If n < 2 Then
　　　　isPrime = False
　　　　Exit Function
　　End If

　　isPrime = True
　　For I = 2 To Round(Sqr(n), 0)
　　　　If (n Mod I) = 0 Then
　　　　　　isPrime = False
　　　　　　Exit For
　　　　End If
　　Next I
End Function

戻り値は関数名のisPrimeに代入します。

ここで感心したのが、Exit Forです。
BASICでは、FORループからは、途中で抜けられないと思っていたのですが、抜けられるようになったのですね。