- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 程序问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45507)
-- 发布时间：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
此主题相关图片如下：qq截图20140128100339.jpg-- 发布时间：2014/1/28 10:09:00
--
代码没贴全，例子也没有，判断不出来。
-- 发布时间：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
-- 发布时间：2014/1/28 10:25:00
--
a(4)是什么？
最好做个小例子传上来，在例子上做，好测试。
[此贴子已经被作者于2014-1-28 10:25:35编辑过]
-- 发布时间：2014/1/28 10:59:00
--
a(4)是一个字符串可以理解"19"
这个值是没有任何问题的
问题出现在给数组w（）赋值的时候
w(k)=mid(a(4),k+1,1)这句的问题
-- 发布时间：2014/1/28 11:07:00
--
我知道原因了这个是因为数组没有设置长度的原因，如果是数组赋值个数组的话是不用赋长度的
所以说这个东西设置的会给人带来误解