急,在线等!
哪位高手帮忙解决下,下面的代码提示-----next 没有 for
Function ABC(A As String) As String
Dim i, j As Integer
Dim B As String
For i = 0 To Len(A)
If Mid(A, i, 1) <> "-" Then
j = j + 1
Else
Exit For
Next i
B = Left(A, j)
End If
End Function
Function ABC(A As String) As String
Dim i, j As Integer
Dim B As String
For i = 0 To Len(A)
If Mid(A, i, 1) <> "-" Then
j = j + 1
Else
Exit For
Next i
B = Left(A, j)
End If
End Function
...全文
相关推荐
PPT男女比例饼图美化教程.rar
怎么做,急,在线等!卧槽,厉害!老司机带带我!这个嘛给糖吃就告诉你。风太大,再说一遍?!别打脸首先将这个饼图肢解以下。得到如下,是不
行业文档-设计装置-简易在线带钢急峻度测量平台.zip
【标题解析】标题"行业文档-设计装置-简易在线带钢急峻度测量平台.zip"揭示了这个压缩包文件的主要内容,它包含了关于一个特定行业的技术文档,具体是关于设计一种装置,该装置用于在线测量带钢的急峻度。"
急加速急刹车标准
在谈论急加速和急刹车标准时,我们首先需要明确何为急加速和急减速。
急求学生会监察部工作计划!.doc
急求学生会监察部工作计划!.doc
急采购物品请购单DOC
在压缩包中包含的文件名为“下载自www.glzy8.com管理资源吧”急采购物品请购单.DOC,这个文件名可能表示文档来源于一个在线管理资源平台,glzy8.com,这个平台可能提供了许多类似的管理工具和模板


VB基础类
