江苏省计算机二级考试 常用过程.docVIP

判断素数的函数过程 ①Private Function prime(n As Integer) As Boolean Dim i As Integer prime = True For i = 2 To Sqr(n) If n Mod i = 0 Then prime = False Exit For End If Next i End Function ②Private Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n / i = Int(n / i) Then Exit Function Next i prime = True End Function ③Private Sub prime(n As Integer, f As Boolean) Dim k As Integer For k = 2 To Sqr(n) If n Mod k = 0 Then Exit Sub Next k f = True End Sub 判断回文数的函数过程 Private Function hw(n As Integer) As Boolean Dim i As Integer, st As String, stlen As Integer st = CStr(n) stlen = Len(st) For i = 1 To stlen \ 2 If Mid(st, i, 1) Mid(st, stlen + 1 - i, 1) Then Exit Function End If Next i hw = True End Function 求阶乘的函数过程 ①Private Function jc(n As Integer) As Long Dim i As Integer If n = 1 Then jc = 1 Else jc = jc(n - 1) * n End If End Function ②Private Function jc(ByVal n As Integer) As Long jc = 1 Do While n 0 jc = jc * n n = n - 1 Loop End Function ③Private Function jc(n As Integer) As Long Dim i As Integer jc = 1 For i = 2 To n jc = jc * i Next i End Function 求因子和的Sub过程 ①Private Sub factor(n As Integer, s As Integer) Dim i As Integer, j As Integer Do While i n i = i + 1 If n Mod i = 0 Then s = s + i End If Loop End Sub ②将整数x的因子存储到数组中的通用过程 Private Sub factor(x As Integer, a() As Integer) Dim i As Integer, n As Integer ReDim a(0) For i = 1 To x - 1 If x Mod i = 0 Then n = n + 1 ReDim Preserve a(n) a(n) = i End If Next i End Sub 求最大公约数的函数过程 ①Private Function gcd(ByVal m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 m = n: n = r r = m Mod n