常用算法精简.docVIP

常用算法精简 最大公约数 循环式 If m n Then temp = m: m = n: n = temp Dim r As Long Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop GCD = n 递归实现 Private Function GCD(ByVal m As Long, ByVal n As Long) As Long Dim temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long r = m Mod n If r = 0 Then GCD = n Else m = n n = r GCD = GCD(m, n) End If End Function 2) 最小公倍数 m×n÷最大公约数 3) 互质数 最大公约数为1的两个正整数 字母统计 allStr = UCase(Text1.Text) For i = 1 To Len(Text1.Text) aStr = Mid(allStr, i, 1) If aStr = A And aStr = Z Then zimu(Asc(aStr) - Asc(A)) = zimu(Asc(aStr) - Asc(A)) + 1 End If Next i For i = 0 To 25 If zimu(i) 0 Then j = j + 1 Text2.Text = Text2.Text Chr(i + Asc(A)) : str(zimu(i)) If j Mod 5 = 0 Then Text2.Text = Text2.Text Chr(13) Chr(10) End If Next i 进制的转换 10———— Do While m o n = m Mod r m = m \ r If n 9 Then StrDtoR = Chr(65 + n - 10) StrDtoR Else StrDtoR = n StrDtoR End If Loop ————10 s = UCase(Trim(s)) For i% = 1 To Len(s) If Mid(s, i, 1) = A Then n = Asc(Mid(s, i, 1)) - Asc(A) + 10 Else n = Val(Mid(s, i, 1)) End If dec = dec + n * r ^ (Len(s) - i) Next i Tran = dec Tran = StrDtoR 排序 选择排序 For i = LBound(a) To UBound(a) - 1 进行数组大小-1轮比较 m = i 在第i轮比较时，假定第 i个元素为最值元素 For j = i + 1 To UBound(a) 在剩下的元素中找出最