Компьютерная подготовка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
counter = count()
MsgBox "Общее количество абонентов: " + Str(counter)
Else
myRecord = getRecord(ActiveCell.EntireRow)
If StreetOption.Value Then
title = "Отчет по улице"
street = InputBox("Задайте наименование улицы:", title, myRecord.street)
If Len(street) > 0 Then
street = Trim(street)
counter = count(street)
MsgBox "Количество телефонов на улице '" + street + "': " + Str(counter)
End If
Else
title = "Отчет по дому"
street = InputBox("Задайте наименование улицы:", title, myRecord.street)
If Len(street) > 0 Then
street = Trim(street)
no = InputBox("Улица '" + street + "'" + Chr(10) + "Задайте номер дома:", title, myRecord.no)
If Len(no) > 0 Then
no = Trim(no)
counter = count(street, no)
MsgBox "Количество телефонов в доме '" + street + " " + no + "': " + Str(counter)
End If
End If
End If
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Главная