While.....Wend和Do While....Loop

【前言】

今天敲學生系統時遇到了這樣一個循環語句：While.....Wend，這是我第一次見，我感覺很好奇，研究了一下，發現原來他和我們常用的Do  While...Loop 循環語句有一些微妙的關係，想知道就往下看看？？

 

【正文】

While 
    condition[statements]
Wend

循環語句是指在執行程序語句時，需要對其中的某些語句重複執行多次，被重複執行的程序段稱爲循環體。

條件，即循環條件是一個關係表達式或者邏輯表達式，其值爲True和False

在之前我總結過一篇“用不同循環語句進行1到100的累加”：https://blog.csdn.net/weixin_43319713/article/details/104593228

裏面我用不同形式的循環語句來執行一個實例，那既然他們的含義相同、執行條件也相同，那我用這個While....Wend語句來同樣實現1到100的累加可不可以呢？來試試叭

 

實例：

Private Sub Form_Click()
    Dim s As Integer, n As Integer
    Show
    s = 0: n = 1
    
    While n <= 100
        s = s + n
        n = n + 1
    Wend
    Print "1+2+3+.....+100="; s
End Sub

 <思路>

要進行一個1到100的累加。

設置n的初值爲1，一直不斷進行1+2+3+到n大於等於100時，就循環結束。

While....Wend語句是可以執行和Do...Loop While語句和Do While...Loop語句相同的程序，他們相當於三胞胎，三者之間可以相互替換，並且最後實現效果都是相同。

 

結合學生系統中的判斷班號是否重複問題：如下圖