VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Таблица умножения"
   ClientHeight    =   2496
   ClientLeft      =   3984
   ClientTop       =   3456
   ClientWidth     =   2436
   LinkTopic       =   "Form1"
   ScaleHeight     =   2496
   ScaleWidth      =   2436
   Begin VB.CommandButton cmd1 
      Caption         =   "Таблица"
      Height          =   612
      Left            =   1080
      TabIndex        =   0
      Top             =   840
      Width           =   1212
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytA(1 To 9, 1 To 9), bytK, bytN As Byte
Sub cmd1_Click()
For bytK = 1 To 9
For bytN = 1 To 9
bytA(bytK, bytN) = bytK * bytN
frm1.Print bytK; "*"; bytN; "="; bytA(bytK, bytN)
Next bytN
Next bytK
End Sub

