Foxtable(狐表) → 用户栏目 → 专家坐堂 → 程序问题


  共有3316人关注过本帖树形打印复制链接

主题：程序问题
帅哥哟，离线，有人找我吗？
huangzhongdui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1102 威望：0 精华：0 注册：2014/1/6 10:35:00 		程序问题  发帖心情 Post By：2014/1/28 10:04:00 [显示全部帖子]

For k As Integer =0 To a(4).length-1 
w(k)=mid(a(4),k+1,1)
messagebox.show(w(k))
Next  
这段代码会报错为什么
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140128100339.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
huangzhongdui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1102 威望：0 精华：0 注册：2014/1/6 10:35:00 		  发帖心情 Post By：2014/1/28 10:12:00 [显示全部帖子]

Dim sf As String
Dim w() As String 
Dim w1() As String
Select Case a(4).length
    Case 1
        sf = "价格整数1"
    Case 2
        sf = "价格整数2"
    Case 3
        sf = "价格整数3"
    Case 4
        sf = "价格整数4"
    Case 5
        sf = "价格整数5"
End Select 
messagebox.show("starting" & ":" & a(4).length)
For k As Integer =0 To a(4).length-1 
w(k)=mid(a(4),k+1,1)
messagebox.show(w(k))
Next   
 回到顶部
帅哥哟，离线，有人找我吗？
huangzhongdui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1102 威望：0 精华：0 注册：2014/1/6 10:35:00 		  发帖心情 Post By：2014/1/28 10:59:00 [显示全部帖子]

a(4)是一个字符串可以理解"19"
这个值是没有任何问题的
问题出现在给数组w（）赋值的时候
w(k)=mid(a(4),k+1,1)这句的问题
 回到顶部
帅哥哟，离线，有人找我吗？
huangzhongdui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1102 威望：0 精华：0 注册：2014/1/6 10:35:00 		  发帖心情 Post By：2014/1/28 11:07:00 [显示全部帖子]

我知道原因了这个是因为数组没有设置长度的原因，如果是数组赋值个数组的话是不用赋长度的
所以说这个东西设置的会给人带来误解
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询