VB循环语句

Posted 2023-04-13

我是新手 不知道for next do loop until while wend等循环语句怎么用
最好给个全中文傻瓜式的解释 别弄那些看不懂的E文 谢谢

For <循环变量>=<初赋值> To <终值> [Step <步长>]
……
……
Next <循环变量>
在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：
Dim a=0
For I=1 To 10
a=a+I
Next I
这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看：
Dim a=0
For I=10 To 1 Step –1
a=a+I
Next I
While语句也是一个很常用的循环语句，它的形式很多。

Do While …… Loop语句

While …… Wend 语句

Do …… Loop While
While后面都跟逻辑条件判断，“Do While …… Loop语句”和“While …… Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do …… Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。
与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until <条件>可以相当于While Not <条件>。
For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。
-------------------------------------------------------------
最好找点资料看看，像VB神童教程，新手还是很容易看懂的。希望对你有帮助。。。 参考技术A 呵呵，这些循环语句有个先执行后执行的问题，其实归根都差不多，应用在不同地方而已，根据自己习惯了，我写这么多商品程序，绝大部分只使用FOR NEXT 差不多了，相好好学，还是多看看资料吧，关键是多练习，靠别人给你将傻瓜式的解释还是差一点啊

VB 我感觉是关于调用类模块 帮忙翻一下 下面循环里面程序的意思

MeterObj(intCount).RoadOneSet m_PFValue(MeterObj(intCount).CommAddr - 1), MeterObj(intCount).CommAddr

这是一个循环语句里面的程序 只有这一句， meterobj为0-6的数组 intcount为循环变量 关于 Roadoneset我查找了下 就两条
Public Sub RoadOneSet(ByVal varSetFlow As Single, ByVal varMeterAdd As Integer)
End Sub
Private Sub Meter_RoadOneSet(ByVal varSetFlow As Single, ByVal varMeterAdd As Integer)
On Error Resume Next
Dim byttemp As Byte
Dim sngtemp As Single
Dim lngtemp As Long
Dim bytd(3), I As Byte
If mvarOrdSum > 0 Then
byttemp = mvarOrdPoint + mvarOrdSum
Else
byttemp = mvarOrdPoint
End If
If byttemp > 10 Then
byttemp = byttemp - 10
End If

mvarOrdList(byttemp) = 10

sngtemp = varSetFlow * 10 ^ mvarFlowDot(varMeterAdd)
lngtemp = CLng(sngtemp)
For I = 1 To 4
bytd(I - 1) = lngtemp Mod &H100
lngtemp = lngtemp \ &H100
Next
mvarComList(10).Data1 = bytd(3)
mvarComList(10).Data2 = bytd(2)
mvarComList(10).Data3 = bytd(1)
mvarComList(10).Data4 = bytd(0)

mvarOrdSum = mvarOrdSum + 1
End Sub

Public Sub RoadOneSet(ByVal varSetFlow As Single, ByVal varMeterAdd As Integer)
End Sub
这个函数是空的，你问的那句根本就什么也不做啊！ 参考技术A 分解一个4位数 到mvarconlist中追问

MeterObj(intCount).RoadOneSet m_PFValue(MeterObj(intCount).CommAddr - 1), MeterObj(intCount).CommAddr

我是问这句大概是什么意思