While-Wend ve Do While- Loop Döngüsü

Bir şart gerçekleştiği sürece çalışması gereken program bloklarında kullanılırlar.

Yazılım:
While Şart
Komutlar
Wend

Do While Şart
Komutlar
Loop

Yukarıdaki her iki komutta da şart gerçekleştiği sürece döngüde kalınır.

Örnek: Klavyeden girilen 10 öğrencinin notlarına göre sınıf ortalamasını hesaplayan programı yapınız.

Kod:
Private Sub Form_Load ()
Dim not (10) As Integer
Dim t As Integer
i=1
Do While i < = 10 : Not(i) = InputBox(Str(i) & ”. Öğrencinin Notu”)
t = t + not(i)
Loop
ort=t/10:MsgBox ort
End Sub