Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / help (как сосчитать до 10) / 7 сообщений из 7, страница 1 из 1
22.03.2004, 15:37
    #32451606
gaismina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help (как сосчитать до 10)
у меня вопрос. нужен код. я вожу начальную (1) цифру и конечную(10). мне нужно, чтобы он сделал остальные цифры(2, 3, 4, 5, ...).
...
Рейтинг: 0 / 0
22.03.2004, 15:41
    #32451616
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help (как сосчитать до 10)
for i=начальная to конечная
msgbox i
next
...
Рейтинг: 0 / 0
22.03.2004, 15:46
    #32451627
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help (как сосчитать до 10)
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
22.03.2004, 17:50
    #32451833
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help (как сосчитать до 10)
автор в другом топикекак поместить эти цифри в таблицу?

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

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


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


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