Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с лабораторной работой / 17 сообщений из 17, страница 1 из 1
29.11.2005, 22:34
    #33407148
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Задание: Создать массив из 10 элементов, заполнить его с использованием текстового поля и вывести на экран, разделить элементы массива на группы: "А-И", "К-Т", "У-Я" и вывести на экран в массив ListBox, записать в файл по 3 элемента в строку, сделать переход к форме 2 и считать файл по 2 элемента в 2 массива и вывести на экран.
Зарание спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2005, 09:27
    #33407488
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Ну вот, под конец года студенты активизировались...
Вы тоже хотите, чтобы за вас все написали, или у вас что-то конкретно не получается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2005, 22:23
    #33412513
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
У меня все не получается, помогите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2005, 22:28
    #33412517
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
пожалуйста...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2005, 09:19
    #33415147
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Людииии....help!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2005, 09:42
    #33415150
Borya7
Borya7
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Попробуем разобраться в постановке задачи.
Есть строковый массив(10), его надо разделить на 3 группы по лидирующим буквам, вопрос автору - вывести на экран все в один листбокс или в три отдельных?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2005, 11:24
    #33415176
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
[quot APRILL]Задание: Создать массив из 10 элементов
Не из 10, а из 12 элементов.
Вывести в 3 листбокса отдельно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2005, 08:48
    #33416280
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Распиши подробней, что к чему. А то ты походу разбора задачи начинаешь менять исходные данные.

1. Дан массив из 12 элементов.
2. Заполняем его посредством текстового поля.
3. Выводим на эран (в виде MsgBox или в список?).
4. Разделяем массив на 3 массива по группам "А-И", "К-Т", "У-Я".
5. Выводим все в 3 списка?
6. Записываем в файл (исходный массив или массивы групп?)
7. Считываем из этого файла по 2 элемента в 2 массива.
8. Выводим на экран (в виде MsgBox или в список?).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2005, 21:26
    #33420821
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
3.Вывести на экран по-любому, все равно в List или в MsgBox
4.=5.Создаем массив ListBox из 3-х элементов для вывода результатов деления массива из 12 элементов строкового типа на 3 группы: "А-И", "К-Т", "У-Я"
(Это делается с помощью Select Case)
6.Записываем в файл результаты из списков.Это выглядит приблизительно так:
Private Sub Command2_Click()
Open "File1.txt" For Output As #1
Write #1, mass(0), mass(1), mass(2), mass(3)
Write #1, mass(4), mass(5), mass(6), mass(7)
Write #1, mass(8), mass(9), mass(10), mass(11)
Close #1
End Sub
(Я взяла это из другой программы)
7. Сделать переход ко 2-й форме, открыть файл для чтения(Open "File1.txt" For Input As #1), считывать данные этого файла по 2 элемента в 2 массива
8. Вывести тоже без разницы куда, можно в List
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.12.2005, 21:28
    #33420826
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Пожалуйста, напишите хоть что-то...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2005, 12:42
    #33421907
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Насчет пункта 4,5.

Допустим у нас есть массив Arr(11):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
0	ААА
1	БББ
2	ВВВ
3	ГГГ
4	ДДД
5	ККК
6	ЛЛЛ
7	МММ
8	ННН
9	ООО
10	УУУ
11	ЯЯЯ

APRILL5.Создаем массив ListBox из 3-х элементов для вывода результатов деления массива из 12 элементов строкового типа на 3 группы: "А-И", "К-Т", "У-Я"

Должен получится один массив ArrGroup(2):

Код: plaintext
1.
2.
0 ААА;БББ;ВВВ;ГГГ;ДДД
1 ЛЛЛ;МММ;ННН;ООО
2 УУУ;ЯЯЯ

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2005, 16:44
    #33423021
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
f = FreeFile()
For i = 1 To 2
Load Lst(i)
Lst(i).Visible = True
Lst(i).Left = Lst(i - 1).Left + Lst(i - 1).Width + 250
Next i
St = ""
Open "w:\1.txt" For Append As #f
For i = 1 To 12
Mas(i) = InputBox("Введите элемент № " & i)
St = St & " " & Mas(i)
If i / 3 = i \ 3 Then
Print #f, St
St = ""
End If
Select Case InStr(RusAlf, LCase(Left(Mas(i), 1)))
Case Is < 12
Lst(0).AddItem Mas(i), Lst(0).ListCount
Case Is < 21
Lst(1).AddItem Mas(i), Lst(1).ListCount
Case Is > 20
Lst(2).AddItem Mas(i), Lst(2).ListCount
End Select
Next i
Close #f
Form2.SetFocus
i = 0
St = ""
Open "w:\1.txt" For Input As #f
While Not EOF(f)
Input #f, St
Слова разделены пробелами. Считываешь строку и значения массива из нее. Записываешь в 2 новых массива.
Wend
Close #f

Я правильно понял?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2005, 22:58
    #33426208
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
APRILL, набросал. Посмотри.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.12.2005, 19:43
    #33428428
APRILL
APRILL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Пользователь2, спасибо огромное!!!
А можно в Select Case обойтись без With...End With ?
Если бы еще комментарии были...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.12.2005, 08:34
    #33429720
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
APRILLА можно в Select Case обойтись без With...End With ?
Да можно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
29.01.2013, 14:35
    #38128908
Paflik
Paflik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
помогите сделать вот такое на Visual Basic Моделирование движения тела с переменной массой (взлет ракеты).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 14:40
    #38128930
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с лабораторной работой
Читал уже?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с лабораторной работой / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 159ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157177]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 14ms
total:  159ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]