Цикли VBScript: Do while, Do Until, While, For each (приклад)

Чому у VBScript використовуються цикли?

Цикли використовуються для виконання одного й того ж блоку коду знову і знову. Існує кілька циклів VBScript.ping оператори. Деякі з VBScript looping оператори Do While (Виконувати доти), Do Until (Виконувати доти), For…..Next (Для…Далі) тощо. Отже, як ви вирішите, який туалетping твердження, яке використовувати для ваших потреб?

Під час виконання циклів ви можете знати, а можете й не знати, скільки разів потрібно виконати набір інструкцій. Наприклад, ви хочете обчислити суму двох чисел десять разів. У цьому випадку ви вже знаєте, що хочете повторити блок коду 10 разів. Припустимо, ви хочете обчислити суму двох чисел, доки певна змінна не стане істинною. Тут ви не знаєте, скільки разів має виконуватися цикл. Тому, залежно від того, чи знаєте ви кількість виконань, ви можете використовувати різні типи інструкцій.ping заяви.

Для…Наступного туалетуping Оператори використовуються, якщо потрібно повторити блок коду скінченну кількість разів, тобто якщо відомо кількість разів, якщо потрібно повторити блок коду.

Робити "Поки" та "Робити доки" туалетping Оператори використовуються, коли потрібно повторювати блок коду, доки умова не стане істинною або хибною, тобто коли невідомо, скільки разів потрібно виконати блок коду.

Давайте поглянемо на ці туалетиping заяви одне за одним.

VBScript Do While Loop

Якщо ви не знаєте, скільки разів вам потрібно виконати блок коду, ви будете використовувати цикли Do While. Наприклад, ви хочете вивести повідомлення «Ласкаво просимо», коли значення змінної x менше 5. У такому випадку буде використано цикл Do While.

<script type="text/vbscript">
Dim x
x=1
Do While x<5
document.write("Welcome.")
x=x+1
Loop
</script>

Якщо ви спробуєте виконати код, ви отримаєте такий результат:

Блок виконується чотири рази (коли x=1,2,3, 4, 5 і 1), а цикл завершується, коли значення x стає XNUMX. Якщо ви забудете оператор x=x+XNUMX, ваш цикл стане нескінченним один. Цей вид петель відомий як нескінченні циклиНескінченні цикли можуть навіть призвести до збою вашої системи. Тому, під час використання Do While looping оператори, вам слід переконатися, що є якийсь код, який зробить так, щоб туалетping умова істинна в той чи інший момент.

Якщо на початку присвоїти змінній x значення 7, то блок коду не буде виконано жодного разу. Припустімо, що ви хочете виконати блок коду принаймні один раз незалежно від умови, тоді ви можете використовувати цикл Do While. Змініть код так:

Приклад VBScript:

<script type="text/vbscript">
Dim x
x=7
Do 
document.write("Welcome.")
x=x+1
Loop While x<5
</script>

Якщо ви виконаєте цей код, ви отримаєте повідомлення «Ласкаво просимо» лише один раз. Тут умова перевіряється лише після одного виконання циклу.

VBScript Do Until Loop

Цикл «Do Until» також використовується, коли ви не знаєте, скільки часу потрібно для виконання блоку коду. Перший блок коду в циклі Do Until (Do While x<5) еквівалентний наведеному нижче блоку коду.

<script type="text/vbscript">
Dim x
x=1
Do Until x=5
document.write("Welcome.")
x=x+1
Loop
</script>

Це дасть вам той самий результат, що й перший блок коду в циклі Do While. Ви побачите привітальне повідомлення чотири рази. Подібно до Do …..Loop While, ми також маємо Do…Loop Until.

Якщо ви хочете вийти з циклу Do While або Do Until між ними, ви можете скористатися оператором Exit Do. Припустімо, ви хочете вийти з блоку, коли значення x стає 3 у наведеній вище програмі, тоді вам потрібно закодувати так:

<script type="text/vbscript">
Dim x
x=1
Do Until x=5
If x=3 Then Exit Do
document.write("Welcome.")
x=x+1
Loop
</script>

Якщо ви виконаєте код, ваш результат виглядатиме так:

Тут цикл виходить, коли значення x стає 3.

VBScript While Loop

Цикл While…Wend схожий на цикл Do While, але не використовується широко. Оскільки Do While є більш структурованим, ніж While…..Wend, програмісти зазвичай використовують оператори Do While.

<script type="text/vbscript">
Dim x
x = 1   
While x < 5   
document.write("Welcome.")
x=x+1
Wend  
</script>	

Вихід буде

VBScript для наступного циклу

Цикл For-Next можна використовувати для виконання блоку коду певну кількість разів. «Цикл VBScript For» визначає змінну лічильника та її початкове та кінцеве значення. Оператор Next збільшує змінну лічильника на одиницю.

For i = 1 To 5
  document.write("The number is " & i & "
")
Next

Якщо ви виконаєте код, ви отримаєте такий результат:

VBScript For-Step-Next Loop

За замовчуванням змінна лічильника збільшується на одиницю. Якщо ви хочете збільшити або зменшити змінну лічильника на вказане вами значення, ви можете використати цикл For….Step….Next. Припустімо, у наведеному вище коді ви хочете збільшити лічильник на 2, а потім змініть свій код таким чином:

For i = 1 To 5 Step 2
  document.write("The number is " & i & "<br />")
Next
</script>

Результатом цього коду буде:

Якщо ви хочете вийти з циклу For Next або For Step Next між ними, ви можете використати Exit для оператора. Припустімо, що ви хочете вийти з блоку, коли значення i стає 3 у наведеній вище програмі, тоді вам потрібно закодувати так:

<script type="text/vbscript">
For i = 1 To 5 Step 2
  If i=3 Then Exit For
  document.write("The number is " & i & "<br />")
Next
</script>

Вихідний сигнал буде:

Цикл VBScript For-Each-Next

Якщо ви хочете повторити блок коду для кожного елемента колекції або для кожного елемента масиву VBS, вам потрібно використовувати цикл For…Each…Next.

<script type="text/vbscript">
Dim students(4)
students(0)="John"
students(1)="Hanah"
students(2)="Sarah"
students(3)="Kevin"
students(4)="Emma"

For Each x In students
  document.write(x & "<br />")
Next
</script>

Висновок зазначеного вище коду буде

Code Приклад

<html>
<head>

<script type="text/vbscript">
Dim name, length
name = InputBox("Enter your name")
length = Len(name)’Gives length of the input string

For i = 1 To length
  txt = Mid(name,i,1)'Returns a specified number of characters from a string, the first parameter is the string, second parameter is the starting position and third parameter is the number of characters to return
  If txt="a" or txt="A" or txt="e" or txt="E" or txt="i" or txt="I" or txt="o" or txt="O" or txt="u" or txt="U" Then 
  counter = counter+1
  End If
Next
document.write("Hi " & name & "!!!Your name contains " & counter & " vowels.")
</script>

</head>
<body>

</body>
</html>

Збережіть файл як loop.html у бажаному місці. Тепер відкрийте файл в Internet Explorer, і ви отримаєте поле з проханням ввести своє ім’я. Введіть ім’я, скажімо, Аарон, наприклад:

Натисніть OK, і результат виглядатиме так:

Поширені запитання