13518219792
...不是很清楚 .
目前创新互联公司已为上1000家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、当阳网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
不过应该和普通的VB差不多吧.
（counter)指的应该是变量名
是在FOR循环中用的
EX:FOR I=1 TO 10 SETP 1
NEXT I
初值为1 终值为10 步长为1 当FOR刚进入时I的值就被FUZHI为1 然后 每执行完1次 就+步长 当变量的值 超过终值时 就停止循环了
你说的题目 感觉 应该用WHILE 或 DO LOOP吧
如果用FOR循环的话大概:
a=10000
FOR I = 1 TO 10000
a=a/2
if a 10 then n=i : exit for
next i
? i
结果是10次
1、含义不同：
Do While Len(a)表示只要a的长度为真（非0），就一直循环。
Do Until Len(a)表示一直循环，直到a的长度为真（非0），停止循环。
2、语法不同：
Do Until语句是只要当某个条件为假的时候重复一块代码。这是它的语法：
Do Until 条件
语句1
语句2
语句N
Loop
Do…While循环语法：
Do
语句1
语句2
语句N
Loop While 条件
扩展资料：
VB循环次数：
要程序至少执行一次，那么就将条件放置于Loop语句一行。，无论条件的值是什么。
如：【Do...Loop Until 条件】模式，表示无论条件如何，先执行循环一次，如果不符合循环条件，则立即停止，如果还符合循环条件，则继续执行。这样，程序循环过程至少执行了一次。
Do循环语句的几种形式:
1.、Do While i1 '条件为True时执行
... ... '要执行的语句
Loop
2、Do Until i1 '条件为False时执行
... ... '要执行的语句
Loop
3、Do
... ... '要执行的语句
Loop While i1 '条件为True时执行
4、Do
... ... '要执行的语句
Loop Until i1 '条件为False时执行
5、While...Wend 语句
While i1 '条件为True时执行
... ... '要执行的语句
Wend
参考资料来源：百度百科-Visual Basic
参考资料来源：百度百科-VBScript语法
Sub Main()
Dim thr As New Thread(AddressOf 循环)
thr.Start("a")
End Sub
Sub 循环(a() As String)
'这里随你干什么循环也行
For Each i As String In a
MsgBox(i)
Next
End Sub
看懂了吧 参数只能有一个 也可以不是数组，在a() As String的a后面去掉括号就行
值传递和地址传递(引用)的而导致的问题。
在For Each 的时候
当对象是值对象的时候，等于获得到一个副本。
当对象是引用对象的时候，则是获得到一个指针。
而在For To 的时候
无论对象是什么，你都获得到这个集合指定位置的指针。
更详细的，可以请参考以下内容，或直接去官方的MSDN了解
关于值类型和引用类型:
如果数据类型在它自己的内存分配中存储数据，则该数据类型就是“值类型”。“引用类型”包含指向存储数据的其他内存位置的指针。
值类型
值类型包括：
所有数字数据类型
Boolean、Char 和 Date
所有结构，即使其成员是引用类型
枚举，因为其基础类型总是 SByte、Short、Integer、Long、Byte、UShort、UInteger
或 ULong
引用类型
引用类型包括：
String
所有数组，即使其元素是值类型
类类型，如 Form
委托
非类型的元素
以下编程元素未限定为类型，因为您无法将它们中的任何一个指定为声明元素的数据类型：
命名空间
模块
事件
属性和过程
变量、常数和字段
使用对象数据类型
可以将引用类型或值类型指派给 Object 数据类型的变量。Object
变量总是存储指向数据的指针，从不存储数据本身。然而，如果将值类型指派给 Object 变量，则 Object
变量将表现得像存储自己的数据一样。有关更多信息，请参见 Object 数据类型。
通过将 Object 变量传递给 Microsoft.VisualBasic
命名空间中 Information
类的 IsReference
方法，可以确定该变量是用作引用类型还是值类型。如果 Object 变量的内容表示引用类型，则 Information.IsReference 返回 True。
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
一般多开线程写无限循环行为。
//定义线程
Dim th As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf test))
th.Start("aaa")//开始线程，可以传参
//线程执行函数
Public Sub test(ob As Object)
While True
Console.WriteLine("线程正在运行中" ob)
Threading.Thread.Sleep(1000)
End While
End Sub
