Линейные алгоритмы. Разветвляющиеся алгоритмы. Оператор выбора. Циклические алгоритмы. Массивы. Процедуры и функции Курсовая работа (проект)

Задача 1. Для целого числа I от 1 до 99 напечатать фразу «Мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить на слово «год» или «года». Например, 11 лет, 22 года, 51 год.

Использовать оператор выбора.

Листинг программы

Private Sub Command1_Click()

For i = 1 To 99

Select Case i

Case 1, 21, 31, 41, 51, 61, 71, 81, 91:

List1.AddItem ("Мне " + CStr(i) + " год")

Case 2 To 4, 22 To 24, 32 To 34, 42 To 44, 52 To 54, 62 To 64, 72 To 74, 82 To 84, 92 To 94:

Задача 2. Разработать проект, определяющий количество цифр (типа единиц, десятков, сотен) во введенном четырехзначном, а затем в пятизначном положительном числе. Ввести в интерфейс программы соответствующие элементы управления, отображающие вводимую и выводимую информацию.

Воспользоваться функциями деления нацело и нахождения остатка от деления.

Листинг программы

Private Sub Command1_Click()

Dim x As Long, y As Byte, r As String, m As Long

x = CLng(Text1.Text)

y = Len(Text1.Text)

m = 10

Задача 3. Составить программу перевода данного натурального числа в R-ичную систему счисления (2 <= R <= 9). Использовать рекурсию.

Листинг программы

Dim n As String, r As Byte

Public Sub trans(x As Long)

If (x = 0) Then

Exit Sub

End If

trans (x \ r)

n = n + CStr(x Mod r)

End Sub

Задача 4. Сжатие массива Color производится по элементу, цвет которого выбирается из меню «Критерий сжатия», подпунктами которого являются соответственно семь цветов.

Листинг программы

Dim color(0 To 6) As String, n As Byte

Public Sub Init()

List1.Clear

For i = 0 To n

List1.AddItem (color(i))

Next i

End Sub

Задача 5. Создать приложение, имитирующее работу часов, секундомера, с возможностью отображения системного времени.

Листинг программы

Dim s As Byte, m As Byte, c As Byte

Dim second As String, Minute As String, Hour As String

Private Sub Clock_Click()

Frame1.Visible = True

Frame2.Visible = False

End Sub