Private Sub Command1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim S As Integer, S1 As Integer Dim P As Single, P1 As Single RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10-(-60)+1)) PRINT К(X); NEXT X : Print S = 0: S1 = 0: P = 1: P1 = 1 For X = 1
{}