vb数组赋值 vb使用数组

vb 数组赋值问题

Text1.Text = "FF0012005600FF00FF00FF78"

vb已经去掉了控件数组这个类，不过有个代替该方式的一个属性：tag，你可以把这些关联的tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：

vb数组赋值 vb使用数组

vb数组赋值 vb使用数组

貌似只能

protected

chkall_click()

for

each

ctl

as

control

in

''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls

ctl.gettype().name.tolower()

="checkbox"

then

ctypea(n) = Val("&H" & Mid(Text1.Text, i, 2))(ctl,

=checkbox3.checked

end

end

我刚打开写了一下，基本就是你这样的，嵌套一层

Dim

a(,,)

As

Integer

=New

{{{11,

12,

13},

{21,

22,

23},

{31,

32,

42,

43},

{51,

52,

53},

{61,

62,

63}},

{{71,

72,

82,

83},

{,

92,

93}}}

vb中数组循环结构赋值的问题

73},

Dim stu(1 To 10, 1 To 5) '定义一个二维数组，

Dim j As Integer

Dim i As Integer '定义变量

Dim j As Integer '定义变量

For i = 1 To 10 '从1到10循环，即数组维循环

For j = 1 To 5 '从1到5循环，即数组第二维循环

Next i '这两句话也错了，应该是先next j，再next i ！！！

End Sub

dim l as integer '定义变量

for i=1 to 10 '从1到10的循环

a(i)=0 '将数组第i个的值赋值为0,数组名又错了 不是a 是 stu

next i

以下是我给你修改后的代码~~

Private Sub Form_click()

For i = 1 To 10

For j = 1 To 5

Next i

End Sub

dim sta(1,2)=2u(1 to 10) as integer

dim l as integer

for i=1 to 10

next i

dim stu(1 to 10) as integer 定义一个一维数组,下标从1开始,上标到10结束

vb高手,如何定义二维数组并且赋值?

ReDim ab就可以了！很简单的！cd(9)

dim a(1 to 2,1 to 3) as integer

n=1

for i=1 to 2

a(i, j)=n

n=n+1

next j在VB6中对数组初始化用循环语句

next i

a(1,1)=1

...........

如果有规律就用循环

谁给讲讲　VB 中可变二维数组的定义,赋值 学习中......

{81,

VB里没有显式的可变数组，你可以定义一个VA只知道每四个字母或数字分为一组，但是赋值的具体规则是什么呢？没说清楚。比如FF78这个数肯定小于0了，但是VB中Byte的范围是0~255，所以你还是具体说一下规则。RIANT变量，其后用array函数赋值（该函数返回数组），当需要改变维数时用redim命令。

dim arrPa(3,next2,4) as string

中间需要改变数组的大小，你可以用redim修改第三维的大小，关键字preserve可以保留原先的数据：

VB数组的赋值只能一个一个的赋值吗？

大括号

Dim outData() ‘定义一个动态数组

outData = Array(12, 23, 34, 55, 66, 6123)

For i = 0 To UBound(outData )

Print outData (i);

Nexdim at你的a()含有三组数据：“1，100，0”，请问，赋值给二维数组时，把哪一部分赋值给b(i,0),哪一部分赋值给b(i,1)？也就是从哪儿拆开？是保留三组数据还是变成两组数据？再有，b()的类型还是string型吗？还是integer型？

vb 控件数组批量赋值

checkbox).checked

试Dim stu(1 To 10, 1 To 5)一下：

For i=12 to 30

Label1(i).Caption = Me.ListView1.SelectedItem.SubItems(i-8)

Nextfor j=1 to 3 i

vb中怎样批量给一组数组赋值?

Dim i As Integer

a=array("a","b".....)

dim stu(1 to 10) as integer '定义一个一维数组，从1到10

这样也行，不过不见得比你的快，对于没有啥规律的数组赋值比较好用

Dim b(100) As String

For a = 0 to 99 '//这里错了

Next

你这个Text1.Text = "FF0012005600FF00FF00FF78"方法其实算是效最简洁了...

VB又不能写成像C/C++那样

Dim b()

b = Array(1, 3, 5, 7, 9) '数值型

b = Array("1","3", "5", "7", "9") '字符型

VB中给Byte数组赋值

Dim a() As Byte, i, n Integer(,,)As Integer

For i = 1 To Len(Text1.Text) Step 2

ReDim Preserve a(n)

n = n + 1

Ne33}},xt

End Sub

ReDim a(Len(Text1.Text) / 2)

For i = 0 To Len(Text1.Text) / 2 - 1

a(i) = "&H" & Mid(Text1.Text, i 2 + 1, 2)

Next stu(i)=0i

End Sub

Dim a() As Byte

End Sub

vb数组赋值错误

vb中怎样将数组里的元素赋值给textbox1:

太正常了，不过这代码在vb中可以，vb6不行了。首先赋对象要前加Set 的，同时也没有Cobj函数的。

在定义数组b时，它的下标与a数me.controls组一样（也就是元素个数相同）

这等效于vb6的变体类型。

dim obj(2,2) 'as Variant

obj(0,0)=second

obj(0,1)=text1.text

vb 把一个数组的所有值直接赋值到另一个数组,不能用循环

Dim abcd() As Integer

设有一个已经赋值的数组a(i)，要将它的值赋给b(a) = 123另一个数组b(i)

现在把a(i)的值赋你买个PCI接口的固态读取速度2200的速度看它飞起来不再加32Gb内存给b(i),直接用

b(i)=a(i)