3.Combo-box Представление информации о выпуске продукции в виде списка в соответствии с планом счетов.

Begin VB.Form Form1

BackColor = &H0080C0FF&

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 'Windows Default

Begin VB.ComboBox Combo3

Height = 315

ItemData = "Combobox.frx":0000

Left = 3120

List = "Combobox.frx":000A

Style = 2 'Dropdown List

TabIndex = 2

Top = 480

Width = 1335

End

Begin VB.ComboBox Combo2

Height = 315

ItemData = "Combobox.frx":0027

Left = 1800

List = "Combobox.frx":0031

Style = 1 'Simple Combo

TabIndex = 1

Text = "Combo2"

Top = 1200

Width = 1215

End

Begin VB.ComboBox Combo1

Height = 315

ItemData = "Combobox.frx":004C

Left = 360

List = "Combobox.frx":0059

TabIndex = 0

Top = 480

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Combo1_Change()

End Sub

Private Sub Combo2_Change()

End Sub

Private Sub Combo2_Click()

End Sub

Private Sub Combo3_Change()

End Sub

Private Sub Form_Load()

End Sub

4.Do-Event Обработка финансовой информации предприятия в виде бесконечного цикла с визуальными эффектами.

Begin VB.Form пфDoEvents

Caption = "Демонстрация бесконечного цикла"

ClientHeight = 2190

ClientLeft = 1320

ClientTop = 1470

ClientWidth = 6585

BeginProperty Font

Name = "Courier New"

Size = 18

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

LockControls = -1 'True

ScaleHeight = 2190

ScaleWidth = 6585

Begin VB.CommandButton кнDoEvents

Caption = "DoEvents"

Enabled = 0 'False

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 780

Left = 2205

TabIndex = 0

Top = 585

Width = 2130

End

Begin VB.Label мтТроньМеня

Alignment = 2 'Центровка

Caption = "Тронь Меня мышкой"

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00FF0000&

Height = 420

Left = 225

TabIndex = 2

Top = 1485

Width = 6045

End

Begin VB.Label мтЦикл

Alignment = 2 'Центровка

Caption = "Работает бесконечный цикл"

BeginProperty Font

Name = "MS Sans Serif"

Size = 18

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00C000C0&

Height = 645

Left = 405

TabIndex = 1

Top = 45

Visible = 0 'False

Width = 5955

End

End

Attribute VB_Name = "пфDoEvents"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Dim tfDO As Boolean

Private Sub Form_Click()

Dim Счётчик As Integer ' то же, что Счётчик%

tfDO = True

мтЦикл.Visible = True

мтТроньМеня.Visible = False

кнDoEvents.Enabled = True

Do While tfDO

DoEvents

tfDO = tfDO: Счётчик = Счётчик ' + 1: tfDO = tfDO

Loop

End Sub

Private Sub кнDoEvents_Click()

tfDO = False

мтЦикл.Visible = False

мтТроньМеня.Visible = True

кнDoEvents.Enabled = False

End Sub

Private Sub мтТроньМеня_Click()

Form_Click

End Sub