ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста!
14 сообщений из 14, страница 1 из 1
Помогите пожалуйста!
    #38515044
enda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
enda
Гость
Составить программу, которая на входе должна получать последовательность цифр, после чего программа показывает цифру, порядковый номер которой ввел пользователь.
...
Рейтинг: 0 / 0
28.12.2013, 17:45
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515049
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
enda,

Два инпут бокса и вперед. Первый берет число и запоминает в виде строки. Второй берет порядковый номер. Строку переводишь функцией split в массив и выводишь элемент массива с введенным порядковым номером (или номером на единицу меньше). Как работают InputBox и Split, прочитай в help или погугли.
...
Рейтинг: 0 / 0
28.12.2013, 18:06
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515057
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
"Получать последовательность" откуда? Интерактивно (из стандартного потока, от пользователя), из файла, от устройства, из потока... наконец, может, просто должна сгенерировать случайным образом?
Как выглядит получаемая последовательность (десятичные цифры через пробел,через зяпятую, ещё как-то...)?
Реализация: VB, VBA, VB.NET?

Впрочем, могу сразу предложить алгоритм: пишем последовательно все поступающие цифры в виде символов в текстовую строку cInStr (либо преобразуем поступившую строку так, чтобы в ней остались одни цифры) -> спрашиваем у пользователя номер N -> показываем символ Mid(cInStr,N,1) . Можно ещё добавить проверку на выход N за длину строки...
...
Рейтинг: 0 / 0
28.12.2013, 18:15
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515060
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
AndreTM,

Поток цифр поступает по телеграфу. Цифры римские.
...
Рейтинг: 0 / 0
28.12.2013, 18:18
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515075
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VladConnЦифры римские.я еще могу понять, что такое римские числа. Но что такое римские цифры?
...
Рейтинг: 0 / 0
28.12.2013, 18:51
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515076
enda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
enda
Гость
AndreTM,

VBA
...
Рейтинг: 0 / 0
28.12.2013, 18:52
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515077
enda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
enda
Гость
AndreTM,

такое задание скинули, как делать никто не знает...
...
Рейтинг: 0 / 0
28.12.2013, 18:53
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515089
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
endaкак делать никто не знает...Знают те, кто лекции посещал.
Ибо сделать его можно тысячью разных способов, но чтобы получить зачет, нужно сделать его теми методами, которые проходили.
...
Рейтинг: 0 / 0
28.12.2013, 19:18
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515092
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub CommandButton1_Click()
Dim Stroka As String, num As Integer
Stroka = InputBox("Введите последовательность цифр", "Последовательность цифр", "0,1,2,3,4,5,6,7,8,9")
arrStroka = Split(Stroka, ",")
num = Val(InputBox("Введите номер", "Номер цифры", "5"))
If Int(num) - 1 < 0 Or Int(num) - 1 > UBound(arrStroka) Then
    MsgBox "Неправильно набран номер", vbInformation, "Сообщение"
    Exit Sub
End If
MsgBox arrStroka(num - 1)
End Sub


Вот о чем (примерно) говорит тебе VladConn.
Из проверок привел только одну. Рассматривая различные варианты исходных данных, будешь получать ошибки.
...
Рейтинг: 0 / 0
28.12.2013, 19:21
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515094
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Int, конечно, лишнее. Но не мешает.
...
Рейтинг: 0 / 0
28.12.2013, 19:23
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515105
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Shocker.ProVladConnЦифры римские.я еще могу понять, что такое римские числа. Но что такое римские цифры?

http://ru.wikipedia.org/wiki/Римские_цифры
...
Рейтинг: 0 / 0
28.12.2013, 19:52
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515124
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VladConn, понятно, всегда считал их латинскими буквами ))
...
Рейтинг: 0 / 0
28.12.2013, 20:30
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515147
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Shocker.ProVladConn, понятно, всегда считал их латинскими буквами ))

И в этом тоже есть сермяжная правда, с которой нельзя не согласиться.

:0)
...
Рейтинг: 0 / 0
28.12.2013, 21:55
| Ответить | Цитировать | Написать  
Помогите пожалуйста!
    #38515573
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
enda,

Помог?
...
Рейтинг: 0 / 0
29.12.2013, 23:26
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38515075&tid=2156600]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 19ms
total:  171ms
созд. / загр.: 171ms
x
x
Закрыть


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