Приложение должно формировать испытательный сигнал - VB - Ответ 2533498

Private Sub RISOVANIE()
   Dim X(0 To 10) As Double, Y(0 To 3) As Double
   Dim i As Integer, j As Integer, zvet As Long
   
   DrawWidth = 2: ScaleMode = 1: AutoRedraw = True: WindowState = 2
   Me.Show
 
   For i = 0 To 10
       X(i) = (Me.Width / 11) * i
   Next i
 
   For j = 0 To 3
       Y(j) = ((Me.Height) / 3) * j
   Next j
 
   For i = 0 To 9
      For j = 1 To 3
         Select Case i
            Case 0, 3, 6, 9: zvet = vbBlue
            Case 1, 2, 7, 8: zvet = vbGreen
            Case 4, 5: zvet = vbRed
         End Select
         Line (X(i) + (Me.Width / 11) / 2 + 100, Y(j) - _
              ((Me.Height) / 3) / 2)- _
              (X(i + 1) + (Me.Width / 11) / 2 - 100, Y(j) - _
              ((Me.Height) / 3) / 2), zvet
       Next j
    Next i
    
    For i = 1 To 10
       For j = 0 To 2
           Select Case i - 1
               Case 0, 3, 6, 9: zvet = vbBlue
               Case 1, 2, 7, 8: zvet = vbGreen
               Case 4, 5: zvet = vbRed
            End Select
            Line (X(i), Y(j) + 300)- _
                 (X(i), Y(j + 1) - 300), zvet
       Next j
    Next i
    
End Sub
 
Private Sub Form_Load()
   RISOVANIE
End Sub
 
Private Sub Form_DblClick()
   Unload Me
End Sub