7,763
社区成员
发帖
与我相关
我的任务
分享关于对VB数组赋值的问题。
各位大侠，你们好。
现在我定义一个字符串，S=”1,2,3,6,4,8”，定义一个数组dim a(5) as integer。 现在我想把它赋给数组a，使a(0)=1,a(1)=2…用循环语句怎幺做？ 我是VB菜鸟。
谢谢！
现在我定义一个字符串，S=”1,2,3,6,4,8”，定义一个数组dim a(5) as integer。 现在我想把它赋给数组a，使a(0)=1,a(1)=2…用循环语句怎幺做？ 我是VB菜鸟。
谢谢！
...全文
请发表友善的回复…
发表回复
northwolves 2003-12-21
- 打赏
- 举报
Private Sub Command1_Click()
Const S = "1,2,3,6,4,8"
Dim a(5) As Integer
For i = 0 To 5
a(i) = CInt(Split(S, ",")(i))
Next
End Sub
Const S = "1,2,3,6,4,8"
Dim a(5) As Integer
For i = 0 To 5
a(i) = CInt(Split(S, ",")(i))
Next
End Sub
fangyds 2003-12-21
- 打赏
- 举报
Private Sub Command1_Click()
Dim s As String
Dim b() As String
Dim i As Long
s = "1,2,3,6,4,8"
b = Split(s, ",")
ReDim a(UBound(b)) As Integer
For i = 0 To UBound(b)
a(i) = CInt(b(i))
Debug.Print a(i)
Next i
End Sub
Dim s As String
Dim b() As String
Dim i As Long
s = "1,2,3,6,4,8"
b = Split(s, ",")
ReDim a(UBound(b)) As Integer
For i = 0 To UBound(b)
a(i) = CInt(b(i))
Debug.Print a(i)
Next i
End Sub
txdxun 2003-12-21
- 打赏
- 举报
mark
pcwak 2003-11-12
- 打赏
- 举报
Dim a(5) As Integer
For i = 0 To 4
a(i) = i + 1
Next i
For i = 0 To 4
a(i) = i + 1
Next i
射天狼 2003-11-12
- 打赏
- 举报
Array 函数
返回一个包含数组的 Variant。
语法
Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
说明
用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As Variant
A = Array(10,20,30)
B = A(2)
使用 Array 函数创建的数组的下界总是 0。这和其它类型的数组不同，它不受 Option Base 语句指定的下界的影响。
注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。
==========================
该示例使用 Array 函数来返回一个包含 Variant 的数组。
Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
'返回值假设下界的设置为 1（使用 Option Base
' 语句）。
MyDay = MyWeek(2) 'MyDay 的值为 "Tue"。
MyDay = MyWeek(4) 'MyDay 的值为 "Thu"。
返回一个包含数组的 Variant。
语法
Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
说明
用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As Variant
A = Array(10,20,30)
B = A(2)
使用 Array 函数创建的数组的下界总是 0。这和其它类型的数组不同，它不受 Option Base 语句指定的下界的影响。
注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。
==========================
该示例使用 Array 函数来返回一个包含 Variant 的数组。
Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
'返回值假设下界的设置为 1（使用 Option Base
' 语句）。
MyDay = MyWeek(2) 'MyDay 的值为 "Tue"。
MyDay = MyWeek(4) 'MyDay 的值为 "Thu"。
