Приведем текст HTML-документа, где реализованы все конструкции цикла Do ... Loop.

<HTML>
<HEAD>
<TITLE>Пример №3</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Button1_OnClick()
  A =CInt(InputBox("Задайте число","Ввод данных" , "10", 600, 800))
  Sum = 0
  i = 2
  Do While i < A
    If (A\i)*i = A Then Sum = Sum + i
    i = i + 1
  Loop
  MsgBox "Характер числа "&A&" равен: "&Sum , 64, "Характер"
End Sub

Sub Button2_OnClick()
  A =CInt(InputBox("Задайте число","Ввод данных" , "10", 600, 800))
  Sum = 0
  i = 2
  Do Until i = A
    If (A\i)*i = A Then Sum = Sum + i
    i = i + 1
  Loop
  MsgBox "Характер числа "&A&" равен: "&Sum , 64, "Характер"
End Sub

Sub Button3_OnClick()
  A =CInt(InputBox("Задайте число","Ввод данных" , "10", 600, 800))
  Sum = 0
  i = 2
  Do 
    If (A\i)*i = A Then Sum = Sum + i
    i = i + 1
  Loop While i < A
  MsgBox "Характер числа "&A&" равен: "&Sum , 64, "Характер"
End Sub

Sub Button4_OnClick()
  A =CInt(InputBox("Задайте число","Ввод данных" , "10", 600, 800))
  Sum = 0
  i = 2
  Do 
    If (A\i)*i = A Then Sum = Sum + i
    i = i + 1
  Loop Until i = A
  MsgBox "Характер числа "&A&" равен: "&Sum , 64, "Характер"
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY>
Характером натурального числа назовем сумму всех его делителей, не равных единице и 
самому числу. Характером простого числа будем считать нуль. По нажатию кнопки выводится 
окно, где задается натуральное число, после чего рассчитывается его характер.
<FORM>
<INPUT TYPE="BUTTON" NAME="BUTTON1" Value="Цикл Do While"> 
<INPUT TYPE="BUTTON" NAME="BUTTON2" Value="Цикл Do Until"> 
<INPUT TYPE="BUTTON" NAME="BUTTON3" Value="Цикл Loop While"> 
<INPUT TYPE="BUTTON" NAME="BUTTON4" Value="Цикл Loop Until"> 
</FORM>
</BODY>
</HTML>

Текст этой программы можно взять здесь.

Результат работы приложения:

Рис.1. Иллюстрация к примеру №3