vb程序数组去重,vb求数组的最大值的程序

vb.net去除重复数组怎么做？要复制数字，VB one 数组删除另一个数组中的元素？重新排序以下程序采取以下步骤:首先将文本中的数字分解成字符串数组。在VB中去掉字符串数组中的重复元素，代码如下:数组C，即去掉B数组dimasinteger，vb得到A，net数组，将数组传入并返回一个新的数组 list子函数，先将sort 数组传入排序函数，然后有两个循环，外循环从0到Length和变量I，内循环从I到Length，以此判断第I个数是否与后面包含自身的数相同。

private subcommand 1 _ Click()DimiAsSingle，jAsSingleDimListArr()AsStringDimRepeatAsBooleanReDimListArr(0)list arr(0)list 1。0至1的列表(0)。listcountrepeatfalsoforj 0 toubound(list arr)if list 1。list(I)list arr(j)then repeattrue:exitfornextifrepeaatfalsenthenredimpresevelistarr(UBound(list arr) 1)list arr(UBound(list arr))list 1。列表(i) Endifnextlist 1。clearfori0toubound(list arr)list 1。Additemlistarr (i) NextSub添加此流程。

DimIasLong，JAsLong，KAsLong，mCountAsLongmCountUBound(数组)for i0 tomcount 1 for Ji 1 tomcountif数组(I)数组(j)thenforkjtomcount 1数组(k)数组(k 1)nextkredimperve

代码如下:数组C即去掉B后得到A数组dimi asinteger，Jasinteger，dimc()as string redimc(0)for i0 toubound(A)for j0 toubound(B)IFA(I)B(j)thenexifornextjifjubound(B) 1 thenifc(0)thenredimpreservec(uboudn(C) 1)C(C

假设你的数组是X(100)N 100 for i1tonforji 1 tonifx(I)X(j)thenforgjton1x(j 1)Next KNN 1 endifnextjnextti 上面的代码是为了去掉i1tonifx的重复元素，

下面的步骤程序是先将文本中的数字分解成字符串数组。然后调用第一个排序函数，对每个分解后的字符串进行内部排序，使其按照编号从小到大排列。这样123，321，132等等都变成了123。然后调用第二个排序过程，以升序排列所有这些字符串。最后，经过排序的字符串在复制后被添加到第二个文本框中。下面是程序的代码和运行结果。

我还在床上，就给你出个主意吧。自己写了一个函数，传入数组 in，返回一个新的数组 list子函数，先排序数组然后有两个循环，外循环从0开始。判断第I个数是否与后面包含自身的数相同，如果相同，则有一个变量加1。结束内循环的条件是找到第一个异数，将外循环I重新移植到内循环第一个异数的下表中。

dimarray 1()asstringdimarray 2()as booleandimiasintegerdimjasintegerdimstr 1 asstringa，eee，eeearray1Split(str1，)str 1 redimarray 2(UBound(array 1))for i0 toubound(array 1)array 2(I)false nextfor i0 toubound(array 1)1 farray 2(I)false thenforji 1 toubound(array 1)if array 1(I)array 1(j)and array 2(j)false the array 2(j)

function ray _ unique(byrefsrcarray)如果绑定(srcarray)值映射，更方便dim dict 1:set dict 1 server . createobject(scripting . dictionary)dimdicwilldel:setdicwilldelserver . createobject(scripting . dictionary)。要复制的dimiforiotoubound(srcArray)循环数组ifdict 1，Exists (srcarray (i))那么dict 1已经有这个值了。说明这个值是重复的，Addi 记录dictWillDel Else 中要删除的元素的下标到目前为止，dict1。 AddsrcArray(i)没有重复，那么记下来，如果再次遇到这个值，说明EndIfNe有重复。