• Артем
  • Восстановленный участник
  • На форуме с 28 августа 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Проблема...

У меня небольшая проблема:
Dim bytA, bytB, bytC, bytD As Byte
Dim lngA() As Long
Private Sub Command1_Click()
bytA = txt1.Text
bytB = txt2.Text
ReDim lngA(1 To bytA, 1 To bytB)
For bytC = 1 To bytA
For bytD = 1 To bytB
lngA(bytC, bytD) = InputBox("Введите  ", "Ввод информации")
Next bytD
Next bytC
End Sub
   Надо чтобы с заполнением массива менялось собщение для ввода "Введите " на "Введите 2", "Введите 3"  и т.д.
Пробовал создать еще одну переменную P = 1, тогда строку:
lngA(bytC, bytD) = InputBox("Введите  ", "Ввод информации")
меняю на:
lngA(bytC, bytD) = InputBox("Введите   "  P + 1, "Ввод информации")
но почему то не работает. Подскажите!

  • Arkady
  • Восстановленный участник
  • На форуме с 16 марта 2002г.
  • Сообщений: 221
  • Спасибо: 0

Re: Проблема...

Аргумент InputBox должен быть строкой.
Попробуй так:
P=P+1
InputBox("Введите " & Cstr(P), "Ввод информации")
или так:
InputBox("Введите  " & CStr(bytC) & "x" & CStr(bytD), "Ввод информации")

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Проблема...

Я правда, не понял задачу.
Только хочу заметить, что после & число можно не преобразовывать в строку.
Наверное, главное отличие & от + в том и состоит, что стоящее после & числовое значение автоматически преобразуется в строковое.
Извините за замечание.