二维字符数组赋值

Option Base 1
Dim A(2, 100）As Integer     ‘定义有一个二维整形数组
Private Sub Cmd_Click()
     Dim I, J As Integer
     Dim B(1 To 2, 1 To 100) As String
         B(1) = Split(Txt, ",")                ’给字符数组赋值
         B(2) = Split(Text, ",")
         For I = 1 To 2                        ‘把字符中的值给整形变量
             For J = 1 To 10
                A(I, J) = Val(B(I, J))
             Next J
给位帮我看一下，这个怎么就不对了，从提示错误“维数错误”，谢谢大家了~~~

B是一维数组！
A(I, J) = Val(B(I)(J))

不感兴趣

开通SVIP免广告

没太明白，能不能说详细一点，告诉我则么改才行，或者能加我QQ么？这样说起来方便点。
476084241，谢谢了

split的等号左边的数组不能指定大小，且返回的数组下标从0开始
Option Explicit
Dim A(2, 100) As Integer      '定义有一个二维整形数组
Private Sub Command1_Click()
      Dim I, J As Integer
      Dim B(1) As Variant
      B(0) = Split(Txt, ",")                '给字符数组赋值
      B(1) = Split(Text, ",")
      For I = 0 To 1                        '把字符中的值给整形变量
          For J = 0 To 9
             A(I, J) = Val(B(I)(J))
          Next J
     Next I
End Sub

忘改了
Dim a(1, 99) As Integer

为什么一直提示下标越界呢？
而且我写了Option Base 1，下表应该可以从一开始吧？

split返回的数组下标从0开始，不受Option Base 1的影响

A(I, J) = Val(B(I)(J))
这一步还是显示下标越界，为什么啊？这问题纠结死我了，5555555

不感兴趣

开通SVIP免广告

下标从0开始不行吗？

现在下标全是按cjsworld这位大哥说的，都是从0开始的，可老是出错，下标越界。。。
怎么办呐，现在做一个小程序，录入这部分一直攻破不了啊。。。。

我明白了，肯定是你的text里没有一百个逗号。
这种容易出错的语句，最好加上错误处理。
on error resume next '遇到错误跳过，并继续执行下一句。
on error goto 指定位置 '遇到错误时，跳向指定的行号。
指定位置: '一个叫“指定位置”的行号。命名规则与变量相同。

为什么一定要100个逗号呢？split不是可以根据输入的逗号数确定字符串数量么？还可以用ubound（B）返回个数，当时用一个文本框接收时可以做到，可是后来加成两个或多个之后就不行了。。。

那请你看看，判断了没有？
直接循环一百次，又没有足够的数组元素，你说呢？不错才怪！

哦，还真是呢，谢谢了啊，问了这么多幼稚问题，太麻烦了，

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

13回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六