<em><u>ВНИМАНИЕ! ВАЖНО!</u></em>
Во вложении находится архивный файл LT.RAR, у которого расширение RAR переименовано в TXT, поскольку вложить сюда RAR-архив невозможно.
В архивном файле находится проект VB-6 и исполняемый файл, который при наличии на компьютере среды поддержки VB, покажет работу программы.
<em><u>Код проекта:</u></em>
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4275
ClientLeft = 60
ClientTop = 450
ClientWidth = 5880
LinkTopic = "Form1"
ScaleHeight = 4275
ScaleWidth = 5880
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdTiger
Caption = "Это ТИГР"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 1800
TabIndex = 1
Top = 3240
Width = 2055
End
Begin VB.CommandButton cmdLeo
Caption = "Это ЛЕВ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 1800
TabIndex = 0
Top = 2520
Width = 2055
End
Begin VB.Image Image2
Height = 1995
Left = 1560
Picture = "Leo_Tiger.frx":0000
Top = 240
Visible = 0 'False
Width = 2655
End
Begin VB.Image Image1
Height = 1995
Left = 1200
Picture = "Leo_Tiger.frx":44CE
Top = 240
Visible = 0 'False
Width = 3300
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdLeo_Click(Index As Integer)
Me.Image1.Visible = True
Me.Image2.Visible = False
End Sub
Private Sub cmdTiger_Click(Index As Integer)
Me.Image2.Visible = True
Me.Image1.Visible = False
End Sub
<em><u>Замечание:</u></em> На самом деле этот код не нужен, если открыть прилагаемый проект, он будет доступен.
((0*0)+0)/(1+1))=((0+0)/1)=0/1=0
вроде так
1. Арабскими цифрами
2.ячейка
3.столбец
4. Автоматизация или оптимизация
5.таблица
6.формула