UC知道VB 无效的过程调用或参数 怎么解决?请高手指教.
来源：百度知道 编辑：UC知道 时间：2024/05/24 12:54:34
a = Text1.Text
h = 1
p = 1
a = Trim(a)
a = a + " "
b = Len(a)
Dim c(100) As Integer
For i = 1 To b
p = InStr(1, a, " ")
c(i) = Val(Mid(a, h, p - h))
h = p + 1
If p = 0 Then Exit For
a = Left(a, p - 1) + "*" + Right(a, b - p)
Next i
上面是一段截取TEXT1中的数字的代码,数字是用户输入,中间会有空格隔开.
每次运行会显示:无效的过程调用或参数
调试是:c(i) = Val(Mid(a, h, p - h))和a = Left(a, p - 1) + "*" + Right(a, b - p)语句出错.
请高手帮忙解决.谢谢!
h = 1
p = 1
a = Trim(a)
a = a + " "
b = Len(a)
Dim c(100) As Integer
For i = 1 To b
p = InStr(1, a, " ")
c(i) = Val(Mid(a, h, p - h))
h = p + 1
If p = 0 Then Exit For
a = Left(a, p - 1) + "*" + Right(a, b - p)
Next i
上面是一段截取TEXT1中的数字的代码,数字是用户输入,中间会有空格隔开.
每次运行会显示:无效的过程调用或参数
调试是:c(i) = Val(Mid(a, h, p - h))和a = Left(a, p - 1) + "*" + Right(a, b - p)语句出错.
请高手帮忙解决.谢谢!
Private Sub Command1_Click()
a = Text1.Text
h = 1
p = 1
a = Trim(a)
a = a + " "
b = Len(a)
Dim c(1 To 100) As Integer
For i = 1 To b
p = InStr(h, a, " ")
If p = 0 Then Exit For
c(i) = val(Mid(a, h, p - h))
h = p + 1
Next i
End Sub