Помогите с VB массивы=) СРОЧНО плизз...
Добавлено: 14 июн 2010, 04:36
Есть 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
в 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