программа на Visual Basic

[aiktz]

как записать вывод первого массива в Text1 и вывод второго массива в Text2 ???...как правильно заменить Print на Text????

Private Sub Command1_Click()
Cls
Dim a(1 To 20) As Integer, i As Integer
For i = 1 To 20
  a(i) = Int(10 * Rnd)
  Print a(i)
Next i
Print
For i = 2 To 20
  a(i) = a(i - 1) + a(i)
  Print a(i)
Next i
End Sub

[andik]

Легко.

Private Sub Command1_Click()
Cls
Dim a(1 To 20) As Integer, i As Integer
For i = 1 To 20
  a(i) = Int(10 * Rnd)
  Text1.SelText = Str(a(i)) + " "
Next i
For i = 2 To 20
  a(i) = a(i - 1) + a(i)
  Text2.SelText = Str(a(i)) + " "
Next i
End Sub

[aiktz]

просто не знаю как вас благодарить!!!! столько всякого перепробывала....еще не умею пользоваться VB((( еще раз спасибо!

[andik]

просто нажать на весы и добавить отзыв...