6Visualbasicscriptingedition
6.1 Программирование на языкеVBS. Работа с окнами сообщений и ввода данных
Текст программы:
S = InputBox("Напишите строку текста","Окно для ввода данных студентки Третьяковой Кати", , 22700,1200)
Kod=MsgBox(S,vbYesNoCancel+vbExclamation," "Окно сообщений. Студентка Третьякова Катя")
MsgBox "Код нажатой кнопки во втором окне " & Kod
Рисунок 6.1 -Окно ввода
Рисунок 6.2- Окно сообщений
Рисунок 6.3 – Код нажатой кнопки-yes(равен 6)
Рисунок 6.4 – Код нажатой кнопки-no(равен 7)
Рисунок 6.5 – Код нажатой кнопки-cancale(равен 2)
6.2 Программирование на языке VBS. Типы данных. Константы. Переменные
Constx1 = "Химия"
Constx2 = "Информатика"
Constx3 = "Физ-ра"
Z = x1 & " - " & x2 & " - "& x3
W = "8.20-9.05 9.10-9.55 -" & x1 & vbLf & " 10.10-10.55 11.00-11.45 -" _
& x2 &vbLf& " 12.00-12.45 12.50-13.35 -" &x3
MsgBoxZ&vbLf&w,vbOkOnly, "Расписание на понедельник Третьяковой Кати"
Рисунок 6.6 – Константы
6.3ПрограммированиенаязыкеVBS. Массивы
DimX(5),Y(5)
X(0) = "X"
Y(0) = "Y"
X(1) = 1
Y(1) = 2
X(2) = 3
Y(2) = 4
X(3) = 5
Y(3) = 6
X(4) = 7
Y(4) = 8
X(5) = 9
Y(5) = 10
MsgBox X(0) & " " & Y(0) & vbLf & X(1) & " " & Y(1) & vbLf & _
X(2) & " " & Y(2) & vbLf & X(3) & " " & Y(3) & vbLf & _
X(4) & " " & Y(4) & vbLf & X(5) & " " & Y(5) &vbLf & "Массивы, Третьяковой"
Рисунок 6.7– Массив
6.4Программирование на языкеVBS. Условные операторыIFиCASE
Задание .1.1 Задайте в окне ввода значение переменной Х с учетом заданного подтипа данных. Выполнить задание с использованием:
а) строчного синтаксиса оператора условного перехода,
б) блочного синтаксиса условного перехода
Задание 1.2 выполнить задание с использованием оператора выбора Case
Задание .1.1 а)X = InputBox("Введите число", _
"Окно ввода числа")
If X>=0 and X<=255 Then Y = "Подтип Byte" _
Else If X>=-32768 and X<=32767 Then Y = "Подтип Integer" _
Else Y = "Подтип Long"
MsgBox "X = " & X & vbLf & Y,,"Строчный синтаксис Третьякова Катя"
Рисунок 6.8 – Пример программы (строчный синтаксис)
б)X = InputBox("Введите число", _
"Окно ввода числа")
If X>=0 and X<=255 Then
Y = "Подтип Byte"
ElseIf X>=-32768 and X<=32767 Then
Y = "Подтип Integer"
Else
Y = "Подтип Long"
End If
MsgBox"X= " &X&vbLf&Y, ,"<Блочный синтаксис, Третьяковой"
Рисунок 6.9 – Пример программы (блочный синтаксис)
Задание 1.2. Оператор выбора Case
X = InputBox("Введите название месяца с большой буквы", _
"Окно ввода месяца")
Select Case X
Case "Январь", "Февраль", "Март" _
MsgBox X & vbLf & "Y = 1 квартал"
Case "Апрель", "Май", "Июнь" _
MsgBox X & vbLf & "Y = 2 квартал"
Case "Июль", "Август", "Сентябрь" _
MsgBox X & vbLf & "Y = 3 квартал"
Case "Октябрь", "Ноябрь", "Декабрь" _
MsgBox X & vbLf & "Y = 4 квартал"
End Select
Рисунок 6.10 – Пример программы (оператор выбора Case)
6.6 Программирование на языке vbs. Операторы цикла Do и While
Вариант 1
eps= 1e-13
a= 4/3
s=a
n= 2
t1=time
q=123456
Do While Abs (q-s) > eps
q = s
a = (4*n^2)/(4*n^2 - 1)
s = s*a
n = n+1
loop
pi = 1.5707963267948966192313
t2 = time
dt=FormatDateTime(t2-t1)
pi=3.1415926535897932384626433832795
r_pi=2*s
MsgBox "Eps = " & eps & vblf & "Ист. Pi = "& pi & vblf & "Расч. Pi = " _
& r_pi & vbLf & "n = " & n & vbLf & "dt = " & dt, 4096, "Третьякова Катя"
Рисунок 6.11 – Программа v.16.1
Вариант 2
eps = 1e-13
a = 4/3
s = a
n = 2
t1=time
q=123456
Do
q = s
a = (4*n^2)/(4*n^2 - 1)
s = s*a
n = n+1
loop While Abs (q-s) > eps
pi = 1.5707963267948966192313
t2 = time
dt=FormatDateTime(t2-t1)
pi=3.1415926535897932384626433832795
r_pi=2*s
MsgBox "Eps = " & eps & vblf & "Ист. Pi = "& pi & vblf & "Расч. Pi = " _
& r_pi & vbLf & "n = " & n & vbLf & "dt = " & dt, 4096, "Третьякова Катя"
Рисунок 6.12 – Программа v.16.2
Вариант 3
eps = 1e-13
a = 4/3
s = a
n = 2
t1=time
q=123456
Do
q = s
a = (4*n^2)/(4*n^2 - 1)
s = s*a
n = n+1
loop While Abs (q-s) > eps
pi = 1.5707963267948966192313
t2 = time
dt=FormatDateTime(t2-t1)
pi=3.1415926535897932384626433832795
r_pi=2*s
MsgBox "Eps = " & eps & vblf & "Ист. Pi = "& pi & vblf & "Расч. Pi = " _
& r_pi & vbLf & "n = " & n & vbLf & "dt = " & dt, 4096, "Третьякова Катя"
Рисунок 6.13 – Программа v.16.3
Вариант 4
eps = 1e-13
a = 4/3
s = a
n = 2
t1=time
q=123456
Do
q = s
a = (4*n^2)/(4*n^2 - 1)
s = s*a
n = n+1
loop While Abs (q-s) < eps
pi = 1.5707963267948966192313
t2 = time
dt=FormatDateTime(t2-t1)
pi=3.1415926535897932384626433832795
r_pi=2*s
MsgBox "Eps = " & eps & vblf & "Ист. Pi = "& pi & vblf & "Расч. Pi = " _
& r_pi & vbLf & "n = " & n & vbLf & "dt = " & dt, 4096, "Третьякова Катя"
Рисунок 6.14 – Программа v.16.4
Вариант 5
eps = 1e-13
a = 4/3
s = a
n = 2
t1=time
q=123456
Do While Abs (q-s) > eps
q = s
a = (4*n^2)/(4*n^2 - 1)
s = s*a
n = n+1
Wend
pi = 1.5707963267948966192313
t2 = time
dt=FormatDateTime(t2-t1)
pi=3.1415926535897932384626433832795
r_pi=2*s
MsgBox "Eps = " & eps & vblf & "Ист. Pi = "& pi & vblf & "Расч. Pi = " _
& r_pi & vbLf & "n = " & n & vbLf & "dt = " & dt, 4096, "Третьякова Катя"
Рисунок 6.15 – Программа v.16.5