这段VB代码为什么提示下标越界？

显示全部楼层 · 发表于 2011-5-14 22:04:50

本帖最后由 25636 于 2011-5-15 13:28 编辑

Option Base 1
Private Type timusz
Numb As Integer
Question As String
ChooseA As String
ChooseB As String
ChooseC As String
ChooseD As String
Answer As String
Daan As String
End Type

Dim timu() As timusz

Private Sub cmdAdd_Click()
Dim j As Integer
timu(j).Numb = j
timu(j).Question = Timuedit.Text
timu(j).ChooseA = Aedit.Text
timu(j).ChooseB = Bedit.Text
timu(j).ChooseC = Cedit.Text
timu(j).ChooseD = Dedit.Text
'上面的文本框都是字符串
Put #1, j, timu(j)

MsgBox ("添加成功！")

End Sub

这段VB代码为什么提示下标越界？

显示全部楼层 · 发表于 2011-5-14 22:19:15

数组的下标从0开始，不是从1开始

显示全部楼层 · 发表于 2011-5-14 22:45:50

VB.....

应该淘汰才是的

显示全部楼层 · 发表于 2011-5-14 23:09:58

redim timu(?)as timusz

显示全部楼层 · 发表于 2011-5-15 10:57:16

回复 4楼 xiaoluo 的帖子

我不明白？
就是把

Dim timu() As timusz

改成

redim timu(?)as timusz

显示全部楼层 · 发表于 2011-5-15 10:58:55

回复 2楼伊の星的帖子

就是说变量j不能一开始就是1吗？
或者说数组的第一项一定要被填充？？？

显示全部楼层 · 发表于 2011-5-15 11:48:48

回复 3楼 kinguen 的帖子

什么嘛~vb上手快的~~~而且也不错啊~~其实易语言也很给力的~

显示全部楼层 · 发表于 2011-5-15 12:15:17

回复 5楼 25636 的帖子

不是：
是在 j=1
下面
加：redim timu(j) as timusz
或：redim preserve timu(j) as timusz '(这个应该是你想要的)

2 楼的回答可以忽略。在VB 中可以不那样子。

显示全部楼层 · 发表于 2011-5-15 12:18:57

还有：那个变量 j 永远为 1
想实现什么功能？发出了所有的代码？

显示全部楼层 · 发表于 2011-5-15 12:35:37

本帖最后由 25636 于 2011-5-15 12:36 编辑

回复 9楼 xiaoluo 的帖子

实现的是把值赋给自定义类型的数组，数组有多项记录，不单单是1项
然后把数据写入txt中，关闭/重新启动程序后，仍然能访问
【更多代码待会附上】

[讨论] 这段VB代码为什么提示下标越界？