VBNet - Форум - Проблема с вставкой значений

Вопрос: Проблема с вставкой значений Добавлено: 21.03.09 14:28

Автор вопроса: rodon

Здравствуйте!
Такая вот задача:
1 Необходимо чтобы программа сначала спросила кол-во чисел.
2 Потом она создала переменные(массивы) (столько сколько мы указали ранее) да и еoе спрашивала их значение.

Я реализовал это так:

HowMany = InputBox("Введите кол-во чисел:")
For i = 1 To HowMany Step 1
A = A + 1
Table(A) = InputBox("Значение" + A)
Next i

Только комп. пишет что то там про константы. Как мне пихнуть нарастающий A в значение массива?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #1	Добавлено: 21.03.09 17:25
	Ну, во-первых, Dim Table() As String Dim A As Integer Dim i As Integer A = 0 'Или 1 Во-вторых, HowMany = CInt(InputBox("Введите кол-во чисел:")) В-третьих, Table(A) = InputBox("Значение" & CStr(A)) В-четветрых, переменная A здесь вообще не нужна а программа упадет при любом неправильно введенном, значениеи, например "один". Ответить

Номер ответа: 2 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #2	Добавлено: 21.03.09 21:49
	Попробуй, вдруг получится: Sub m_Array() Dim I As Long, HowMany As Long, Table() As Double On Error Resume Next HowMany = InputBox("Введите кол-во чисел:") If Err Then MsgBox "Лажа, блин!": Exit Sub If HowMany < 1 Then MsgBox "Лажа, блин!": Exit Sub ReDim Table(1 To HowMany) For I = 1 To HowMany 1: Table(I) = InputBox("Введите значение " & I) If Err Then Err.Clear: MsgBox "Лажа, блин в """ & I & "-ом значениии!": GoTo 1 Next I End Sub Ответить

Страница: 1 |