UC知道InStrRev
来源：百度知道 编辑：UC知道 时间：2024/06/09 00:27:29
Dim i As Long
For i = 1 To UBound(b) - 1
c(i) = InStrRev(b(i), "=", -1, 1)
Next
c(i) = InStrRev(b(i), "=", -1, 1)提示我下标越界
这是怎么回事????
Dim a As String, b() As String, c() As String
Private Sub Command1_Click()
b = Split(a, "&")
Dim i As Integer
For i = 1 To UBound(b) - 1
c(i) = InStrRev(b(i), "=", -1, 1)
MsgBox c(i)
Next
End Sub
For i = 1 To UBound(b) - 1
c(i) = InStrRev(b(i), "=", -1, 1)
Next
c(i) = InStrRev(b(i), "=", -1, 1)提示我下标越界
这是怎么回事????
Dim a As String, b() As String, c() As String
Private Sub Command1_Click()
b = Split(a, "&")
Dim i As Integer
For i = 1 To UBound(b) - 1
c(i) = InStrRev(b(i), "=", -1, 1)
MsgBox c(i)
Next
End Sub
Dim a As String, b() As String, c(100) As String
Private Sub Command1_Click()
b = Split(a, "&")
Dim i As Integer
For i = 0 To UBound(b)
c(i) = InStrRev(b(i), "=", -1, 1)
MsgBox c(i)
Next
End Sub
你的c（i）是不是个不定数组？把你的程序发完整点过来，把你数组的定义发出来才好判断啊
你这2个都是定义的不定数组,你在使用的时候要用
redim 重新定义他们的大小才可以使用