关于VBA的

发布网友发布时间：2024-08-19 00:29

共3个回答

热心网友时间：2024-08-19 01:13

while放在后面那里面的循环体至少循环一次，如果放在前面条件不适应就不会循环。运行下面的
语句试试：
Sub bijiao()
Dim i, j, isum, jsum As Integer
i = 1
Do While i < 1
i = i + 1
Loop

j = 1
Do
j = j + 1
Loop While j < 1
MsgBox "i值为：" & i & vbCrLf & "j值为：" & j
End Sub

热心网友时间：2024-08-19 01:12

Sub bijiao()
Dim i, j, isum, jsum As Integer
i = 1

Do While i <= 5
i = i + 1
Loop
'i=5时还符合条件，所以循环后i=5+1

[a1] = i

isum = 1
Do
isum = isum + 1
Loop While isum <= 5
'同上，循环后isum＝6

[b1] = isum
End Sub

'结果就是a1=b1=6, 难道不是你要的结果？

热心网友时间：2024-08-19 01:16

i=1,2,3,4,5,6（6次）先判断后执行。
isum=1,2,3,4,5，6 （也是六次）因为是后判断。