常见算法代码总结.doc

常见算法代码总结：1、 交换Tmp=a;A=b;B=tmp;2、 整数X=int(X)3、 奇数、偶数X mod 2=0 为偶数X mod 20 为奇数4、 累加、累乘书本P70 例5-45、 最大、最小值（书本P97 例6-1）Dim i As Integer, a(10) as integer Max = a(1) Min = a(1) For i = 2 To UBound(a) If a(i) Max Then Max = a(i) End IfNext i6、 选择排序（书本P106 例6-6）Private Sub sort(a() As Integer) Dim temp As Integer, n As Integer, i As Integer, j As Integer n = UBound(a) For i = 1 To n-1 For j = i + 1 To n If a(i) a(j) Then 形成递增序列 temp = a(i) a(i) = a(j)/p;/ a(j) = temp End If Next j Next iEnd Sub7、 冒泡排序（书本P157 例7-8）Option ExplicitOption Base 1Private Sub Command1_Click() Dim A() As Integer, temp As Integer Dim i As Integer, j As Integer Dim N As Integer N = 6 ReDim A(N) Randomize For i = 1 To N 生成数组 A(i) = Int(Rnd * 99) + 1 Text1.Text = Text1.Text & Str(A(i) Next i For i = 1 To N 1 冒泡排序 For j = 1 To N - i If A(j) A(j + 1) Then temp = A(j) A(j) = A(j + 1) A(j + 1) = temp End If Next j Next i For i = 1 To N 输出排序后的数组 Text2 = Text2 & Str(A(i) Next iEnd Sub8、 最大公约数、最小公倍数Private Sub Command1_Click()Dim R As Integer, M As Integer, N As Integer, T As IntegerDim s as integer, lcd as integerM = InputBox(Please Input number A)N = InputBox(Please Input number B)S=m*n 两数的乘积=最大公约数*最小公倍数R = M Mod N 欧几里德法 求最大公约数Do While R 0 M = N N = R R = M Mod NLoopMsgBox (最大公约数是： & N)Lcd=s/nMsgBox (最小公倍数是： & lcd)End Sub9、素数Private Function Prime(x As Integer) As Boolean 判断是否是素数过程 Dim i As Integer For i = 2 To sqr(x) /或x-1或x/2 If x Mod i = 0 Then Exit For Next i If i sqr(x) Then /或ix-1或ix/2 Prime = TrueElse Prime=false End IfEnd Function或Private Function Prime(x As Integer) As Boolean 判断是否是素数过程Dim i As IntegerPrime=false For i = 2 To sqr(x) If x Mod i = 0 Then Exit Function Next i Prime = TrueEnd Function10、整数拆分（各位数字）例1：Private Sub Command1_Click()Dim N As Integer, I As Integer, Sum As IntegerN = InputBox(Please input a number:)For I = 1 To Len(CStr(N) Sum = Sum + Mid(CStr(N), I, 1)Next IPrint Sum=; SumEnd Sub或k = val(Text1.text)Do While k 0 sum = sum + k Mod 10 k = k 10LoopPrint sum例：找水仙花数P77 例5-911、进制转换例：十进制数转换为二进制数Option Base 0Private Sub Command1_Click() Dim i As Integer, d As Integer Dim b() As Integer, s As String, k As Integer d = Text1.Text If d = 0 Then Text2.Text = 0 ElseIf d 0 Then Do Until d = 0 i = i + 1 ReDim Preserve b(i) b(i) = d Mod 2 d = d 2 Loop For k = i To 1 Step -1 s = s & b(k) Next k End IfEnd Sub12、质因子Do Until x = 1 If x Mod k= 0 Then List1.AddItem k x = x k Else k = k +1 End If Loop13、求级数 例2：利用级数展开来求函数ex的值，丢弃所有小于0.00001的数据项。ex=1+x+x2/2!+xn/n!+Privete Sub Command1_Click() Dim y as integer,x as integer, t as single Dim