VB用一个DO循环去重复

你可以使用 Do While 循环来重复执行某段代码，直到满足某个条件为止，例如去重。

以下是一个简单的 VB 代码示例，用于从一个数组中去除重复项：

Dim arr() As String '定义一个字符串数组
arr = Split("apple,banana,pear,banana,orange", ",") '将字符串转换为数组

Dim i As Integer '定义一个计数器
i = 0

Do While i < UBound(arr) '只要计数器小于数组的上限
    If InStr(i + 1, Join(arr, ","), arr(i), vbTextCompare) > 0 Then '如果当前元素在数组中有重复
        arr(i) = "" '将当前元素设为空字符串
    End If
    i = i + 1 '计数器加1
Loop

MsgBox Join(arr, ",") '将数组转换为字符串，并弹出消息框显示结果

在此示例中，我们首先定义了一个字符串数组，并使用 Split 函数将一个包含重复项的字符串转换为该数组。然后，我们使用 Do While 循环遍历该数组中的所有元素，检查每个元素是否在数组中有重复。如果有，则将该元素设为空字符串。最后，我们使用 Join 函数将处理后的数组转换为一个以逗号分隔的字符串，并使用 MsgBox 弹出一个消息框显示结果。

相关问题

VB用一个DO Until循环去重复

假设你想要在一个数组中去除重复的元素，可以使用以下的 VB 代码：

Dim arr() As Variant
Dim i As Long, j As Long, k As Long

' 假设你已经将元素存储在数组 arr 中

' 使用 do until 循环去重复
i = LBound(arr)
Do Until i = UBound(arr)
    j = i + 1
    Do Until j > UBound(arr)
        If arr(i) = arr(j) Then
            ' 将重复元素移除
            For k = j To UBound(arr) - 1
                arr(k) = arr(k + 1)
            Next k
            ReDim Preserve arr(UBound(arr) - 1)
        Else
            j = j + 1
        End If
    Loop
    i = i + 1
Loop

此代码会遍历整个数组，并将重复的元素移除。

VB用一个DO until循环去重复

可以使用一个 Do Until 循环和一个数组来去重复。

以下是一个示例代码：

Dim arr() As String
Dim i As Integer

i = 0

Do Until condition
    '获取需要去重的数据
    Dim data As String
    data = GetData()
    
    '判断数据是否已经存在于数组中
    If UBound(Filter(arr, data)) < 0 Then
        '将数据添加到数组中
        ReDim Preserve arr(i)
        arr(i) = data
        i = i + 1
    End If
Loop

在此示例中，您需要将 `GetData()` 替换为您从何处获取需要去重的数据的代码。变量 `condition` 是您希望退出循环的条件。如果数据不存在于数组中，则将其添加到数组中。最后，使用 `UBound(Filter(arr, data))` 检查数据是否已经存在于数组中。如果 `Filter` 函数返回 `-1`，则表示数据不存在于数组中，可以将其添加到数组中。 `ReDim Preserve` 用于调整数组大小以容纳新数据。