Dim a(1 To 3, 1 To 4)
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 4
a(i, j) = InputBox("vared konid", Str(i) + Str(j), 10, 3000, 5000)
Next
Next
End Sub
Private Sub Command2_Click()
For i = 1 To 3
For j = 1 To 4
Print "-"; a(i, j),
Next
Print
Next
End Sub