Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста! / 14 сообщений из 14, страница 1 из 1
28.12.2013, 17:45
    #38515044
enda
enda
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста!
Составить программу, которая на входе должна получать последовательность цифр, после чего программа показывает цифру, порядковый номер которой ввел пользователь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2013, 18:06
    #38515049
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста!
enda,

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

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

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

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

такое задание скинули, как делать никто не знает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2013, 19:18
    #38515089
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста!
endaкак делать никто не знает...Знают те, кто лекции посещал.
Ибо сделать его можно тысячью разных способов, но чтобы получить зачет, нужно сделать его теми методами, которые проходили.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2013, 19:21
    #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:23
    #38515094
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста!
Int, конечно, лишнее. Но не мешает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2013, 19:52
    #38515105
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста!
Shocker.ProVladConnЦифры римские.я еще могу понять, что такое римские числа. Но что такое римские цифры?

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

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

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

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


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