Private Sub Command1_Click() Dim B(1 TO 17) As Byte, X As Byte RANDOMIZE FOR X=1 TO 17 В(X)= 12+FIX(RND*(55-12+1)) PRINT В(X); NEXT X End Sub Определите имя массива, количество элементов, способ заполнения
{}