VB相关算法大全(p7).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) Then Exit For : Next i 在数组中删除特定的数 For i = 1 To 8 :If x = a(i) Then j = I :Next i For i = j To 7 : a(i)