Помогите с VB массивы=) СРОЧНО плизз...

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Тоша
Сообщения: 1
Зарегистрирован: 14 июн 2010, 04:28

Есть Form1 вводим данные.. нужно что бы при нажатии на кнопку открылась 2-я форма и в Form2 ввелись числа из формы 1 ( делается это через Open:....) все значения мы выводим на PictureBox

в Visual Basic
код применрно такой: ЗЫ: не правельный...

Private Sub Command1_Click()
q$ = InputBox("Введите размерр массива")
n = Val(q$)
For i = 1 To n
T$ = InputBox("Введите элементы")
a(i) = Val(T$)
Form1.Picture1.Print a(i)
Next i
Open "ПУТЬ " For Output As 1#

End Sub
--------------------------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
Form1.Hide
Form2.Show
Min = 9999
Min = a(1)
For i = 1 To n
If a(i) < Min Then Min = a(i)
Next i
Open "ПУТЬ " For Input As 1#

Form2.Picture1.Print Min
Ответить