Пример 9. Все перечисленные в дан

Пример 8

Пример 7

Пример 6

Пример 5

Пример 4

Пример 3

Пример 2

Пример 1

ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ

Все перечисленные в данном примечании операторы затрудняют чтение текста программы пользователем, поэтому их использование должно быть ограничено теми местами, где без этого не обойтись.

'Имя файла: From 1 to 20.vbs

'Вывод на экран чисел от 1 до 20 с шагом 2

For x=1 To 20 Step 2

s=s&vbCrLf&x

MsgBox "Последовательность от 1 до 20 с шагом 2: " & s

Next

'Имя файла: For_Next.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции Do... Loop Until

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

s=0

For a=1 to 60

s=s+1/a

Next

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: For_Step.vbs

'Вычисление значений функции y=x*x+3 при х изменяющемся от -12 до 12 с 'шагом 2

MsgBox "Вычисление значений функции y=x*x+3"&vbCrLf&_

"при х изменяющемся от -12 до 12 с шагом 2",,_

"Вычисление значений функции"

For i=-12 to 12 Step 2

s1=i*i+3

s="при x="&i&" y="&s1&vbCrLf&s

Next

MsgBox s,,"Значения функции y=x*x+3"

'Имя файла: While_Wend.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции While...Wend

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

a=1

s=0

While a<=60

s=s+1/a

a=a+1

Wend

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: Do While__Loop.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции Do While...Loop

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

a=1

s=0

Do While a<=60

s=s+1/a

a=a+1

Loop

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: Do__Loop While.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции Do Loop...While

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

a=1

s=0

Do

s=s+1/a

a=a+1

Loop While a<=60

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: Do Until__Loop.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции Do Until...Loop

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

a=1

s=0

Do Until a>60

s=s+1/a

a=a+1

Loop

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: Do __Loop Until.vbs

'Вычислить сумму s=1+1/2+1/3+1/4+...+1/60

'C использованием конструкции Do... Loop Until

option explicit

dim a, s

MsgBox "Вычисление суммы s=1+1/2+1/3+1/4+...+1/60"

a=1

s=0

Do

s=s+1/a

a=a+1

Loop Until a>60

MsgBox "s=1+1/2+1/3+1/4+...+1/60= "&s,,"Результат:"

'Имя файла: simple.vbs

'Пусть a и b - положительные вещественные числа и a>b.

'Данная программа находит такое минимальное натуральное x, что x*b>a

option explicit

dim a, b, x

a=CDbl(InputBox("Введите положительное вещественное значение a: ","Окно ввода:"))

If a>0 Then

b=CDbl(InputBox("Введите положительное вещественное значение b,

меньшее чем "&a,"Окно ввода:"))

If ((a>b)And(b>0)) Then

x=1

While x*b<=a

x=x+1

Wend

MsgBox "a="&a&" b="&b&vbCrLf&_

"Найдено минимальное натуральное"&_

"x="&x&", при котором x*b>a",,"Результат:"

Else

MsgBox "Вы ввели неправильное значение ",vbCritical,"Ошибка:"

End If

Else

MsgBox "Вы ввели неправильное значение ",vbCritical,"Ошибка:"

End If

Дата добавления: 2014-12-29