Рынок информационных услуг

Автор: Пользователь скрыл имя, 18 Февраля 2012 в 17:27, контрольная работа

Краткое описание

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

Оглавление

1. Рынок информационных продуктов и услуг. Задание 4 стр.2
2. Файлы и папки операционной системы Windows. Задание 52 стр.5
3. Оператор присваивания в алгоритмическом языке Visual Basic. Задание 94 стр.9
4. Задача 3 стр.16
5. Задача 13 стр.18
6. Использованная литература стр.20

Скачать в ZIP (61.13 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Моя контрольная.docx

— 64.26 Кб (Скачать)

     If ITmp1 <= F Then GoTo calcF 

     XSr = Sqr(CDbl((SummX * F) / SummF))    'вычисляем среднюю квадратичную(Sqr - корень) 

     ListView1.ListItems.Clear               'чистим таблицу ListView1

     k = 1

     ListView1.ListItems.Add k, "K" & k, CStr(X)   'добавляем  полученные значения в таблицу

     ListView1.ListItems.Item(k).SubItems(1) = CStr(F)

     ListView1.ListItems.Item(k).SubItems(2) = CStr(XSr)

     End Sub 

     Private Sub Command2_Click()

     Dim ITmp2 As Integer         'переменная ITmp2 типа "Целое" (два на конце  значит для расчета второго  способа)

     X = CInt(Combo1.Text)        'помещаем  значение поля "варианты" в  переменную Х

     F = CInt(Combo2.Text)        'помещаем  значение поля "частота" в  переменную F 

     SummX = 0

     For ITmp2 = 1 To X

         SummX = SummX + ITmp2 * ITmp2    'вычисляем  промежуточную сумму "варианты"

     Next ITmp2 

     SummF = 0

     For ITmp2 = 1 To F

         SummF = SummF + ITmp2     'вычисляем промежуточную сумму "варианты"

     Next ITmp2 
 

     XSr = Sqr(CDbl((SummX * F) / SummF))    'вычисляем  среднюю квадратичную(Sqr - корень) 

     ListView2.ListItems.Clear               'чистим таблицу ListView2

     k = 1

     ListView2.ListItems.Add k, "K" & k, CStr(X)   'добавляем  полученные значения в таблицу

     ListView2.ListItems.Item(k).SubItems(1) = CStr(F)

     ListView2.ListItems.Item(k).SubItems(2) = CStr(XSr) 

     End Sub 

     Private Sub Form_Load()

     Combo1.Clear

     Combo2.Clear

     Dim k As Integer

     k = k + 1

     For k = 1 To 100

         Combo1.AddItem k

         Combo2.AddItem k

     Next k

     Combo1.ListIndex = 0

     Combo2.ListIndex = 0

     End Sub 
 
 
 
 
 

     Использованная  литература: 

  1. Родионов  И.И. Мировой рынок информационных услуг: электронная деловая и  коммерческая информация. Серия "Технология электронных коммуникаций", М.:,1992
  2. Справка и поддержка Windows
  3. Ссылки:

     http://msdn.microsoft.com/ru-ru/library/41d8z008.aspx

     http://msdn.microsoft.com/ru-ru/library/fz1zs43f.aspx

     http://msdn.microsoft.com/ru-ru/library/0et089eb.aspx 

     http://msdn.microsoft.com/ru-ru/library/s7s8d7f4.aspx 

     http://msdn.microsoft.com/ru-ru/library/4wdszwd9.aspx          

     http://msdn.microsoft.com/ru-ru/library/dcy3afzt.aspx  

     http://msdn.microsoft.com/ru-ru/library/3b25bh2c.aspx         

     http://msdn.microsoft.com/ru-ru/library/154dsd3t.aspx     

Информация о работе Рынок информационных услуг