vb.net数组删除 vbnet数组清零

利用VB.NET编写：已知数组A＝Array(7,6,5,1,8,5,3,9,4)，编写一程序，删除数组中值为x（例如为3）...

For i = 0 To 10 '假设数组长度为10

 If a(i) = 3 Then

For j = i To 10 - 1

a(j) = a(j + 1)

Next j

ReDim Preserve a(10 - 1)

Exit For

End If

Next i

If i  10 Then

For k = 0 To 10 - 1

Print a(k)

Next

Else

For k = 0 To 10

Print a(k)

Next

End If

相关问答

Q1: 在VB.Net 中，如何从数组中删除项目

来给你写了个函数，拿去用，不谢

Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()

    Dim uBound = arr.GetUpperBound(0)

    Dim lBound = arr.GetLowerBound(0)

    Dim arrLen = uBound - lBound

    If index  lBound OrElse index  uBound Then

        Throw New ArgumentOutOfRangeException( _

        String.Format("Index must be from {0} to {1}.", lBound, uBound))

    Else

        Dim outArr(arrLen - 1) As T

        Array.Copy(arr, 0, outArr, 0, index)

        Array.Copy(arr, index + 1, outArr, index, uBound - index)

        Return outArr

    End If

End Function

Q2: vb.net 数组

vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：Tag，你可以把这些关联的Tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls

If ctl.GetType().Name.ToLower() = "checkbox" Then

CType(ctl, CheckBox).Checked = CheckBox3.Checked

End If

NextEnd Sub

Q3: VB.Net去除数组中重复的字符的元素？

比如数组a。里面有5个值，其中有3个是重复的？

如果这样的话，很好办哦。

新建一个数组b，然后遍历要去除的数组a，

从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，

否则就放入数组b，直到循环结束。

关于vb.net数组删除和vbnet数组清零的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。