VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   3360
      TabIndex        =   0
      Top             =   2520
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(1 To 10) As String, i As Integer, b As Single, j As Integer, r As String

Private Sub Command1_Click()
'b = InputBox("Введите число")
For j = 1 To 9
For i = 1 To 9
If a(i) < a(i + 1) Then
r = a(i)
a(i) = a(i + 1)
a(i + 1) = r
'Form1.Print "Порядковый номер"; a(i); "-"; i
End If
Next
Next
Form1.Print

For i = 1 To 10
Form1.Print a(i);
Next
Form1.Print
End Sub

Private Sub Form_Click()
Randomize (Timer)
For i = 1 To 10
a(i) = Chr(Int(Rnd * 33 + 220))
Form1.Print a(i);
Next
Form1.Print
End Sub

Private Sub Form_DblClick()
End
End Sub

