请问VB高手们我的出了什么问题

[wfl2007]

我的程序为：
str() = Split(Text1.Text, ",") '为数组赋值
n = UBound(str)
For i = 0 To n
Num(i) = CInt(str(i)) ——————这里出现下面越界错误，不知道是为什么？
Next i

[xayzmb]

For i = 0 To n -1 '错在这里
Num(i) = CInt(str(i)) ——————这里出现下面越界错误，不知道是为什么？
Next i

[vbman2003]

num是怎么定义的？

[vbman2003]

dim num() as string

str() = Split(Text1.Text, ",") '为数组赋值
n = UBound(str)
redim num(n)
For i = 0 To n
Num(i) = CInt(str(i))
Next i

[舉杯邀明月]

[Quote=引用 3 楼 vbman2003 的回复:]
dim num() as string

str() = Split(Text1.Text, ",") '为数组赋值
n = UBound(str)
redim num(n)
For i = 0 To n
Num(i) = CInt(str(i))
Next i
[/Quote]

顶一下.........

[wfl2007]

num定义整型数组

[wfl2007]

Dim Num() As Integer
Dim str() As String

[vbman2003]

[Quote=引用 6 楼 wfl2007 的回复:]
Dim Num() As Integer
Dim str() As String
[/Quote]

dim num() as integer

str() = Split(Text1.Text, ",") '为数组赋值
n = UBound(str)
redim num(n)
For i = 0 To n
Num(i) = CInt(str(i))
Next i

我前面的没看清，如果是下标越界问题，这样就行

[cbm6666]

建议楼上几位同志, 以后别再使用 str 当变量名称

Attn:楼主
Num(i) = CInt(str(i)) ——————这里出现下面越界错误，不知道是为什么？
你这行肯定是错的,因为Cint是将小蛇转为整数的涵数,而你的str(i)即非小数也不是数值,而是文字型,当然会错.


'添加 Command1 Text1

Dim num%(), i%, s
Private Sub Form_Load()
Text1.Text = "1,2,3,4,5,6,7"
End Sub

Private Sub Command1_Click()
s = Split(Text1.Text, ",") '为数组赋值
ReDim Preserve num%(UBound(s))
Me.Cls
For i = 0 To UBound(s)
num(i) = Val(s(i))
Print num(i);
Next i
End Sub

[cbm6666]

更正 8F

你这行肯定是错的,因为Cint是将小数转为整数的涵数,而你的str(i)既非小数也不是数值,而是文字型,当然会错.

[clear_zero]

Dim Num() As Integer
Dim str() As String


dim num() as integer

str() = Split(Text1.Text, ",") '为数组赋值
n = UBound(str)
redim num(n)
For i = 0 To n
Num(i) = CInt(str(i))
Next i


'-------------
欢迎来我的小店坐坐: 程序员雅琪的小店

[forbearORfolie]

别用内置函数名作为数组或变量名
text1为空，可能导致上述错误的发生

[用户 昵称]

应该用n-1

[zzyong00]

貌似应该是n吧

[zdingyun]

以下代码运行未见错误:

Option Explicit
    Dim i As Integer
    Dim str() As String
    Dim n As Integer
    Dim num()
Private Sub Command1_Click()
    str() = Split(Text1.Text, ",") '为数组赋值
    n = UBound(str)
    ReDim num(n)
    For i = 0 To n
        num(i) = CInt(str(i)) '
        Print num(i)
    Next
End Sub

Private Sub Form_Load()
    Text1 = "1.25,36,72,43,54"
End Sub

[东方之珠]

何必要建立Num数组，浪费资源！需要运算的时候，用类型转换：cint(str(i))

[knowledge_Is_Life]

接分先！

[UltraBejing]

不明LZ在说什么