VERSION 5.00
Begin VB.Form Form2 
   AutoRedraw      =   -1  'True
   Caption         =   "Form2"
   ClientHeight    =   3675
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9585
   LinkTopic       =   "Form2"
   ScaleHeight     =   3675
   ScaleWidth      =   9585
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim chas As Integer, minut As Integer, m As Integer, n As Integer, fl(1 To 3) As Boolean, Min As Integer, cc As Integer, kk As Integer, c As Integer, k As Integer, r As Integer, a(1 To 40) As Integer, b(1 To 40, 1 To 40) As Integer, i As Integer, j As Integer

Private Sub Form_Click()
Form2.Visible = False
End Sub

Private Sub Form_Load()
Frm
End Sub
Private Sub Frm()
 Randomize (Timer)
 Form2.FontSize = 12
 Form2.ForeColor = &HC000C0
 Form2.FontBold = True
   Form2.FontUnderline = True
Form2.Cls
 Form2.Print "Температура - одномерный (линейный) массив случайных целых чисел"
  Form2.FontUnderline = False
   Form2.ForeColor = 255
For i = 1 To 30
 a(i) = Int(Rnd * 12) - 5
 Form2.Print a(i);
Next
End Sub

