VB相关算法大全(新).docVIP

计数与求和 求数组最大值 fmax = x(1) For i = 2 To n If x(i) fmax Then fmax = x(i) Next i 输入数组 For i = 1 To m a(i) = InputBox(a( + Str(i) + )=) Next i 输出数组(每行n个) For i = 1 To m Print a(i); if i mod n =0 then print Next i 随机数产生[N,M]范围内数组 For i = 1 To m a(i) = int(rnd*(M-N+1))+N Next i 数组元素倒置 For i =1 To n\2 t=A(i) A(i)=A(n-i+1) A(n-i+1)=t Next I 在数组中查找数 1.原始算法 For i = 1 To n If x = a(i) Then j = i Next i 2.变种1 For i = 1 To 8 If x = a(i) ThenExit For Next i 在数组中删除特定的数 For i = 1 To 8 If x = a(i) Then j = i Next i For i = j To 7 a(i) = a(i + 1) Next i 求两个整数的最大公约数、最小公倍数 1．原始程序 D