kttq.net
当前位置:首页 >> vB 字符串数组初始化 >>

vB 字符串数组初始化

定义字符串数组和负值有两种方式: 方式1: Dim StrArray() StrArray = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日") 方式2: Dim StrArray(6) As String StrArray(0) = "星期一" StrArray(1) = "星期二" StrA...

Array 函数 返回一个包含数组的 Variant。 语法 Array(arglist) 所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数,则创建一个长度为 0 的数组。 说明 用来表示数组元素的符号由变量...

For i =1 To 10 A(i)=0 Next i 就是先让i等于1,,然后执行A(1)=0,遇到Next i,就自动给i加1,i 变成2,回到上面,未超过10,就再执行A(2)=0,如此这般,一直执行到A(10)=0,自动给i加1,i 变成11,再回到上面,已超过10,就不再执行循环体。继...

Dim i As Long Dim lngStr As Long lngStr = Len(str) ReDim Strs(lngStr) For i = 0 To lngStr - 1 Strs(i) = Mid(str, i + 1, 1) Next

十分简单: Dim A() As Byte '定义字节数组 A = Text1.Text 'A就是字符串的byte数组了 Text2.Text = A '将字节数组A的内容显示到文本框2

Private Sub Form_Click() Dim a(3) As String, s As String a(0) = "111" a(1) = "222" a(2) = "333" a(3) = "444" s = Join(a, "") MsgBox s End Sub

Dim abc(2) As Integer abc = {0, 1, 2} '或者 Dim abcd() As Integer ReDim abcd(9) For i As Integer = 0 To abcd.Length - 1 abcd(i) = i Next 也可声明为字符串数组

Dim b() As String b() = Split(list1.text, " ") text1.text = b(0) text2.text = b(1) 是这样用的 不能赋值给具体的数组元素

“不能给数组赋值”这个错误是由于想要改变固定数组的大小引起的,有些函数、方法的返回值是一个数组,它们会自动设置用于接受数据的数组的大小,如果你用固定数组去接受就会产生这个错误。 Array 函数返回一个包含数组的 Variant,所以你定义K的...

因为在数组初始化中不能直接定义数组的维数,故你错在Dim label1_top(0 To 9) As Long Dim label1_left(0 To 9) As Long 指明0-9,去掉(0-9),还有你一个数据中有个b,也不对(细心阿)这样就ok了 Option Explicit Dim i Private Sub Form_Click...

网站首页 | 网站地图
All rights reserved Powered by www.kttq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com