Вводим число: 12445

Московский государственный университет экономики, статистики и информатики

Кафедра математического обеспечения информационных систем и инноватики

Лабораторная работа № 3

По дисциплине «Информатика и программирование»

на тему: “Программирование экранных форм”

 

Выполнили:

Студенты группы

ДММ - 103

Савчук А.В.

Мошкало В.В.

Москва, 2012

Оглавление

1. Создание и выполнение экранной формы в программной среде Word.

1.1 Организация создания и выполнения экранной формы.

1.2 Условие задачи на использование экранной формы.

1.3 Распечатка программного кода.

1.4 Распечатка результатов выполнения.

2. Программная обработка информации, расположенной в таблице Excel, с использованием экранной формы.

2.1 Использование экранной формы в таблице Excel.

2.2 Условие задачи на использование экранной формы в таблице Excel.

2.3 Распечатка программного кода.

2.4 Распечатка результатов выполнения.

3. Постановка задачи на обработку информации с использованием экранной формы.

3.1 Описание условия задачи.

3.2 Распечатка программного кода

3.3 Распечатка результатов выполнения.

4. Литература и Internet-ресурсы.

 

Создание и выполнение экранной формы в программной среде Word

Организация создания и выполнения экранной формы

 

 

Условие задачи на использование экранной формы

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

 

Распечатка программного кода

 

 

Private Sub CmdProcess_Click()

Dim St As String

Dim St1 As Integer

Dim St2 As Integer

St = TextSt.Text

St1 = 0

St2 = 0

For I = 1 To Len(St)

If Mid(St, I, 1) = "5" Then

St1 = St1 + 1

End If

If Mid(St, I, 1) = "4" Then

St2 = St2 + 1

End If

Next I

If St1 > St2 Then

LbRez.Caption = "ïÿò¸ðîê áîëüøå"

Else

LbRez.Caption = "÷åòâ¸ðîê áîëüøå"

End If

If St1 = St2 Then

LbRez.Caption = "ïîðîâíó"

End If

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

 

 

Распечатка результатов выполнения

Вводим число: 12445