【烟花原创】VBA零基础之第17篇 Do…Loop循环 (一)

yinjinjian

好评好评！！~~~~do loop以前不会用，现在终于明白了，可以试试看了

不信这样还重名

    Dim counter As Integer
    Dim myNum As Integer
    counter = 0
    myNum = 20
    Do While myNum > 10
        counter = counter + 1
        myNum = myNum - 1
    Loop

呃，这个好像没有死循环吧，myNum 减少到9时，就不再循环了呀

Ernsnt

谢谢楼主 学习了

loongzi

顶起

feeling_c

非常好，比书好懂多了！[em17]

ANDY0393

谢谢老师分享，收藏二进制转换代码了

1.     Sub Dec2Bin()
   
2.         '大于0的整数转换成2进制
   
3.         Dim i As Long, j As Long
   
4.         Dim str As String, strMsg As String
   
5.         i = 1000: j = i
   
6.         Do While i <> 0
   
7.             str = i Mod 2 & str
   
8.             'i mod 2 取得 i 除以2的余数
   
9.             i = i \ 2
   
10.             '\,用来对两个数作除法并返回一个整数
    
11.           Loop
    
12.         strMsg = j & " 的2进制数为：" & vbCrLf
    
13.         strMsg = strMsg & str & vbCrLf
    
14.         MsgBox strMsg
    
15.     End Sub
    

复制代码

标记，十七

tingfeng461002

tingfeng461002

Excel学徒123

{:1112:}

shwanghuafeng

Do While 条件表达式
        执行语句 '设为语句1
        Exit Do
        执行语句 '设为语句2
        条件控制语句
    Loop
我想问下其中各个语句的关系：
条件表达式为真，则执行语句1，循环直到条件表达式为假，退出loop
1：Exit do和条件控制语句都是用来控制循环结束的，那么通常情况下只需要取其中一种就可以了吧？
2：在所有exit do的用法中，If...then exit do这一种判断方式是不是最常用的一种，而且这里的if是不需要else来结束的？
3：上式中的语句2是写在Exit do之后的，既然此时已经退出loop循环，那如果把语句2写在loop之外好像也完全没区别？而如果没有Exit do，改用条件控制语句来结束循环，那么语句2其实就是语句1，对吗？
4：接问题3，（有Exit do时）语句2的执行次数永远为1，对吗？
请大大解答，感激不尽！