vb无效的过程调用 vb调用过程

VB差不多忘光了.不过看你的Sub里没有定义过List1啊.＂无效的过程调用或参数＂估计就是指,编译器不认识List1是什么.

关于那个下标越界 是因为你下面 for number = lbound(pathchild) to ubound(pathchild) if pathchild(number) <> ＂＂ then searchsuffix path & pathchild(number), suffix end ifnext number 在函数里面调用其本身 因为你函数初始时的pathchild数组是空 在未redim的情况下 就会报这错了 不知道你这一段是干吗用的 我去掉后还是可以使用啊 至于另一问题 未发现

你的程序可能使用了不存在的变量,函数名,或控件名,或参数传递错误(如类型不对,参数个数不匹配),请查看错误处.查找该名称是否存在或已定义.1、定义数据类.

不可以直接这样用负号来表示,改为 Form1.Scale (-1*xmax, ymax)-(xmax, -1*ymax)

mid(c, i - 1, 1)那把c = ＂adcd＂赋值赋长点看看,编程这东西从来不是编出来的,都是调试出来的,看看哪个地方可能有问题,多试试

关于那个下标越界 是因为你下面 For Number = LBound(PathChild) To UBound(PathChild) If PathChild(Number) <> ＂＂ Then SearchSuffix Path & PathChild(Number), Suffix End IfNext Number 在函数里面调用其本身 因为你函数初始时的PATHCHILD数组是空 在未REDIM的情况下 就会报这错了 不知道你这一段是干吗用的 我去掉后还是可以使用啊 至于另一问题 未发现

不用这么麻烦,直接用replace函数就行了,代码如下Private Sub Command1_Click() Dim s1, s2 As String s1 = ＂123456456＂ s2 = ＂45＂ MsgBox Replace(s1, s2, ＂＂)End Sub

当text1.text=＂＂时为空串,不能使用字符处理函数.可以先判断是否空串,再进行以下判断.

原因很明显是log函数中的值<=0造成的,使用你的代码 Private Sub Command1_Click() Dim ra As Single, rw As Single, v As Single, pai As Single, fai As Single, u As .

open app.path + ＂\list.txt＂ for input as #4 '打开本目录下的 list.txt 文件 line input #4, t form1.label1.caption = ＂更新<网页视频>播放列表中.(2/3)＂ do while not eof(4) .