Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Mr_Frank
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 7
1

Получить список учебных заведений (с указанием названия) расположенных в Харькове

04.12.2013, 05:57. Просмотров 745. Ответов 12
Метки нет (Все метки)

'Получить список учебных заведений (с указанием названия) расположенных в Харькове и имеющих кол-во студентов дневной формы более 2000 человек, а числом профессоров более 40 человек

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Type nazv
    Nazv_uchzav As String
    Gorod As String
    Kategoria As Single
    Vid_obuch As Single
    Kol_voprof As String
    Kol_vostud As String
End Type
 
 
 
Sub laba()
Dim Vedom(10) As nazv, i, j As Integer
For i = 1 To 10
Vedom(i).Nazv_uchzav = Worksheets("Лист1").Cells(i + 1, 1).Value
Vedom(i).Gorod = Worksheets("Лист1").Cells(i + 1, 2).Value
Vedom(i).Kategoria = Worksheets("Лист1").Cells(i + 1, 3).Value
Vedom(i).Vid_obuch = Worksheets("Лист1").Cells(i + 1, 4).Value
Vedom(i).Kol_voprof = Worksheets("Лист1").Cells(i + 1, 5).Value
Vedom(i).Kol_vostud = Worksheets("Лист1").Cells(i + 1, 6).Value
Next i
Worksheets("Лист2").Range("A1").Value = "Название учебного заведения"
Worksheets("Лист2").Range("B1").Value = "Город, в котором расположено учебное заведение"
Worksheets("Лист2").Range("C1").Value = "Количество ДНТ профессоров"
Worksheets("Лист2").Range("D1").Value = "Количество студентов дневной формы обучения"
j = 2
For i = 1 To 10
If Vedom(i).Gorod = "Харьков" And Vedom(i).Kol_voprof > 40 And Vedom(i).Kol_vostud > 2000 Then
Worksheets("Лист2").Cells(j, 1).Value = Vedom(i).Nazv_uchzav
Worksheets("Лист2").Cells(j, 2).Value = Vedom(i).Gorod
Worksheets("Лист2").Cells(j, 3).Value = Vedom(i).Kol_voprof
Worksheets("Лист2").Cells(j, 4).Value = Vedom(i).Kol_vostud
j = j + 1
End If
Next i
End Sub
0
Миниатюры
Получить список учебных заведений (с указанием названия) расположенных в Харькове  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2013, 05:57
Ответы с готовыми решениями:

Получить список учебных заведений в стране
Подскажите, пожалуйста, как или где можно получить списки учебных заведений определенной страны,...

Антивирус для учебных заведений
Требуется антивирус для школы на 120 компьютеров на WinXP. Либо как можно более дешевый, либо...

Перечень Учебных заведений СПб
Добрый день Возникла необходимость иметь под рукой перечень школ , детсадов, Вузов, техникумов...

Парсер учебных заведений - первый опыт
Написал парсер учебных заведений (как учебный проект) Прошу оценить, возможно, дополнить ...

Известны данные о количестве учащихся в каждом из 15 учебных заведений
Задание на записи: Известны данные о количестве учащихся в каждом из 15 учебных заведений и о типе...

12
mobile
Эксперт MS Access
25538 / 13631 / 2925
Регистрация: 28.04.2012
Сообщений: 14,949
04.12.2013, 07:49 2
Visual Basic
1
2
3
4
5
6
7
8
Type nazv
    Nazv_uchzav As String
    Gorod As String
    Kategoria As Single
    Vid_obuch As Single
    Kol_voprof As String    'Надо Long или Integer. Иначе, сравнивая с числом, всегда получите False
    Kol_vostud As String    '--/--
End Type
2
Апострофф
Заблокирован
04.12.2013, 08:04 3
Mr_Frank, расскажите, в чём проявляется ошибка?
А ещё лучше приложите файл (желательно в формате 97-2003) с проблемой.

Добавлено через 5 минут
Цитата Сообщение от mobile Посмотреть сообщение
Kol_voprof As String 'Надо Long или Integer. Иначе, сравнивая с числом, всегда получите False
Не факт.
Если строку бэйсик в состоянии преобразовать в число, то в большинстве случаев сравнение происходит корректно.
Естесственно, подобных казусов лучше избегать...
1
snipe
3161 / 1127 / 275
Регистрация: 07.08.2013
Сообщений: 2,875
04.12.2013, 08:49 4
Visual Basic
1
f Vedom(i).Gorod = "Харьков" And CLng(Vedom(i).Kol_voprof) > 40 And CLng(Vedom(i).Kol_vostud) > 2000 Then
для подстраховки
1
04.12.2013, 08:49
Mr_Frank
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 7
04.12.2013, 20:46  [ТС] 5
Цитата Сообщение от Апострофф Посмотреть сообщение
Mr_Frank, расскажите, в чём проявляется ошибка?
А ещё лучше приложите файл (желательно в формате 97-2003) с проблемой.

Добавлено через 5 минут
Не факт.
Если строку бэйсик в состоянии преобразовать в число, то в большинстве случаев сравнение происходит корректно.
Естесственно, подобных казусов лучше избегать...


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Type nazv
    Nazv_uchzav As String
    Gorod As String
    Kategoria As Single
    Vid_obuch As Single
    Kol_voprof As Integer 'Исправил на Integer
    Kol_vostud As Integer '--/--
End Type
 
'Подстраховался
If Vedom(i).Gorod = "Харьков" And CInt(Vedom(i).Kol_voprof) > 40 And CInt(Vedom(i).Kol_vostud) > 2000 Then
0
Миниатюры
Получить список учебных заведений (с указанием названия) расположенных в Харькове  
Апострофф
Заблокирован
04.12.2013, 20:49 6
Цитата Сообщение от Mr_Frank Посмотреть сообщение
Type nazv
исправьте на
Visual Basic
1
private Type nazv
0
Mr_Frank
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 7
04.12.2013, 21:06  [ТС] 7
Цитата Сообщение от Апострофф Посмотреть сообщение
исправьте на
Visual Basic
1
private Type nazv
Вылетает ошибка.
0
Миниатюры
Получить список учебных заведений (с указанием названия) расположенных в Харькове  
Апострофф
Заблокирован
04.12.2013, 21:08 8
Цитата Сообщение от Апострофф Посмотреть сообщение
лучше приложите файл (желательно в формате 97-2003) с проблемой.
...
0
Конс
0 / 0 / 0
Регистрация: 04.12.2013
Сообщений: 8
04.12.2013, 21:14 9
пользовательский тип данных можно объявлять только в обычном модуле.
автор создает пользовательский тип данных может быть в модуле книги
0
Mr_Frank
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 7
04.12.2013, 21:28  [ТС] 10
Вот:
0
Вложения
Тип файла: xls lr6.xls (38.0 Кб, 8 просмотров)
toiai
3180 / 934 / 216
Регистрация: 29.05.2010
Сообщений: 2,026
04.12.2013, 21:46 11
Вот все работает (подкорректировал тип данных)
2
Вложения
Тип файла: xls lr6.xls (48.0 Кб, 4 просмотров)
Апострофф
Заблокирован
04.12.2013, 21:52 12
Visual Basic
1
2
3
4
5
6
7
8
Private Type nazv
    Nazv_uchzav As String
    Gorod As String
    Kategoria As Integer 'Single
    Vid_obuch As String 'Single
    Kol_voprof As Integer
    Kol_vostud As Integer
End Type
Добавлено через 1 минуту
Опоздал
1
snipe
3161 / 1127 / 275
Регистрация: 07.08.2013
Сообщений: 2,875
05.12.2013, 02:01 13
Visual Basic
1
2
3
4
5
6
7
8
Type nazv
    Nazv_uchzav As String
    Gorod As String
    Kategoria As Single
    Vid_obuch As Single 'вот ваша ошибка
    Kol_voprof As Integer 'Исправил на Integer
    Kol_vostud As Integer '--/--
End Type
а данные в таблице типа String
0
05.12.2013, 02:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2013, 02:01

Нужны задачки (из учебных заведений) для тренировки и повышения навыка
Всем здравствуйте. Интересно было бы узнать, что и как сейчас задают и проверяют в универах. Прошу...

Записи. Распечатать данные об общем количестве учебных заведений в государстве с максимальной плотностью населения
Исходными данными для программы являются: название государства, численность населения, проживающего...

Известны данные о количестве учащихся в каждом из 15 учебных заведений и о типе этого заведения (си шарп)
Пожалуйста помогите решить задачу! Буду очень благодарна! 1 Известны данные о количестве учащихся...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.