白银宠物网

VB数组如何提取重复元素

发布时间:2018-07-26 12:33

Private Sub Form_Click()
Form1.Cls
Dim A(10) As Integer
Dim B(10) As Boolean
Dim I As Integer, J As Integer
Dim K As Integer
Randomize
Form1.AutoRedraw = True
For I = 1 To 10
A(I) = Int(Rnd * 10)
Print A(I);
B(I) = True
Next
Print
For I = 1 To 10
If B(I) Then
Print A(I); ":"; I;
B(I) = False
For J = 1 To 10
If B(J) Then
If A(I) = A(J) Then
Print J;
B(J) = False
End If
End If
Next
Print
End If
Next
End Sub

回复:

你的意思是不是有一个数组,里面的元素可能有重复的。
比如数组a。里面有5个值,其中有3个是重复的?
如果这样的话,很好办哦。
新建一个数组b,然后遍历要去除的数组a,
从a中把每一个都取出来,和新建的b里面的去比,如果有相同的,则不放入b,
否则就放入数组b,直到循环结束。

回复:

Dim I as Long,J As Long,K As Long,mCount As Long  mCount=UBound(数组)  For I=0 to mCount -1      For J=I+1 to mC...

回复:

一维字符型数组代码如下:原数组为a(),删除后的数组为b() dim b() string redim b(0) for i =0 to ubound(a) for j =0 to ubound(b) if a(i)=b(j) then exit for next j if j =ubound(b)+1 then if ubound(b)"" then redim preserve b(ubound(b)...

回复:

你的意思是不是有一个数组,里面的元素可能有重复的。 比如数组a。里面有5个值,其中有3个是重复的? 如果这样的话,很好办哦。 新建一个数组b,然后遍历要去除的数组a, 从a中把每一个都取出来,和新建的b里面的去比,如果有相同的,则不放入b...

回复:

Private Sub Command1_Click() S = Array(3, 1, 1, 1, 1, 1, 1, 4, 3, 5, 3) For i = 0 To UBound(S) For j = 0 To i - 1 If S(i) = S(j) Then Exit For Next If j = i Then Print S(i) Next End Sub

回复:

Private Sub Command1_Click()Dim a() As Integer, i, j, n As Integern = 100ReDim a(n)RandomizePrint "原始数祖:(个数=" & n & ")"For i = 1 To 100 a(i) = Int(Rnd * 100) Print a(i); If i Mod 20 = 0 Then PrintNextFor i = 2 To n For...

回复:

Private Sub Command1_Click() Randomize Print "产生20个0~10之间的随机整数:" Dim a(20) As Integer Dim b(10) As Integer For i = 1 To 20 a(i) = Int(Rnd * 11) Print a(i); If i Mod 10 = 0 Then Print Next i For i = 1 To 20 b(a(i)) = ...

回复:

Sub Macro1() Dim i As Integer Dim j As Integer Dim k As Integer Dim a(5) As Variant Dim b() As Variant ’初始化数组a() a(0) = 1 a(1) = 2 a(2) = 1 a(3) = 3 a(4) = 2 a(5) = 3 k = 0 '将重复元素替换为空 For i = 0 To UBound(a) For ...

回复:

具体思路: 实现2次循环,一个数组循环2次,外循环数组,得出一个值a,然后内循环,将a与自身所在的数组的值对比一次,计算出现次数或者设置为空,如果计算出现次数可以计算次数大于2时候,进行删除操作。如果设置为空,等于进行删除操作。 具体...

上一篇:innosetup 怎么制作美化的下拉框,并且怎么能在【code】段设置安装包语言。 下一篇:xplay6如何降到出厂系统

返回主页:白银宠物网

本文网址:http://www.0943pet.cn/view-208781-1.html
    信息删除