Ребят помогите пожалуйста! Надавали в универе задач на VBA, но имел дело ток с QBasic и Delphi, поэтому решаю задачу по аналогии, но что-то не догоняю как на этом языке написать некоторые вещи. Сообщения типа читай мануал или делай сам писать не надо, ибо я тут не халявы ищу а помощи.
Задача такая:
Вообщем нужно ввести одномерный массив, вывести его. Затем из положительных элементов сформировать другой массив и вывести; из отрицательных сформировать третий и вывести.
Вообщем на форме я создал TextBox для ввода размерности массива, кнопку вычислить, textbox для вывода результата.
Вообщем код такой:
Private Sub cmdVich_Click()
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim k As Integer
Dim q As Integer
Dim i As Integer
Dim n As Integer
n = Val(txtN.Text)
Dim rez As String
ReDim A(n) As Integer
txtRez = ""
rez = rez & " ИСХОДНЫЕ ДАННЫЕ" & vbCrLf & vbCrLf
For i = 1 To n
A(i) = InputBox("Введите элемент A(" & i & _
")", "Ввод массива A(" & n & ")")
rez = rez & "A(" & i & ")= " & A(i) & Space(4)
Next i
rez = rez & vbCrLf & vbCrLf
txtRez = rez
k = 0
q = 0
For i = 1 To n
If A(i) >= 0 Then k = k + 1: B(k) = A(i)
If A(i) < 0 Then q = q + 1: C(q) = A(i)
Next i
For i = 1 To k
rez = rez & k & vbTab
Next i
rez = rez & vbCrLf
txtRez = rez
For i = 1 To q
rez = rez & q & vbTab
Next i
txtRez = rez
End Sub
Private Sub cmdVihod_Click()
Unload Me
End Sub
Вообщем всё что красным работает. то есть массив ввожу и он выводится. Далее я не понимаю как индексу второго массива присвоить индекс первого. То есть в зелёных строках ошибка. И как потом вывести на результат другие два массива????????????????????
