powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Help!
9 сообщений из 9, страница 1 из 1
Help!
    #38475282
CveTuK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день. Получила задания по информатике, но в ней не сильна.Не могу понять что от меня хотят, но без этой работы, не видать мне зачета. Уверена для большинства посетителей сайта не составит проблемы и не займет много времени на решения этих заданий.
Войдите в положение, все же были студентами, помогите.[img= http://radikal.ru/fp/3c8c71d1975948cabd49397494dd6832][IMG] http://i011.radikal.ru/1311/5c/dff0a97700b0.jpg [/IMG]]

Модератор: Вложение удалено по просьбе автора.
...
Рейтинг: 0 / 0
Help!
    #38475292
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пособие для студентов и школьников

ПРАВИЛА ФОРУМА. Прочтите перед тем как задавать вопрос! 3.Не стоит беспокоиться о привлечении внимания темами типа "ПОМОГИТЕ!!!!!". Это считается дурным тоном и нисколько не приближает вас к получению ответа. Снова же, цените время отвечающих вам участников. Четко сформулированная тема вопроса скорее привлечет внимание человека, который действительно может вам помочь, и напротив, крики души а также бессмысленные "вопрос", "проблема", "не работает" - могут быть проигнорированы.
...
Рейтинг: 0 / 0
Help!
    #38475299
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Len
Возвращает целое число, содержащее либо количество знаков в строке
Код: vbnet
1.
Len("пересечение")=11


InStr
Функция возвращает позицию первого вхождения указанной последовательности символов в другой последовательности символов. Для поиска последовательности символов с конца строки можно использовать функцию InStrRev.
Синтаксис
Код: vbnet
1.
InStr([Start], String1, String2[, Compare])

Параметры
Start - числовое выражение, указывающее номер позиции, с которой должен начинаться поиск. По умолчанию поиск начинается с первого символа.
String1 - строковое выражение, представляющее собой строку, в которой производится поиск.
String2 - строковое выражение, представляющее собой искомую строку.
Compare - указывает метод сравнения.
Код: vbnet
1.
InStr(3, "молоко", "о")=4


Mod
Возвращает остаток от деления
Код: vbnet
1.
11 Mod 4 = 3

Код: vbnet
1.
Len("пересечение") Mod InStr(3, "молоко", "о")=3
...
Рейтинг: 0 / 0
Help!
    #38475308
CveTuK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Клевер, спасибо большое, не ожидала что так быстро. А может еще кто знает, где можно почитать "пособие для чайников" по подобным примерам, а то не последняя работа, охота в дальнейшем уже самой решать?)
...
Рейтинг: 0 / 0
Help!
    #38475311
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CveTuK, это только 2е задание) остальные начни сама. погугли, попробуй, выложи, что получилось. вечером я помогу доделать
...
Рейтинг: 0 / 0
Help!
    #38475314
CveTuK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Клевер, я поняла, что только второе. С утра сижу гуглю)) на сложном языке объясняют, пытаюсь найти материал для тех кто не сходу усваивает)
...
Рейтинг: 0 / 0
Help!
    #38475328
CveTuK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Клевер,а на счет 3 задания,там вот так получиться?

PushButton = MsgBox ("хотите продолжить?", vbYesNo+ vbExclamation + vbDefaultButton2, "результат не верен")
...
Рейтинг: 0 / 0
Help!
    #38475331
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CveTuK, Вы эти строки кода нажимая Эф8 проходите?
...
Рейтинг: 0 / 0
Help!
    #38475413
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CveTuKКлевер,а на счет 3 задания,там вот так получиться?

PushButton = MsgBox ("хотите продолжить?", vbYesNo+ vbExclamation + vbDefaultButton2, "результат не верен")да, всё верно

я не силён в vba(макросах). в vb6 6е задание выглядело бы так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
Dim a(20) As Date
Dim i As Long
For i = 1 To 20
a(i) = CDate(Str(Int(28 * Rnd() + 1)) & " " & Str(Int(12 * Rnd() + 1)) & " " & Str(Int(26 * Rnd() + 1987)))
Text1.Text = Text1.Text & a(i) & vbCrLf
Text2.Text = Text2.Text & DateAdd("d", 16, a(i)) & vbCrLf
Next i
End Sub
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Help!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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