5 Процедуры и функции пользователя

Задание:

а) Выполните задания предыдущей лабораторной работы (№6) с заданием nв окне InputBox и использованием процедуры пользователя для расчета по заданной формуле. Формирование исходных данных и вывод результатов в окноMsgboxвыполнить в головной программе. Процедура пользователя не

должна использовать глобальные переменные.

Текст работы:

n=InputBox("n= ", "Окно ввода Гладкий В.С. ИЭиТ 1-5 ")

n=eval(n)

ReDimx(n),y(n)

Randomize

For i=1 to n

x(i)=10*Rnd+1

Next

s=0

dim xs

for i=1 to n

s=s+x(i)

next

l= " "

For Each iks in x

l=l &iks& " " &vbLF

next

MsgBox l ,, " массив Х Гладкий В.С ИЭиТ 1-5"

subF_n

For i=1 to n

y(i)=x(i)*s

Next

End sub

Call F_n

K= " "

For Each igr in y

k=k &igr& " " &vbLF

next

MsgBox k &vblf , , "Гладкий В.С ИЭиТ 1-5"

Рисунок 5.1 - Результаты

b) Выполните задания лабораторной работы №5 с заданием погрешности вычисления в окне InputBox и использованием функции пользователя для расчета числа π по заданной формуле. Формирование исходных данных и вывод результатов в окно Msgbox выполнить в головной программе. Функция пользователя не должна использовать глобальные переменные .

Текст работы:

eps=InputBox(" eps = ", "Окно ввода Гладкий В.С ИЭиТ-1-5 ")

eps=eval(eps)

a=1

s=0

n=0

Function H(GB,BC)

DO While Abs(BC) >eps

BC= (-1)^n*(1/(6*n+1)+1/(6*n+5))

s=s+a

GB=GB+1

H=3*s

Loop

End Function

MsgBOx( "Расч. Pi = " & H(n,a) &vbLf& " п= " & n),,_

"Гладкий В.С ИЭиТ-1-5 "

Результаты:

Рисунок 5.2 – Результаты

6 Работа с информацией типа дата и время

задание:

Для приведенного ниже варианта заданий исходные данные и результаты показать в окне сообщений:

2) Определите текущую дату на часах компьютера, прибавьте к ней 1 год, 3 месяца и 25 дней и определите название дня недели полученной даты.

Текст программы:

dt=date

dt1=DateAdd("yyyy",1,dt)

dt2=DateAdd("m",3,dt1)

dt3=DateAdd("d",25,dt2)

a=WeekDay(dt3,vbMonday)

msgbox "ТЕКУЩАЯДАТА : "&dt&vblf& _

"+1год - "&dt1&vblf&_

"+ 3 месяца- "& dt2&vblf&_

"+ 25 дней - "&dt3 &vblf& _

"ДЕНЬ НЕДЕЛИ - "&a&vblf& _

"НАЗВАНИЕ ДНЯ НЕДЕЛИ - "&weekdayname(a,false,vbMonday),,_

"Гладкий В.С ИЭиТ - 1-5"

Рисунок 6.1 - Результаты

7 Работа с логическими выражениями

Задание:

В окне сообщений показать результаты вычисления логических значений :

2) "правда">"ложь" или True не равно False

Текст программы:

A= "правда">"ложь"

B=True <> False

C= A or B

msgbox "правда>ложь = " & A &vblf& "True <> False = " & B &vblf& "правда>ложь or True <> False = " & C,, "ГладкийВ.СИЭиТ-1-5"

Результаты:

Рисунок 7 – Результаты

Список использованной литературы

1. Грошев А.С. Информатика. Учебник для вузов. Архангельск, Изд-во АГТУ, 2010. – 468 с.

2. А.С.Грошев. Программирование на языке VisualBasicScriptingEdition[ Электронный ресурс]: Метод.указания к выполнению лабораторных работ. – АГТУ, 2009. –Режим доступа http://www.agtu.ru:8900/scripts/serve_home для зарегистрированных пользователей.

3. Общие требования и правила оформления работ студентов. Стандарт организации. СТО 01.04-2005. АГТУ. Архангельск. 2006. 104 с.

30