网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
06月22日漏签0天
vba吧 关注:17,096贴子:66,990
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 8回复贴,共1页
<<返回vba吧
>0< 加载中...

数组的标号没有规律,一会是1,一会是0,求解

  • 只看楼主
  • 收藏

  • 回复
  • zpp007123123
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼



  • zpp007123123
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
dicfin.Add midarr(n, 3), Array(Join(Array(midarr(n, 1), midarr(n, 2), midarr(n, 3), midarr(n, 4), midarr(n, 5), midarr(n, 6), midarr(n, 7), midarr(n, 8)), "-"))
Else
arr11 = dicfin.Item(midarr(n, 3))
ReDim Preserve arr11(1 To UBound(arr11) + 1)
arr11(UBound(arr11)) = Array(Join(Array(midarr(n, 1), midarr(n, 2), midarr(n, 3), midarr(n, 4), midarr(n, 5), midarr(n, 6), midarr(n, 7), midarr(n, 8)), "-"))
dicfin.Item(midarr(n, 3)) = arr11
End If
Next n
finarr = dicfin.Items
finarr 的第二个标号变来变去是什么原因


2026-06-22 01:28:48
广告
不感兴趣
开通SVIP免广告
  • baifandu2013
  • 武林新贵
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
从你截图上看,没问题啊,字典存储数组就是这样的啊。


  • zpp007123123
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
数组的起始编号一会是0一会是1,没有规律,总是提示越界,是不是软件BUG


  • Excel搭档
  • 人中龙凤
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
没有声明的话,一维数组0开始


  • fwpfang2
  • 自成一派
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
option base 1
在最顶加这一句


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 8回复贴,共1页
<<返回vba吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示