vb.net数组值,VB控件数组

vb.net数组

Dim str As String = "", temp, n As Integer

        Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

        Dim a() As String = Split(str1, ",")

        For i = 1 To UBound(a) Step 1

            a(i) = Val(a(i))

        Next

        temp = 0

        n = 0

        For i = 1 To UBound(a)

            If a(i)  temp Then

                temp = a(i)

            End If

            If a(i)  0 Then

                n = n + 1

            End If

        Next

        str = str  "正数的个数为 "  n

        str = str  "最大元素的下标为 "

        For i = 1 To UBound(a)

            If a(i) = temp Then

                str = str  i  " "

            End If

        Next

        TextBox6.Text = str

vb.net 数组的定义方法

1、点击VS工具。

2、打开后，新建一个Windows窗体应用程序。

3、新建完毕后，如图所示。

4、拖动一个按钮。

5、定义数组最常见的方法，如图示。

6、运行后，点击按钮，弹出提示正常。

7、定义数组第二种方法，属于动态的方法。

8、运行后，点击按钮，数组成功输出。

vb.net数组赋值

Dim x(8, 8)

Dim a As Integer

Dim b As Integer

b = 0

For i = 0 To 8

For j = 0 To 8

If b = 3 Then

b = 1

a = a + 1

Else

b = b + 1

End If

x(i, j) = aNext

Next

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

next

end

sub

Vb.net 中数组赋值的问题

数组赋值是指针传递,如果想复制数组就要用一个循环遍历所有元素并赋值.这样改变其中一个数组的值才不会影响到另外一个数组.