子比較號()
ReDim保留cmp(0)
dim arr1(3)為整數，arr2(3)為整數
dim i為整數，f為字符串
arr 1(0)= 2:arr 1(1)= 3:arr 1(2)= 4:arr 1(3)= 6
arr 2(0)= 2:arr 2(1)= 6:arr 2(2)= 7:arr 2(3)= 8
對於i = 0至ubound(arr 2):f = f & amp；trim(str(arr2(i))):下壹個I
對於i = 0至欠載(arr1)
if len(replace(f，trim(str(arr1(i)))，" ")& ltlen(f)and is repeat(arr 1(I))= false則redim preserve CMP(ubound(CMP)+1):CMP(ubound(CMP))= arr 1(I)
接下來我
對於i = 0至ubound(arr 1):f = f & amp；trim(str(arr1(i))):下壹個I
對於i = 0至下界(arr2)
if len(replace(f，trim(str(arr2(i)))，" ")& ltlen(f)and is repeat(arr 2(I))= false則redim preserve CMP(ubound(CMP)+1):CMP(ubound(CMP))= arr 2(I)
接下來我
輸出
for I = 1 to ubound(CMP):list 1 . additem trim(str(CMP(I))):next I
末端接頭
函數重復(n為整數)
isrepeat = false:dim i as integer
對於i = 0至下界(cmp)
如果cmp(i)=n，那麽isRepeat = true:exit for
接下來我
結束功能
-
主程序調用:comparenumber()
諸如
私有子命令1_click()
比較編號
末端接頭
Cmp()是壹個全局變量。
沒有測試。請指出任何錯誤。
主旨:先將數組合並在壹起，然後依次從另壹個數組中讀取壹個數字，在原字符串中用空白替換那個數字。如果該數字存在，它將被替換，字符串的總長度將減少；否則，字符串的總長度不會減少；當然這裏已經有重復判斷了，用instr判斷也是可以的。