Проблемка с InputBox

[Shild]

Здравствуйте. Совсем недавно начал программировать на VB поэтому не судите строго...
Суть моей проблемы в том, что при использовании такой конструкции:

Код: Выделить всё

Private Sub Text1_LostFocus()
N = Val(Text1.Text)
For I = 1 To N
HI(I) = InputBox("Толщина " & I & "-го слоя грунта, м", I & "-й слой", "")
If HI(I) = "" Then Exit Sub
RI(I) = InputBox("Расчетное сопротивление " & I & "-го слоя грунта по боковой поверхности сваи, кПа", I & "-й слой", "")
If RI(I) = "" Then Exit Sub
Next I
End Sub


получается, что если пользователь вводит данные в InputBox, то все нормально, а вот если оставляет поле ввода пустым для второго InputBox'а, то вылетает ошибка "несовпадение несовпадение типов". Уже по-всякому химичил, но что-то неполучается и все тут . Заранее благодарен если кто просветит.

[gjghjc]

А куда подставляются значения HI(I) и RI(I), может можно вместо второго значения подставлять какую либо величину по умолчанию.
В общем выложи здесь ту формулу куда ты подставляешь эти значения

[corgi]

2gjghjc насколько я понял имеется ввиду что при вводе в inputbox пустой строки вылетает ошибка
2Shild попробуй нечто вроде этого

Код: Выделить всё

Dim i As Integer
Dim j As String
j = InputBox("ff")
i = CInt("0" + j)


[Shild]

Объясняю какова была задумка. В поле Text1 пользователь вводит какое-либо число (мне заранее неизвестно). Далее, в зависимости от этого числа, столько же раз должны выскочить пара приведенных мною InputBox'ов. Естественно, что то, что вводится в эти input'ы также будет использоваться в дальнейших вычислениях. Значения как я понимаю будут присваиваться HI(1) и RI(1) - для 1-го inputbox, HI(2) и RI(2) для второго inputbox, и тд. И все то вроде прекрасно работает при вводе чисел, но вот при оставлении строки пустой для второго вопроса получается ошибочка. Непонятно... А вообще, может какая светлая голова посоветует другой алгоритм для такого, если так можно сказать, динамического опроса?

[ole]

Можно решить так, если лень переделывать алгоритм
Private Sub Text1_LostFocus()
OnError goto metka
N = Val(Text1.Text)
For I = 1 To N
HI(I) = InputBox("Толщина " & I & "-го слоя грунта, м", I & "-й слой", "")
If HI(I) = "" Then Exit Sub
RI(I) = InputBox("Расчетное сопротивление " & I & "-го слоя грунта по боковой поверхности сваи, кПа", I & "-й слой", "")
If RI(I) = "" Then Exit Sub
Next I
exit sub
metka:
' твои действия при ошибки или exit sub
End Sub

[Cyrax]

на сколько я понял в InputBox'ах ожидается ввод числа. в таком случае не понятно почему исользуются массивы строкового типа. (а может они вобще Variant) используй для чтения инпутов функцию Val(). если в инпуте будет пусто Val вернет тебе 0. вот и все

[Shild]

Вот !!! Val как раз таки и есть то, что надо. Просто не знал, что val можно использовать вместе с inputbox. Большое всем спасибо за помощь .