powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / help (как сосчитать до 10)
7 сообщений из 7, страница 1 из 1
help (как сосчитать до 10)
    #32451606
gaismina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у меня вопрос. нужен код. я вожу начальную (1) цифру и конечную(10). мне нужно, чтобы он сделал остальные цифры(2, 3, 4, 5, ...).
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451616
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
for i=начальная to конечная
msgbox i
next
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451627
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sub test1()

Dim a As Integer, b As Integer, c As String

a = InputBox("Первое число", "Ввод 1", "2")
b = InputBox("Второе число", "Ввод 2", "10")

If a < b Then

For i = a To b Step 1

c = c + CStr(i) + "; "

Next

MsgBox c, vbInformation, "Результат"

Else

MsgBox "Первое число должно быть меньше второго!", vbExclamation, "Ошибка"

End If

End Sub
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451833
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор в другом топикекак поместить эти цифри в таблицу?

2 Автор
Пиши, пожалуйста, одну тему в одном топике
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451849
gaismina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
как эти цифры поместить в таблицу?
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451870
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ты напиши всё что ты хочешь сделать сразу ,поподробнее и попонятнее....
если ты будеь спрашивать по кускам, а потом спросишь всё сразу...то решения могут быть разные и второе решение скорее всего будет оптимальнее..
Объясни обстановку.......
...
Рейтинг: 0 / 0
help (как сосчитать до 10)
    #32451874
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
For i =  1  To  10  

currentproject.connection.execute  "insert into MYTABLE (MYFIELD) values("  & i &  ") " 


Next i
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / help (как сосчитать до 10)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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